A118633 Start with 1 and repeatedly reverse the digits and add 37 to get the next term.
1, 38, 120, 58, 122, 258, 889, 1025, 5238, 8362, 2675, 5799, 10012, 21038, 83049, 94075, 57086, 68112, 21223, 32249, 94260, 6286, 6863, 3723, 3310, 170, 108, 838, 875, 615, 553, 392, 330, 70, 44, 81, 55, 92, 66, 103, 338, 870, 115, 548, 882, 325, 560
Offset: 1
Links
- N. J. A. Sloane and others, Sequences of RADD type, OEIS wiki.
- Index entries for linear recurrences with constant coefficients, signature (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1).
Programs
-
Mathematica
NestList[IntegerReverse[#]+37&,1,60] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Oct 14 2018 *)
Comments