OFFSET
4,1
EXAMPLE
a(9) = 161 == 0 (mod prime(9)=23).
MATHEMATICA
f[n_] := Block[{k = 1, p = Prime[n]}, While[Mod[k*p, 10] != 1, k++ ]; k*p]; Table[ f[n], {n, 4, 54}] (* Robert G. Wilson v *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Nov 12 2005
EXTENSIONS
More terms from Robert G. Wilson v, Nov 17 2005
STATUS
approved