A065210 Numbers which need five 'Reverse and Add' steps to reach a palindrome.
166, 176, 198, 265, 275, 297, 364, 374, 396, 463, 473, 495, 549, 562, 572, 594, 639, 648, 661, 671, 693, 738, 760, 770, 792, 837, 846, 891, 936, 945, 990, 1396, 1486, 1576, 1666, 1697, 1756, 1787, 1791, 1793, 1796, 1846, 1877, 1883, 1886, 1890, 1936
Offset: 1
Links
Programs
-
Mathematica
palQ[k_]:=IntegerDigits[k]==Reverse[IntegerDigits[k]]; fraQ[n_]:= Module[ {ras=NestList[#+FromDigits[Reverse[IntegerDigits[#]]]&,n,5]},palQ/@ ras=={False,False,False,False,False,True}]; Select[Range[2000],fraQ] (* Harvey P. Dale, Sep 28 2015 *)
Extensions
Offset changed to 1 by Harry J. Smith, Oct 14 2009
Comments