A247676 Odd composite numbers congruent to 2 modulo 9.

65, 119, 155, 209, 245, 299, 335, 371, 407, 425, 497, 515, 533, 551, 605, 623, 695, 713, 731, 749, 767, 785, 803, 875, 893, 965, 1001, 1037, 1055, 1073, 1127, 1145, 1199, 1235, 1253, 1271, 1325, 1343, 1379, 1397, 1415, 1469, 1505, 1541, 1577, 1595, 1631, 1649

Offset

1,1

Comments

Subsequence of A017185 (9n+2).

Composites == 11 mod 18. - Robert Israel, Sep 24 2014

Links

Odimar Fabeny, Table of n, a(n) for n = 1..10000

Maple

remove(isprime, [seq(18*k+11, k=1..1000)]); # Robert Israel, Sep 24 2014

Mathematica

Select[18Range[100] + 11, Not[PrimeQ[#]] &] (* Alonso del Arte, Sep 25 2014 *)
Select[Range[11, 2000, 18], CompositeQ] (* Harvey P. Dale, Oct 29 2023 *)

Prog

(PARI) lista(nn) = {forcomposite(n=1, nn, if ((n % 2) && ((n % 9) == 2), print1(n, ", ")); ); } \\ Michel Marcus, Sep 22 2014

Crossrefs

Cf. A017185, A247678, A247679, A247681, A247682, A247683.

Sequence in context: A075893 A064901 A039482 * A118159 A044188 A044569

Adjacent sequences: A247673 A247674 A247675 * A247677 A247678 A247679

Keyword

nonn,easy

Author

Odimar Fabeny, Sep 22 2014

Status

approved