OFFSET
1,2
COMMENTS
Palindromes themselves are also 'Reverse and Add!'ed!
LINKS
Arkadiusz Wesolowski, Table of n, a(n) for n = 1..110
Eric Weisstein's World of Mathematics, Reverse-Then-Add Sequence
MATHEMATICA
lst = {}; rev[n_] := FromDigits@Reverse@IntegerDigits[n]; testQ[n_] := ! rev[n] == n; Do[n = 1; While[True, If[! testQ[n], p = n + rev[n]; If[Length@TakeWhile[NestList[# + rev[#] &, p, s - 1], testQ] == s - 1, AppendTo[lst, n]; Break[]]]; n++], {s, 40}]; lst
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Arkadiusz Wesolowski, Feb 24 2013
STATUS
approved