OFFSET
1,2
COMMENTS
1, 2, 3 and the composites A002808.
MATHEMATICA
With[{nn=100}, Join[{1, 2, 3}, Complement[Range[4, nn], Prime[Range[ PrimePi[ nn]]]]]] (* Harvey P. Dale, Nov 18 2013 *)
PROG
(PARI) is(n)=if(n<5, n>0, !isprime(n)) \\ Charles R Greathouse IV, Nov 13 2015
CROSSREFS
KEYWORD
nonn,easy,less
AUTHOR
Juri-Stepan Gerasimov, Dec 12 2009, Dec 15 2009
STATUS
approved