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,2

Links

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

Example

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

Mathematica

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

Crossrefs

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

Sequence in context: A176718 A033860 A374731 * A231388 A330012 A329824

Adjacent sequences: A374730 A374731 A374732 * A374734 A374735 A374736

Keyword

nonn,base,easy

Author

Nicholas M. R. Frieler, Jul 17 2024

Status

approved