A007396 Add 2, then reverse digits!. (Formerly M0983)

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

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).

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 *)

Crossrefs

Cf. A117521. [T. D. Noe, Oct 05 2008]

Sequence in context: A133311 A088402 A077492 * A169910 A004519 A036839

Adjacent sequences: A007393 A007394 A007395 * A007397 A007398 A007399

Keyword

nonn,base,easy

Author

N. J. A. Sloane.

Extensions

More terms from Jon E. Schoenfield and John W. Layman, Mar 27 2010

Status

approved