[go: up one dir, main page]

login
A065319
30 'Reverse and Add' steps are needed to reach a palindrome.
1
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,1
COMMENTS
The number of steps starts at 0, so palindromes (cf. A002113) are excluded. 30 is a record (cf. A065199) of the number of 'Reverse and Add' steps needed to reach a palindrome.
MATHEMATICA
lenQ[n_]:= Length[NestWhileList[# + FromDigits[Reverse[IntegerDigits[#]]]&, n, #! = FromDigits[Reverse[IntegerDigits[#]]]&, 1, 31]] == 31; Select[Range[10000], lenQ] (* Vincenzo Librandi, Sep 24 2013 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Klaus Brockhaus, Oct 30 2001
EXTENSIONS
Changed offset from 0 to 1 by Vincenzo Librandi, Sep 24 2013
STATUS
approved