|
|
A130166
|
|
a(1)=1; a(n)=prime(mod(a(n-1),1000)).
|
|
0
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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
|
|
|
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
|
|
|
KEYWORD
|
nonn,less
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|