A118220 Start with 1 and repeatedly reverse the digits and add 72 to get the next term.
1, 73, 109, 973, 451, 226, 694, 568, 937, 811, 190, 163, 433, 406, 676, 748, 919, 991, 271, 244, 514, 487, 856, 730, 109, 973, 451, 226, 694, 568, 937, 811, 190, 163, 433, 406, 676, 748, 919, 991, 271, 244, 514, 487, 856, 730, 109, 973, 451, 226, 694, 568
Offset: 1
Links
- N. J. A. Sloane and others, Sequences of RADD type, OEIS wiki.
Programs
-
Mathematica
NestList[IntegerReverse[#]+72&,1,60] (* Requires Mathematica version 10 or later *) (* or *) PadRight[{1,73},60,{856,730,109,973,451,226,694,568,937,811,190,163,433,406,676,748,919,991,271,244,514,487}] (* Harvey P. Dale, Apr 15 2020 *)
Extensions
Corrected by Harvey P. Dale, Apr 15 2020
Comments