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,1

Comments

A002808 INTERSECTION A001651.

Links

Table of n, a(n) for n=1..63.

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

Sequence in context: A092292 A299482 A171993 * A175228 A099861 A310986

Adjacent sequences: A157692 A157693 A157694 * A157696 A157697 A157698

Keyword

nonn

Author

Lekraj Beedassy, Mar 04 2009

Status

approved