OFFSET
1,1
MATHEMATICA
Module[{nn=100000, np}, np=Complement[Range[nn], Prime[Range[PrimePi[nn]]]]; Flatten[NestList[np[[#]]&, {5}, 50]]] (* Harvey P. Dale, Dec 02 2014 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved