OFFSET
1,2
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
KEYWORD
nonn,base,easy
AUTHOR
Nicholas M. R. Frieler, Jul 17 2024
STATUS
approved