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