A328492 First differences of A240510 (Numbers whose "reverse and add" process becomes palindromic at 8813200023188).
9, 89, 99, 99, 198, 99, 99, 88, 11, 88, 329, 90, 90, 90, 90, 90, 90, 90, 369, 90, 90, 90, 90, 90, 90, 90, 369, 90, 90, 90, 90, 90, 90, 90, 369, 90, 90, 90, 90, 90, 90, 90, 369, 90, 90, 90, 90, 90, 90, 90, 369, 90, 90, 90, 90, 90, 90, 90, 369, 90, 90, 90, 90
Offset: 1
Links
- Robert Price, Table of n, a(n) for n = 1..176
Programs
-
Mathematica
limit = 10^3; (* Assumes that there is no palindrome if none is found before "limit" iterations *) Differences@Select[Range[0, 50000], (np = #; i = 0; While[ ! PalindromeQ[np] && i < limit, np = np + IntegerReverse[np]; i++]; np == 8813200023188) &] (* Robert Price, Oct 16 2019 *)
Comments