A065319 30 'Reverse and Add' steps are needed to reach a palindrome.
10548, 11538, 12528, 13518, 14508, 20547, 21537, 22527, 23517, 24507, 30546, 31536, 32526, 33516, 34506, 40545, 40849, 41535, 41839, 42525, 42829, 43515, 43819, 44505, 44809, 44899, 45889, 46879, 47869, 48859, 49849, 50544, 50848
Offset: 1
Links
Programs
-
Mathematica
lenQ[n_]:= Length[NestWhileList[# + FromDigits[Reverse[IntegerDigits[#]]]&, n, #! = FromDigits[Reverse[IntegerDigits[#]]]&, 1, 31]] == 31; Select[Range[10000], lenQ] (* Vincenzo Librandi, Sep 24 2013 *)
Extensions
Changed offset from 0 to 1 by Vincenzo Librandi, Sep 24 2013
Comments