login
A106730
Product-based sequence of a Markov type based on a functional addition group.
0
2, 3, 0, 1, 3, 0, 1, 2, 4, 0, 1, 0, 1, 3, 4, 2, 3, 0, 1, 4, 4, 2, 3, 0, 1, 3, 0, 1, 2, 4, 4, 4, 0, 1, 4, 2, 2, 0, 1, 2, 2, 4, 4, 0, 1, 0, 1, 4, 4, 0, 1, 0, 1, 3, 4, 2, 3, 0, 1, 0, 1, 4, 2, 3, 3, 3, 2, 2, 0, 1, 4, 4, 3, 2, 4, 0, 1, 3, 4, 0, 1, 3, 0, 1, 0, 1, 4, 2, 0, 1, 2, 0, 1, 3, 4, 3, 4, 2, 4, 3, 2, 3, 3, 3, 0
OFFSET
0,1
MATHEMATICA
f[n_] = 10 - Mod[Prime[n + 3], 10];
g[n_] = Mod[Mod[n, 5], 4];
h[n_] = g[f[n]];
digits = 15;
aa[1] = 2; aa[n_] := aa[n] = Mod[Mod[aa[n - 1]*(1 + h[n]), 5] + 1, 5];
Table[aa[n], {n, 1, digits^2/2}]
CROSSREFS
Sequence in context: A221321 A367959 A179392 * A343713 A089652 A195467
KEYWORD
nonn,base,uned,changed
AUTHOR
Roger L. Bagula, May 14 2005
STATUS
approved