cp's OEIS Frontend

A033650 Trajectory of 7 under map x --> x + (x-with-digits-reversed).

%I A033650 #26 Nov 03 2023 16:06:26
%S A033650 7,14,55,110,121,242,484,968,1837,9218,17347,91718,173437,907808,
%T A033650 1716517,8872688,17735476,85189247,159487405,664272356,1317544822,
%U A033650 3602001953,7193004016,13297007933,47267087164,93445163438,176881317877,955594506548,1801200002107
%N A033650 Trajectory of 7 under map x --> x + (x-with-digits-reversed).
%C A033650 A Reverse and Add! sequence.
%C A033650 Trajectories of 19, 23, 28, 29, 32, 37, 38, 41, 46, 47, 49, 50, ..., merge into this sequence. - _Robert G. Wilson v_, Dec 16 2005
%C A033650 A Reverse and Add! sequence.
%H A033650 Alois P. Heinz, <a href="/A033650/b033650.txt">Table of n, a(n) for n = 0..1000</a> (first 251 terms from Reinhard Zumkeller)
%H A033650 <a href="/index/Res#RAA">Index entries for sequences related to Reverse and Add!</a>
%p A033650 a:= proc(n) option remember; `if`(n=0, 7, (h-> h+ (s->
%p A033650       parse(cat(s[-i]$i=1..length(s))))(""||h))(a(n-1)))
%p A033650     end:
%p A033650 seq(a(n), n=0..40);  # _Alois P. Heinz_, Jun 18 2014
%t A033650 NestList[ # + FromDigits@Reverse@IntegerDigits@# &, 7, 26] (* _Robert G. Wilson v_ *)
%o A033650 (Haskell)
%o A033650 a033650 n = a033650_list !! n
%o A033650 a033650_list = iterate a056964 7 -- _Reinhard Zumkeller_, Sep 22 2011
%Y A033650 Cf. A006960, A001127, A033648, A033649, A033651.
%Y A033650 Cf. A056964, A004086.
%Y A033650 Row n=7 of A243238.
%K A033650 nonn,base
%O A033650 0,1
%A A033650 _N. J. A. Sloane_