A065211 Numbers which need six 'Reverse and Add' steps to reach a palindrome.
79, 97, 182, 281, 380, 779, 799, 889, 977, 988, 997, 1069, 1079, 1159, 1169, 1249, 1259, 1339, 1349, 1429, 1439, 1519, 1529, 1609, 1619, 1699, 1709, 1789, 1799, 1879, 1889, 1896, 1969, 1979, 1986, 2059, 2068, 2078, 2089, 2149, 2158, 2168, 2179, 2239
Offset: 1
Links
Programs
-
Mathematica
palQ[n_] := Module[{idn = IntegerDigits[n]}, idn == Reverse[idn]]; pal6Q[ n_]:= Module[{c=NestList[#+FromDigits[Reverse[IntegerDigits[#]]]&, n,6]}, palQ/@c=={False,False,False,False,False,False,True}]; Select[Range[ 2300],pal6Q] (* Harvey P. Dale, Sep 09 2012 *)
Extensions
Offset changed from 0 to 1 by Harry J. Smith, Oct 14 2009
Comments