A063433 'Reverse and Add!' trajectory of 10577.

10577, 88078, 175166, 836737, 1574375, 7309126, 13528163, 49710694, 99312488, 187733887, 976071668, 1842242347, 9274664828, 17559329557, 93151725128, 175304440267, 937348843838, 1775697687577, 9533565653348, 17967131306707

Offset: 0

Author

Klaus Brockhaus, Jul 20 2001

Keywords

• base
• nonn

Examples

			a(1) = 10577 + 77501 = 88078.
		

Links

• Harry J. Smith, Table of n, a(n) for n=0,...,200
• Index entries for sequences related to Reverse and Add!

Crossrefs

A033865, A023108, A006960, A063434.

Cf. A056964, A004086.

Programs

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;

Haskell

a063433 n = a063433_list !! n
a063433_list = iterate a056964 10577 -- Reinhard Zumkeller, Sep 22 2011

Mathematica

NestList[#+FromDigits[Reverse[IntegerDigits[#]]]&,10577, 20]  (* Harvey P. Dale, Apr 03 2011 *)

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