|
%I #20 Jun 15 2018 22:10:00
%S 10583,49084,97178,184357,937838,1776577,9533348,17966707,88733678,
%T 176367466,841131137,1572262285,7394885036,13700769973,51697470704,
%U 92404950319,183710890748,1030808908129,10248906988430,13737867972631
%N 'Reverse and Add!' trajectory of 10583.
%H Harry J. Smith and Vincenzo Librandi, <a href="/A066054/b066054.txt">Table of n, a(n) for n = 0..1000</a> (the first 150 terms from Harry J. Smith)
%H <a href="/index/Res#RAA">Index entries for sequences related to Reverse and Add!</a>
%e a(1) = 10583 + 38501 = 49084.
%t NestList[# + FromDigits[Reverse[IntegerDigits[#]]]&, 10583, 40] (* _Vincenzo Librandi_, May 03 2014 *)
%o (ARIBAS): m := 10583; 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=0); while (x>0, d=x%10; x\=10; r=r*10 + d); return(r) } { a=10583; for (n = 0, 150, if (n, a+=Rev(a)); write("b066054.txt", n, " ", a) ) } \\ _Harry J. Smith_, Nov 08 2009
%o (Haskell)
%o a066054 n = a066054_list !! n
%o a066054_list = iterate a056964 10583 -- _Reinhard Zumkeller_, Sep 22 2011
%Y Cf. A033865, A023108, A006960, A066055.
%Y Cf. A056964, A004086.
%K base,nonn
%O 0,1
%A _Klaus Brockhaus_, Nov 30 2001
|
