%I #35 Oct 27 2023 18:03:38
%S 1,2,4,8,16,77,154,605,1111,2222,4444,8888,17776,85547,160105,661166,
%T 1322332,3654563,7309126,13528163,49710694,99312488,187733887,
%U 976071668,1842242347,9274664828,17559329557,93151725128,175304440267,937348843838,1775697687577
%N Trajectory of 1 under map x->x + (x-with-digits-reversed).
%C Normally one stops as soon as a palindrome is reached.
%C A Reverse and Add! sequence.
%C Trajectories of 25, 34, 43, 52, 59, 61, 68, 70, 86, 95, ..., merge into this sequence. - _Robert G. Wilson v_, Dec 16 2005
%H Alois P. Heinz, <a href="/A001127/b001127.txt">Table of n, a(n) for n = 0..1000</a> (first 251 terms from Reinhard Zumkeller)
%H <a href="/index/Res#RAA">Index entries for sequences related to Reverse and Add!</a>
%p a:= proc(n) option remember; `if`(n=0, 1, (h-> h+ (s->
%p parse(cat(s[-i]$i=1..length(s))))(""||h))(a(n-1)))
%p end:
%p seq(a(n), n=0..40); # _Alois P. Heinz_, Jun 18 2014
%t NestList[ # + FromDigits@Reverse@IntegerDigits@# &, 1, 30] (* _Robert G. Wilson v_, Dec 16 2005 *)
%t NestList[#+IntegerReverse[#]&,1,30] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Nov 19 2019 *)
%o (Haskell)
%o a001127 n = a001127_list !! n
%o a001127_list = iterate a056964 1 -- _Reinhard Zumkeller_, Sep 22 2011
%Y Cf. A006960, A023108, A033648, A033649, A033650, A033651.
%Y Cf. A056964, A004086.
%Y Row n=1 of A243238.
%K nonn,base,easy,nice
%O 0,2
%A _N. J. A. Sloane_, Jun 05 2002