OFFSET
1,2
COMMENTS
All the prime factors of each term in this sequence are terms of A068228.
MATHEMATICA
Select[Range[10000], Count[Mod[First /@ FactorInteger[#], 12], 1] == Length[FactorInteger[#]] &]
PROG
(PARI) isok(m) = my(f=factor(m)); for (k=1, #f~, if ((f[k, 1] % 12) != 1, return(0))); return (1); \\ Michel Marcus, Jun 02 2022
CROSSREFS
KEYWORD
nonn
AUTHOR
Steven Lu, Jun 01 2022
STATUS
approved