|
%I #9 Aug 22 2016 13:04:34
%S 1,50,54,94,98,138,880,137,780,136,680,135,580,134,480,133,380,132,
%T 280,131,180,130,80,57,124,470,123,370,122,270,121,170,120,70,56,114,
%U 460,113,360,112,260,111,160,110,60,55,104,450,103,350,102,250,101,150,100
%N Start with 1 and repeatedly reverse the digits and add 49 to get the next term.
%C After 1 step enters a cycle of 54.
%H N. J. A. Sloane and others, <a href="/wiki/Sequences_of_RADD_type">Sequences of RADD type</a>, OEIS wiki.
%t NestList[FromDigits[Reverse[IntegerDigits[#]]]+49&,1,80]
%t NestList[IntegerReverse[#]+49&,1,70] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Aug 22 2016 *)
%Y Cf. A117828, A117816, A117817.
%K base,nonn,less
%O 1,2
%A Luc Stevens (lms022(AT)yahoo.com), May 14 2006
|
