A063063 'Reverse and Add!' trajectory of 10563.
10563, 47064, 93138, 176277, 948948, 1798797, 9777768, 18455547, 93011028, 175022067, 935242638, 1771485177, 9487326948, 17983564797, 97730103768, 184460207547, 930162272028, 1750434533067, 9353788873638, 17717577747177
Offset: 0
Examples
a(1) = 10563 + 36501 = 47064.
Links
- Reinhard Zumkeller and Michael Lee, Table of n, a(n) for n = 0..2383 (terms 0 through 250 provided by Reinhard Zumkeller)
- Index entries for sequences related to Reverse and Add!
Programs
-
ARIBAS
m := 10563; 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
a063063 n = a063063_list !! n a063063_list = iterate a056964 10563 -- Reinhard Zumkeller, Sep 22 2011
-
Mathematica
NestList[# + FromDigits[Reverse[IntegerDigits[#]]]&, 10563, 30] (* Vincenzo Librandi, May 03 2014 *)