A118856 Start with 1 and repeatedly place the first digit at the end of the number and add 13.

1, 14, 54, 58, 98, 102, 34, 56, 78, 100, 14, 54, 58, 98, 102, 34, 56, 78, 100, 14, 54, 58, 98, 102, 34, 56, 78, 100, 14, 54, 58, 98, 102, 34, 56, 78, 100, 14, 54, 58, 98, 102, 34, 56, 78, 100, 14, 54, 58, 98, 102, 34, 56, 78, 100, 14, 54, 58, 98, 102, 34, 56, 78, 100, 14, 54

Offset

1,2

Comments

After 1 step the sequence enters a cycle of length 9.

Links

Table of n, a(n) for n=1..66.

Mathematica

NestList[Module[{a, b}, {a, b}=TakeDrop[IntegerDigits[#], 1]; FromDigits[ Join[ b, a]]]+13&, 1, 70] (* The program uses the TakeDrop function from Mathematica version 10 *) (* Harvey P. Dale, Feb 25 2016 *)

Crossrefs

Sequence in context: A214659 A241354 A240811 * A118530 A048971 A299646

Adjacent sequences: A118853 A118854 A118855 * A118857 A118858 A118859

Keyword

base,nonn

Author

Luc Stevens (lms022(AT)yahoo.com), May 24 2006

Status

approved