A374731 a(n) = a(n-1) + rotate(a(n-1), n-2 digits right) with a(1) = 1.

1, 2, 4, 8, 16, 32, 55, 110, 121, 332, 664, 1130, 2431, 4862, 7348, 12221, 24442, 46886, 133354, 266708, 1093378, 2027159, 4054318, 12459749, 37057240, 74114480, 81525928, 110341187, 220682374, 642750611, 759178117, 876937295, 1606524988, 10422590237, 20845180474, 62929698521, 84558995506

Offset

1,2

Links

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

Example

a(12) = a(11) + rotate(a(11), 11) = 1130 + rotate(1130, 11) = 1130 + 1301 = 2431.

Mathematica

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

Crossrefs

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

Sequence in context: A072207 A176718 A033860 * A374733 A231388 A330012

Adjacent sequences: A374728 A374729 A374730 * A374732 A374733 A374734

Keyword

nonn,base,easy

Author

Nicholas M. R. Frieler, Jul 17 2024

Status

approved