A247681 Odd nonprimes congruent to 1 modulo 9.
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
Links
- Odimar Fabeny, Table of n, a(n) for n = 1..10000
Programs
-
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 *)
-
PARI
lista(nn) = {forcomposite(n=1, nn, if ((n % 2) && ((n % 9) == 1), print1(n, ", ")); ); } \\ Michel Marcus, Sep 22 2014
Comments