OFFSET
1,2
COMMENTS
FORMULA
a(n) = 1 for n >= 5.
MATHEMATICA
Module[{nn=100, np}, np=Complement[Range[nn], Prime[Range[PrimePi[nn]]]]; Floor[np/Range[Length[np]]]] (* Harvey P. Dale, Oct 28 2015 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Jaroslav Krizek, Dec 13 2009
EXTENSIONS
More terms from Harvey P. Dale, Oct 28 2015
STATUS
approved