OFFSET
1,1
MATHEMATICA
Table[Mod[Mod[Mod[Mod[Prime[k], 6], 5], 3], 2], {k, 1, 120}]
PROG
(PARI) a(n) = (prime(n) % 6) == 1; \\ Michel Marcus, Jun 26 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
Joseph Biberstine (jrbibers(AT)indiana.edu), Nov 19 2004
STATUS
approved