|
|
A247676
|
|
Odd composite numbers congruent to 2 modulo 9.
|
|
8
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|