%I #16 Aug 19 2016 00:43:05
%S 10577,88078,175166,836737,1574375,7309126,13528163,49710694,99312488,
%T 187733887,976071668,1842242347,9274664828,17559329557,93151725128,
%U 175304440267,937348843838,1775697687577,9533565653348,17967131306707
%N 'Reverse and Add!' trajectory of 10577.
%H Harry J. Smith, <a href="/A063433/b063433.txt">Table of n, a(n) for n=0,...,200</a>
%H <a href="/index/Res#RAA">Index entries for sequences related to Reverse and Add!</a>
%e a(1) = 10577 + 77501 = 88078.
%t NestList[#+FromDigits[Reverse[IntegerDigits[#]]]&,10577, 20] (* _Harvey P. Dale_, Apr 03 2011 *)
%o (ARIBAS): m := 10577; stop := 20; c := 0; rev := int_reverse(m); while m <> rev and c < stop do inc(c); write(m," "); m := m + rev; rev := int_reverse(m); end;
%o (PARI) Rev(x)= { local(d,r); r=0; while (x>0, d=x-10*(x\10); x\=10; r=r*10 + d); return(r) } { for (n=0, 200, if (n, a+=Rev(a), a=10577); write("b063433.txt", n, " ", a) ) } \\ _Harry J. Smith_, Aug 21 2009
%o (Haskell)
%o a063433 n = a063433_list !! n
%o a063433_list = iterate a056964 10577 -- _Reinhard Zumkeller_, Sep 22 2011
%Y A033865, A023108, A006960, A063434.
%Y Cf. A056964, A004086.
%K base,nonn
%O 0,1
%A _Klaus Brockhaus_, Jul 20 2001