OFFSET
1,1
COMMENTS
All terms of A108166 are in the sequence.
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[6*Range[200] + 1, IntegerQ[(FactorInteger[#][[1, 1]] + 1)/6] &] (* Harvey P. Dale, Sep 19 2018 *)
PROG
(PARI) isok(n) = ((n % 6) == 1) && (n != 1) && ((vecmin(factor(n)[, 1]) % 6) == 5); \\ Michel Marcus, Feb 08 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Shevelev, Apr 14 2010
EXTENSIONS
Corrected by R. J. Mathar, May 03 2013
STATUS
approved