%I #11 Jan 20 2020 13:30:25
%S 4,8,10,14,16,20,22,25,26,28,32,34,35,38,40,44,46,49,50,52,55,56,58,
%T 62,64,65,68,70,74,76,77,80,82,85,86,88,91,92,94,95,98,100,104,106,
%U 110,112,115,116,118,119,121,122,124,125,128,130,133,134,136,140,142,143,145
%N Composite numbers that are not multiples of 3.
%C A002808 INTERSECTION A001651.
%t Select[Range[200],CompositeQ[#]&&Mod[#,3]!=0&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Jan 20 2020 *)
%o (PARI) isok(n) = (n != 1) && (n % 3) && (! isprime(n)) \\ _Michel Marcus_, Jul 28 2013
%o (PARI) lista(nn) = forcomposite(n=1, nn, if (n % 3, print1(n, ", "))); \\ _Michel Marcus_, Mar 18 2016
%K nonn
%O 1,1
%A _Lekraj Beedassy_, Mar 04 2009
|