A118146 Start with 1 and repeatedly reverse the digits and add 49 to get the next term.

1, 50, 54, 94, 98, 138, 880, 137, 780, 136, 680, 135, 580, 134, 480, 133, 380, 132, 280, 131, 180, 130, 80, 57, 124, 470, 123, 370, 122, 270, 121, 170, 120, 70, 56, 114, 460, 113, 360, 112, 260, 111, 160, 110, 60, 55, 104, 450, 103, 350, 102, 250, 101, 150, 100

Offset: 1

Author

Luc Stevens (lms022(AT)yahoo.com), May 14 2006

Keywords

• base
• nonn
• less

Comments

After 1 step enters a cycle of 54.

Links

• N. J. A. Sloane and others, Sequences of RADD type, OEIS wiki.

Crossrefs

Cf. A117828, A117816, A117817.

Programs

Mathematica

NestList[FromDigits[Reverse[IntegerDigits[#]]]+49&,1,80]
NestList[IntegerReverse[#]+49&,1,70] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Aug 22 2016 *)