OFFSET
1,2
COMMENTS
Subsequence of A017173.
LINKS
Odimar Fabeny, Table of n, a(n) for n = 1..10000
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
KEYWORD
nonn,easy
AUTHOR
Odimar Fabeny, Sep 22 2014
STATUS
approved