OFFSET
1,2
COMMENTS
Cycle of integers modulo 10 on symbols {1,2,3,4,5,6,7,8,9,0} coded by the primes modulo 7.
More information is contained in this modulation code than modulo 3. These codes were inspired by the cyclic typo: if a probabilistic version is used on a large text like several pages, a message could be hidden to appear to be typos.
MATHEMATICA
digits=200 a=Table[Mod[n+(Mod[Prime[n], 7]-3), 10], {n, 1, digits}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Jan 17 2004
STATUS
approved