A247682 Odd composite numbers congruent to 5 modulo 9.
77, 95, 185, 203, 221, 275, 329, 365, 437, 455, 473, 527, 545, 581, 635, 671, 689, 707, 725, 779, 815, 833, 851, 869, 905, 923, 959, 995, 1067, 1085, 1121, 1139, 1157, 1175, 1211, 1247, 1265, 1337, 1355, 1391, 1445, 1463, 1517, 1535, 1589
Offset: 1
Links
- Odimar Fabeny, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
Select[18Range[100] + 5, Not[PrimeQ[#]] &] (* Alonso del Arte, Sep 25 2014 *) Select[Range[5,2000,18],CompositeQ] (* Harvey P. Dale, Feb 21 2016 *)
-
PARI
lista(nn) = {forcomposite(n=1, nn, if ((n % 2) && ((n % 9) == 5), print1(n, ", ")); ); } \\ Michel Marcus, Sep 22 2014
Comments