OFFSET
1,1
MATHEMATICA
Table[Mod[10-Mod[Prime[n+3], 10], 4]-Mod[n, 4]+3, {n, 1, 200}]
CROSSREFS
KEYWORD
nonn,less
AUTHOR
Roger L. Bagula, Jan 20 2004
EXTENSIONS
Offset changed to 1 by Georg Fischer, Jan 09 2026
STATUS
approved