A157695 Composite numbers that are not multiples of 3.
4, 8, 10, 14, 16, 20, 22, 25, 26, 28, 32, 34, 35, 38, 40, 44, 46, 49, 50, 52, 55, 56, 58, 62, 64, 65, 68, 70, 74, 76, 77, 80, 82, 85, 86, 88, 91, 92, 94, 95, 98, 100, 104, 106, 110, 112, 115, 116, 118, 119, 121, 122, 124, 125, 128, 130, 133, 134, 136, 140, 142, 143, 145
Offset: 1
Keywords
Programs
-
Mathematica
Select[Range[200],CompositeQ[#]&&Mod[#,3]!=0&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jan 20 2020 *)
-
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
Comments