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] 24874 23720  3454 20963  9880  7890 23457  5544 17029  1007 13274
## [12] 14758   481  5041 13061 23181 12392  6972 29123  1076  3930   738
## [23]  6294 26587  3357    64 25982  1990 16294  4555 17600  1482

Dear keep going,

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

Best regards,

##  [1] 24874 23720  3454 20963  9880  7890 23457  5544 17029  1007 13274
## [12] 14758   481  5041 13061 23181 12392  6972 29123  1076  3930   738
## [23]  6294 26587  3357    64 25982  1990 16294  4555 17600  1482