A119455 Start with 1027 and repeatedly reverse the digits and add 16 to get the next term.
1027, 7217, 7143, 3433, 3359, 9549, 9475, 5765, 5691, 1981, 1907, 7107, 7033, 3323, 3249, 9439, 9365, 5655, 5581, 1871, 1797, 7987, 7913, 3213, 3139, 9329, 9255, 5545, 5471, 1761, 1687, 7877, 7803, 3103, 3029, 9219, 9145, 5435, 5361, 1651, 1577, 7767, 7693, 3983, 3909, 9109, 9035, 5325, 5251, 1541, 1467, 7657, 7583, 3873, 3799, 9989, 9915, 5215, 5141, 1431, 1357, 7547, 7473, 3763, 3689, 9879, 9805, 5105, 5031, 1321, 1247, 7437, 7363, 3653, 3579, 9769, 9695, 5985, 5911, 1211, 1137, 7327, 7253, 3543, 3469, 9659, 9585, 5875, 5801, 1101
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, 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, 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, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1).
Programs
-
Mathematica
NestList[FromDigits[Reverse[IntegerDigits[#]]]+16&,1027,90] (* Harvey P. Dale, Mar 11 2015 *) NestList[IntegerReverse[#]+16&,1027,90] (* Harvey P. Dale, Apr 26 2025 *)
Comments