OFFSET
1,1
COMMENTS
Corresponding moduli: 2, 3, 5, 5, 5, 1, 1, 5, 5, 5, 1, 5, 1, 5, 5, 1, 5, 1, 5, 1, 1, 1, 5, 5, 5, 1, 1, 5, 1, 5, 5, 1, 5, 5, 5, 1, 5, 1, 5, 1, 5, 5, 1, 1, 5, 1.
After 3 - only ones and fives.
MATHEMATICA
s = {}; p = 2; Do[If[Mod[p, 6] == Mod[p, 8], AppendTo[s, p]]; p = NextPrime[p], {200}]; s
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Jun 05 2022
STATUS
approved