login
A247681
Odd nonprimes congruent to 1 modulo 9.
8
1, 55, 91, 145, 217, 235, 253, 289, 325, 343, 361, 415, 451, 469, 505, 559, 595, 649, 667, 685, 703, 721, 775, 793, 847, 865, 901, 955, 973, 1027, 1045, 1081, 1099, 1135, 1189, 1207, 1225, 1243, 1261, 1315, 1333, 1351, 1369, 1387, 1405
OFFSET
1,2
COMMENTS
Subsequence of A017173.
LINKS
MATHEMATICA
Select[18Range[0, 99] + 1, Not[PrimeQ[#]] &] (* Alonso del Arte, Sep 25 2014 *)
Select[Range[1, 1500, 18], !PrimeQ[#]&] (* Harvey P. Dale, Mar 07 2018 *)
PROG
(PARI) lista(nn) = {forcomposite(n=1, nn, if ((n % 2) && ((n % 9) == 1), print1(n, ", ")); ); } \\ Michel Marcus, Sep 22 2014
CROSSREFS
Cf. A017173, A247676, A247678, A247679, A247682, A247683, A247900 (first differences).
Sequence in context: A157484 A230125 A027865 * A195118 A143205 A111192
KEYWORD
nonn,easy
AUTHOR
Odimar Fabeny, Sep 22 2014
STATUS
approved