%I #12 Feb 24 2023 12:05:52
%S 1,2,4,8,20,72,360,282,422,80,410,30,114,44,194,492,480,410,30,114,44,
%T 194,492,480,410,30,114,44,194,492,480,410,30,114,44,194,492,480,410,
%U 30,114,44,194,492,480,410,30,114,44,194,492,480,410,30,114,44,194,492,480
%N a(0) = 1, a(1) = 2; thereafter a(n) = prime(mod(a(n-1),100))+1.
%C Starting with the tenth term, cycles every seven terms. - _Robert G. Wilson v_, Dec 13 2005
%D Zak Seidov, Posting to Seq Fan mailing list, Nov 28 2005
%e a(2) = prime(2) + 1 = 3+1 = 4, a(3) = prime(4) + 1 = 19+1 = 20, and so on. But remember to reduce the primes mod 100 when they get large. - _N. J. A. Sloane_, Feb 24 2023
%t Join[{1},NestList[Prime[Mod[#,100]]+1&,2,100]] (* _Harvey P. Dale_, Feb 24 2023 *)
%K nonn
%O 0,2
%A _N. J. A. Sloane_, Nov 24 2005
%E More terms from _Robert G. Wilson v_, Dec 13 2005
%E Revised by _N. J. A. Sloane_, Feb 24 2023