OFFSET
1,1
MATHEMATICA
Select[Range[200], CompositeQ[#]&&Mod[#, 3]!=0&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jan 20 2020 *)
PROG
(PARI) isok(n) = (n != 1) && (n % 3) && (! isprime(n)) \\ Michel Marcus, Jul 28 2013
(PARI) lista(nn) = forcomposite(n=1, nn, if (n % 3, print1(n, ", "))); \\ Michel Marcus, Mar 18 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
Lekraj Beedassy, Mar 04 2009
STATUS
approved