A118863 Start with 1 and repeatedly place the first digit at the end of the number and add 16.

1, 17, 87, 94, 65, 72, 43, 50, 21, 28, 98, 105, 67, 92, 45, 70, 23, 48, 100, 17, 87, 94, 65, 72, 43, 50, 21, 28, 98, 105, 67, 92, 45, 70, 23, 48, 100, 17, 87, 94, 65, 72, 43, 50, 21, 28, 98, 105, 67, 92, 45, 70, 23, 48, 100, 17, 87, 94, 65, 72, 43, 50, 21, 28, 98, 105, 67, 92

Offset

1,2

Comments

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

Links

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

Mathematica

NestList[FromDigits[RotateLeft[IntegerDigits[#]]]+16&, 1, 70] (* or *) PadRight[{1}, 70, {100, 17, 87, 94, 65, 72, 43, 50, 21, 28, 98, 105, 67, 92, 45, 70, 23, 48}] (* Harvey P. Dale, Jan 04 2023 *)

Crossrefs

Sequence in context: A328010 A041554 A080770 * A118533 A061679 A271567

Adjacent sequences: A118860 A118861 A118862 * A118864 A118865 A118866

Keyword

base,nonn

Author

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

Status

approved