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

1, 2, 4, 8, 16, 32, 55, 110, 211, 332, 664, 1310, 1441, 2882, 11704, 52874, 105748, 586805, 1145485, 5996630, 9056596, 15962255, 41478217, 58892999, 154782298, 452937080, 1257466450, 7707592196, 9675299788, 18572052785, 46423909990, 145470333899, 484461788602

Offset: 1

Author

Nicholas M. R. Frieler, Jul 17 2024

Keywords

• nonn
• base
• easy

Examples

			a(13) = a(12) + rotate_left(a(12), 11) = 1310 + rotate_left(1310, 11) = 1310 + 0131 = 1441.
		

Crossrefs

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

Programs

Mathematica

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