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,1

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!

Example

a(1) = 879 + 978 = 1857.

Mathematica

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

Prog

(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;
(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]
(Haskell)
a033651 n = a033651_list !! n
a033651_list = iterate a056964 9 -- Reinhard Zumkeller, Sep 22 2011

Crossrefs

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

Sequence in context: A093943 A252437 A129313 * A190030 A118799 A050424

Adjacent sequences: A063048 A063049 A063050 * A063052 A063053 A063054

Keyword

base,nonn

Author

Klaus Brockhaus, Jul 07 2001

Status

approved