OFFSET
0,1
LINKS
Harry J. Smith and Michael Lee, Table of n, a(n) for n = 0..2366 (Harry J. Smith provided terms 0 through 200)
EXAMPLE
a(1) = 879 + 978 = 1857.
MATHEMATICA
NestList[# + FromDigits[Reverse[IntegerDigits[#]]]&, 879, 40] (* Vincenzo Librandi, Sep 23 2013 *)
PROG
(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;
(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]
(Haskell)
a033651 n = a033651_list !! n
a033651_list = iterate a056964 9 -- Reinhard Zumkeller, Sep 22 2011
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Klaus Brockhaus, Jul 07 2001
STATUS
approved