A118091 Start with 1 and repeatedly reverse the digits and add 46 to get the next term.

1, 47, 120, 67, 122, 267, 808, 854, 504, 451, 200, 48, 130, 77, 123, 367, 809, 954, 505, 551, 201, 148, 887, 834, 484, 530, 81, 64, 92, 75, 103, 347, 789, 1033, 3347, 7479, 9793, 4025, 5250, 571, 221, 168, 907, 755, 603, 352, 299, 1038, 8347, 7484, 4893

Offset: 1

Author

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

Keywords

• base
• nonn
• changed

Comments

After 422 steps enters a cycle of 90. All 90 numbers of the cycle are 4-digit numbers.

Links

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

Crossrefs

Cf. A117828, A117816, A117817.

Programs

Mathematica

NestList[FromDigits[Reverse[IntegerDigits[#]]]+46&,1,50] (* Harvey P. Dale, Sep 24 2013 *)
NestList[IntegerReverse[#]+46&,1,60] (* Harvey P. Dale, Sep 02 2025 *)

Extensions

Corrected by Harvey P. Dale, Sep 24 2013