A007396 Add 2, then reverse digits!.
0, 2, 4, 6, 8, 1, 3, 5, 7, 9, 11, 31, 33, 53, 55, 75, 77, 97, 99, 101, 301, 303, 503, 505, 705, 707, 907, 909, 119, 121, 321, 323, 523, 525, 725, 727, 927, 929, 139, 141, 341, 343, 543, 545, 745, 747, 947, 949, 159, 161, 361, 363, 563, 565, 765, 767, 967, 969, 179
Offset: 0
References
- J. Roberts, Lure of the Integers, Math. Assoc. America, 1992, p. 15.
- David Singmaster, Proposer, Elementary Problem E3254, Amer. Math. Monthly, Vol. 97, No. 10, December 1990, pages 922-924. [N. J. A. Sloane, Jun 20 2023]
- N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
Links
- T. D. Noe, Table of n, a(n) for n = 0..1000
- Nick Hobson, Python program for this sequence
- Index entries for linear recurrences with constant coefficients, signature (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1).
Programs
-
Mathematica
s=0; Join[{s}, Table[s=FromDigits[Reverse[IntegerDigits[2+s]]], {100}]] (* T. D. Noe, Oct 05 2008 *) NestList[FromDigits[Reverse[IntegerDigits[#+2]]]&,0,100] (* Harvey P. Dale, Mar 13 2011 *) NestList[IntegerReverse[#+2]&,0,100] (* Harvey P. Dale, Dec 01 2024 *)
Extensions
More terms from Jon E. Schoenfield and John W. Layman, Mar 27 2010
Comments