login
Start with 1 and repeatedly reverse the digits and add 45 to get the next term.
0

%I #13 Oct 09 2020 15:51:10

%S 1,46,109,946,694,541,190,136,676,721,172,316,658,901,154,496,739,982,

%T 334,478,919,964,514,460,109,946,694,541,190,136,676,721,172,316,658,

%U 901,154,496,739,982,334,478,919,964,514,460,109,946,694,541,190,136,676,721,172

%N Start with 1 and repeatedly reverse the digits and add 45 to get the next term.

%C After 2 steps enters a cycle of length 22.

%H N. J. A. Sloane and others, <a href="/wiki/Sequences_of_RADD_type">Sequences of RADD type</a>, OEIS wiki.

%H <a href="/index/Rec#order_22">Index entries for linear recurrences with constant coefficients</a>, signature (0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1).

%t NestList[IntegerReverse[#]+45&,1,60] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Oct 09 2020 *)

%Y Cf. A117828, A117816, A117817.

%K base,nonn,easy

%O 1,2

%A Luc Stevens (lms022(AT)yahoo.com), May 08 2006

%E New a(5)=a(27)=a(49)=694 inserted by _Georg Fischer_, Jul 17 2020