login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A066054 'Reverse and Add!' trajectory of 10583. 3
10583, 49084, 97178, 184357, 937838, 1776577, 9533348, 17966707, 88733678, 176367466, 841131137, 1572262285, 7394885036, 13700769973, 51697470704, 92404950319, 183710890748, 1030808908129, 10248906988430, 13737867972631 (list; graph; refs; listen; history; text; internal format)
OFFSET
0,1
LINKS
Harry J. Smith and Vincenzo Librandi, Table of n, a(n) for n = 0..1000 (the first 150 terms from Harry J. Smith)
EXAMPLE
a(1) = 10583 + 38501 = 49084.
MATHEMATICA
NestList[# + FromDigits[Reverse[IntegerDigits[#]]]&, 10583, 40] (* Vincenzo Librandi, May 03 2014 *)
PROG
(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;
(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
(Haskell)
a066054 n = a066054_list !! n
a066054_list = iterate a056964 10583 -- Reinhard Zumkeller, Sep 22 2011
CROSSREFS
Sequence in context: A302772 A063433 A089494 * A224425 A179426 A229881
KEYWORD
base,nonn
AUTHOR
Klaus Brockhaus, Nov 30 2001
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 29 07:27 EDT 2024. Contains 371265 sequences. (Running on oeis4.)