login
A007396
Add 2, then reverse digits!.
(Formerly M0983)
1
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,2
COMMENTS
At 6, the sequence becomes periodic with period 81. [T. D. Noe, Oct 05 2008]
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
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).
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 *)
CROSSREFS
Cf. A117521. [T. D. Noe, Oct 05 2008]
Sequence in context: A133311 A088402 A077492 * A169910 A004519 A036839
KEYWORD
nonn,base,easy
EXTENSIONS
More terms from Jon E. Schoenfield and John W. Layman, Mar 27 2010
STATUS
approved