OFFSET
1,1
LINKS
Zak Seidov, Table n, a(n) for n=1..2000
EXAMPLE
MATHEMATICA
b=1; a=1; Table[a=a*Prime[k-1]; i=0; While[Mod[b, Prime[k]] != k, i++; b=b+a]; i, {k, 2, 100}]
PROG
(PARI) m=Mod(1, 2); pr=2; for(n=1, 100, t=chinese(m, Mod(n+1, prime(n+1))); print1((lift(t)-lift(m))/pr", "); pr*=prime(n+1); m=t) \\ Charles R Greathouse IV, Jul 13 2011
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Jul 11 2011
STATUS
approved