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

Author

Nicholas M. R. Frieler, Jul 17 2024

Keywords

• nonn
• base
• easy

Examples

			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.
		

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..1000

Crossrefs

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

Programs

Mathematica

a[1] = 1; a[n_] := a[n] = a[n - 1] + FromDigits@RotateLeft[IntegerDigits[a[n - 1]], n - 1]; arr = a[#] & /@ Range[1, 100]
nxt[{n_,a_}]:={n+1,a+FromDigits[RotateLeft[IntegerDigits[a],n]]}; NestList[nxt,{1,1},30][[;;,2]] (* Harvey P. Dale, Nov 08 2024 *)