login
A118146
Start with 1 and repeatedly reverse the digits and add 49 to get the next term.
0
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,2
COMMENTS
After 1 step enters a cycle of 54.
LINKS
N. J. A. Sloane and others, Sequences of RADD type, OEIS wiki.
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 *)
CROSSREFS
KEYWORD
base,nonn,less
AUTHOR
Luc Stevens (lms022(AT)yahoo.com), May 14 2006
STATUS
approved