OFFSET
1,1
COMMENTS
By definition, all terms are composite numbers.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Range[11, 2581, 6], 1==Mod[FactorInteger[ # ][[1, 1]], 6]&] (* Zak Seidov, Apr 14 2010 *)
PROG
(PARI) isok(n) = ((n % 6) == 5) && ((vecmin(factor(n)[, 1]) % 6) == 1); \\ Michel Marcus, Feb 08 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Shevelev, Apr 14 2010
EXTENSIONS
Corrected (erroneous 341 deleted) and extended by Zak Seidov, Apr 14 2010
STATUS
approved