A063051 'Reverse and Add!' trajectory of 879.

879, 1857, 9438, 17787, 96558, 182127, 903408, 1707717, 8884788, 17759676, 85455447, 159910905, 668930856, 1326970722, 3597766953, 7194444906, 13288889823, 46187778054, 91275556218, 172541113437, 906852258708

Offset: 0

Author

Klaus Brockhaus, Jul 07 2001

Keywords

• base
• nonn

Examples

			a(1) = 879 + 978 = 1857.
		

Links

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

Crossrefs

Cf. A033865, A023108, A006960, A063052, A056964, A004086.

Programs

ARIBAS

m := 879; stop := 25; 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

a033651 n = a033651_list !! n
a033651_list = iterate a056964 9 -- Reinhard Zumkeller, Sep 22 2011

Mathematica

NestList[# + FromDigits[Reverse[IntegerDigits[#]]]&, 879, 40] (* Vincenzo Librandi, Sep 23 2013 *)

PARI

Rev(x)= { local(d); 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=879); write("b063051.txt", n, " ", a) ) } \\ Harry J. Smith, Aug 16 2009