A130166 a(1)=1; a(n)=prime(mod(a(n-1),1000)).

1, 2, 3, 5, 11, 31, 127, 709, 5381, 2621, 4591, 4327, 2179, 1063, 307, 2027, 103, 563, 4091, 467, 3319, 2113, 617, 4549, 3967, 7607, 4463, 3299, 1979, 7717, 5431, 3001, 2, 3, 5, 11, 31, 127, 709, 5381, 2621, 4591, 4327, 2179, 1063, 307, 2027, 103, 563, 4091

Offset

1,2

Comments

Starting with the second term, cycles every 31 terms.

Not the same sequence as a(1)=1; a(n)=mod(prime(a(n-1)),1000).

Links

Table of n, a(n) for n=1..50.

Formula

a(1)=1; a(n)=prime(mod(a(n-1),1000)).

Mathematica

f[s_List] := Block[{}, Append[s, Mod[ Prime@ Last@ s, 1000]]]; Nest[f, {2}, 50]
NestList[Prime[Mod[#, 1000]]&, 1, 50] (* Harvey P. Dale, Jun 01 2012 *)

Crossrefs

Sequence in context: A090709 A357220 A112279 * A007097 A173422 A132745

Adjacent sequences: A130163 A130164 A130165 * A130167 A130168 A130169

Keyword

nonn,less

Author

Robert G. Wilson v, May 13 2007

Extensions

NAME adapted to offset. - R. J. Mathar, Jun 20 2021

Status

approved