A063051 - OEIS

%I #36 Aug 03 2014 14:26:12

%S 879,1857,9438,17787,96558,182127,903408,1707717,8884788,17759676,

%T 85455447,159910905,668930856,1326970722,3597766953,7194444906,

%U 13288889823,46187778054,91275556218,172541113437,906852258708

%N 'Reverse and Add!' trajectory of 879.

%H Harry J. Smith and Michael Lee, <a href="/A063051/b063051.txt">Table of n, a(n) for n = 0..2366</a> (Harry J. Smith provided terms 0 through 200)

%H <a href="/index/Res#RAA">Index entries for sequences related to Reverse and Add!</a>

%e a(1) = 879 + 978 = 1857.

%t NestList[# + FromDigits[Reverse[IntegerDigits[#]]]&, 879, 40] (* _Vincenzo Librandi_, Sep 23 2013 *)

%o (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;

%o (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]

%o (Haskell)

%o a033651 n = a033651_list !! n

%o a033651_list = iterate a056964 9 -- _Reinhard Zumkeller_, Sep 22 2011

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

%K base,nonn

%O 0,1

%A _Klaus Brockhaus_, Jul 07 2001