OFFSET
1,2
COMMENTS
EXAMPLE
For row n=6, the next greater multiples are 6, 10, 12, 15, 16, and 17. These, divided by n..1 result in 1, 2, 3, 5, 8, and 17, the sum of which is a(6) = 36.
MATHEMATICA
a[n_] := Module[{k = n, s = Table[0, n], r}, s[[1]] = 1; Do[k++; k += If[(r = Mod[k, i]) == 0, 0, i - Mod[k, i]]; s[[n + 1 - i]] = k/i, {i, n - 1, 1, -1}]; Total[s]]; Array[a, 50] (* Amiram Eldar, Nov 16 2022 *)
PROG
(PARI) a(n) = my(v=vector(n)); v[1] = n; for (k=2, n, v[k] = v[k-1] + (n-k+1) - (v[k-1] % (n-k+1)); ); vecsum(vector(n, k, v[k]/(n-k+1))); \\ Michel Marcus, Nov 16 2022
CROSSREFS
KEYWORD
nonn
AUTHOR
Tamas Sandor Nagy, Nov 16 2022
EXTENSIONS
More terms from Thomas Scheuerle, Nov 16 2022
STATUS
approved