OFFSET
1,1
MATHEMATICA
lst={}; k=0; s=4; Do[If[OddQ[n]&&Last/@FactorInteger[n]=={1, 1}, If[n<s^2, k++, AppendTo[lst, k]; k=1; s++]], {n, 2*10^8}]; Complement[Range@3000, Union@lst]
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Apr 20 2011
STATUS
approved