|
|
A065210
|
|
Five 'Reverse and Add' steps are needed to reach a palindrome.
|
|
3
|
|
|
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
(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
|
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 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|