A374734 a(n) = a(n-1) + rotate(a(n-1), n-1 digits left) with a(1) = 1.

1, 2, 4, 8, 16, 77, 154, 695, 1264, 3905, 4444, 8888, 17776, 93953, 133348, 481481, 1296295, 7591424, 11839015, 50854133, 92189218, 114081407, 928152547, 1182945362, 10636566544, 47203110650, 78309615370, 139846693679, 606783485077, 955291245755, 1201047201046

Offset

1,2

Links

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

Example

Here we use -m (where m > 0) to represent rotating the digits of a number m digits to the left.
a(9) = a(8) + rotate(a(8), -8) = 695 + rotate(695, -8) = 695 + 569 = 1264.

Mathematica

a[1] = 1; a[n_] := a[n] = a[n - 1] + FromDigits@RotateLeft[IntegerDigits[a[n - 1]], n - 1]; arr = a[#] & /@ Range[1, 100]

Crossrefs

Cf. A001127, A051300, A051299, A374731, A374732, A374733.

Sequence in context: A374732 A051300 A001127 * A051299 A097049 A119490

Adjacent sequences: A374731 A374732 A374733 * A374735 A374736 A374737

Keyword

nonn,base,easy

Author

Nicholas M. R. Frieler, Jul 17 2024

Status

approved