home work interpretion for keep going

This is an help document for friend keep going.

bolts<-sample(1:30000,30000)
K<-9
P<-sample(1:K,1)
Sys.sample<-bolts[seq(P,length(bolts),K)][1:32]

##  [1] 22287 26683 27474 16056 14850  9846  8235 23909 10068   765 21687
## [12]  9249 17391   640  8237  9613  6010 29656 21523 25438 23742 22402
## [23] 17051 22909  2309   120 22226   167  5064 14591 17508  8887

Dear keep going,

Please check the following 32 number which you can obtain from the above code.

Best regards,

##  [1] 22287 26683 27474 16056 14850  9846  8235 23909 10068   765 21687
## [12]  9249 17391   640  8237  9613  6010 29656 21523 25438 23742 22402
## [23] 17051 22909  2309   120 22226   167  5064 14591 17508  8887