A065215 Numbers which need ten 'Reverse and Add' steps to reach a palindrome.
829, 928, 9059, 9149, 9239, 9329, 9419, 9509, 9599, 9689, 9869, 9959, 10634, 10637, 10687, 10716, 10808, 10834, 10838, 10867, 10873, 10898, 10927, 10979, 11398, 11624, 11627, 11677, 11706, 11824, 11828, 11857, 11863, 11888, 11917, 11969, 12388, 12392, 12398, 12493
Offset: 1
Links
Programs
-
Mathematica
lenQ[n_]:= Length[NestWhileList[# + FromDigits[Reverse[IntegerDigits[#]]]&, n, #!= FromDigits[Reverse[IntegerDigits[#]]]&, 1, 11]] == 11; Select[Range[1000], lenQ] (* Vincenzo Librandi, Sep 24 2013 *)
Comments