A063060 'Reverse and Add!' trajectory of 10553.
10553, 46054, 91118, 172237, 904508, 1709917, 8908988, 17807086, 85877957, 161855815, 680413976, 1359728062, 3968007593, 7925016286, 14751121583, 53263237324, 95636473559, 191173937218, 1003913308409, 10051946501410
Offset: 0
Examples
a(1) = 10553 + 35501 = 46054.
Links
- Reinhard Zumkeller and Michael Lee, Table of n, a(n) for n = 0..2423 (terms 0 through 250 provided by Reinhard Zumkeller)
- Index entries for sequences related to Reverse and Add!
Programs
-
ARIBAS
m := 10553; 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
a063060 n = a063060_list !! n a063060_list = iterate a056964 10553 -- Reinhard Zumkeller, Sep 22 2011
-
Mathematica
NestList[# + FromDigits[Reverse[IntegerDigits[#]]]&, 10553, 40] (* Vincenzo Librandi, May 03 2014 *)
Extensions
Updated b-file from Michael Lee, Apr 01 2012