A066054 'Reverse and Add!' trajectory of 10583.
10583, 49084, 97178, 184357, 937838, 1776577, 9533348, 17966707, 88733678, 176367466, 841131137, 1572262285, 7394885036, 13700769973, 51697470704, 92404950319, 183710890748, 1030808908129, 10248906988430, 13737867972631
Offset: 0
Examples
a(1) = 10583 + 38501 = 49084.
Links
- Harry J. Smith and Vincenzo Librandi, Table of n, a(n) for n = 0..1000 (the first 150 terms from Harry J. Smith)
- Index entries for sequences related to Reverse and Add!
Programs
-
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;
-
Haskell
a066054 n = a066054_list !! n a066054_list = iterate a056964 10583 -- Reinhard Zumkeller, Sep 22 2011
-
Mathematica
NestList[# + FromDigits[Reverse[IntegerDigits[#]]]&, 10583, 40] (* Vincenzo Librandi, May 03 2014 *)
-
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