OFFSET
1,1
MATHEMATICA
nn=38000; nps=Complement[Range[nn], Prime[Range[PrimePi[nn]]]]; nxt[n_]:= nps[[n-1]]; NestList[nxt, 5, 45] (* Harvey P. Dale, Sep 14 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved