OFFSET
0,2
COMMENTS
Normally one stops as soon as a palindrome is reached.
A Reverse and Add! sequence.
Trajectories of 25, 34, 43, 52, 59, 61, 68, 70, 86, 95, ..., merge into this sequence. - Robert G. Wilson v, Dec 16 2005
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..1000 (first 251 terms from Reinhard Zumkeller)
MAPLE
a:= proc(n) option remember; `if`(n=0, 1, (h-> h+ (s->
parse(cat(s[-i]$i=1..length(s))))(""||h))(a(n-1)))
end:
seq(a(n), n=0..40); # Alois P. Heinz, Jun 18 2014
MATHEMATICA
NestList[ # + FromDigits@Reverse@IntegerDigits@# &, 1, 30] (* Robert G. Wilson v, Dec 16 2005 *)
NestList[#+IntegerReverse[#]&, 1, 30] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Nov 19 2019 *)
PROG
(Haskell)
a001127 n = a001127_list !! n
a001127_list = iterate a056964 1 -- Reinhard Zumkeller, Sep 22 2011
CROSSREFS
KEYWORD
nonn,base,easy,nice
AUTHOR
N. J. A. Sloane, Jun 05 2002
STATUS
approved