|
|
A065212
|
|
Seven 'Reverse and Add' steps are needed to reach a palindrome.
|
|
3
|
|
|
188, 190, 197, 287, 296, 386, 395, 485, 584, 593, 683, 692, 782, 791, 881, 890, 980, 1394, 1484, 1574, 1664, 1754, 1844, 1898, 1934, 1988, 1992, 1994, 1999, 2393, 2483, 2573, 2663, 2753, 2843, 2897, 2933, 2987, 2991, 2993, 2998, 3089, 3179, 3269, 3359
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
The number of steps starts at 0, so palindromes (cf. A002113) are excluded.
|
|
LINKS
|
|
|
MATHEMATICA
|
lenQ[n_]:= Length[NestWhileList[# + FromDigits[Reverse[IntegerDigits[#]]]&, n, #!= FromDigits[Reverse[IntegerDigits[#]]]&, 1, 10]] == 8; Select[Range[500], lenQ] (* Vincenzo Librandi, Sep 24 2013 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|