%I A112278
%S A112278 1,2,4,8,20,72,360,282,422,80,410,30,114,44,194,492,480,410,30,114,44,
%T A112278 194,492,480,410,30,114,44,194,492,480,410,30,114,44,194,492,480,410,30,
%U A112278 114,44,194,492,480,410,30,114,44,194,492,480,410,30,114,44,194,492,480
%N A112278 a(0) = 1; a(n) = prime(mod(a(n-1),100))+1.
%C A112278 Starting with the tenth term, cycles every seven terms. - Robert G. Wilson 
               v (rgwv(at)rgwv.com), Dec 13 2005
%D A112278 Zak Seidov, Posting to Seq Fan mailing list, Nov 28 2005
%t A112278 a[0] = 1; a[n_] := a[n] = Prime[ Mod[ a[n - 1], 100]] + 1; Table[ a[n], 
               {n, 0, 59}] (* Robert G. Wilson v *)
%Y A112278 Sequence in context: A000116 A006407 A100447 this_sequence A059731 A001315 
               A002040
%Y A112278 Adjacent sequences: A112275 A112276 A112277 this_sequence A112279 A112280 
               A112281
%K A112278 nonn
%O A112278 0,2
%A A112278 N. J. A. Sloane (njas(AT)research.att.com), Nov 24 2005
%E A112278 More terms from Robert G. Wilson v (rgwv(at)rgwv.com), Dec 13 2005