|
%I #28 Nov 03 2023 16:00:28
%S 9,18,99,198,1089,10890,20691,40293,79497,158994,658845,1207701,
%T 2284722,4559544,9019098,17928207,88211178,175322466,839546037,
%U 1570191975,7362102726,13634115363,49985258994,99970517988,188942025987,978462275868,1847034540747,9317488848228
%N Trajectory of 9 under map x->x + (x-with-digits-reversed).
%C Trajectories of 27, 36, 45, 54, 63, 72, 81, 90, ..., merge into this sequence. - _Robert G. Wilson v_, Dec 16 2005.
%H Alois P. Heinz, <a href="/A033651/b033651.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, 9, (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@# &, 9, 26] (* _Robert G. Wilson v_ *)
%o (Haskell)
%o a063051 n = a063051_list !! n
%o a063051_list = iterate a056964 879 -- _Reinhard Zumkeller_, Sep 22 2011
%Y Cf. A006960, A001127, A033648, A033649, A033650.
%Y Cf. A056964, A004086.
%Y Row n=9 of A243238.
%Y Partial sums of A112296.
%K nonn,base
%O 0,1
%A _N. J. A. Sloane_.
|
