OFFSET
1,2
FORMULA
a(n) ~ 2*n^n. - Vaclav Kotesovec, Aug 20 2025
MATHEMATICA
Table[Sum[DivisorSigma[k, k]*DivisorSigma[n - k + 1, (n - k + 1)], {k, n}], {n, 20}]
With[{lst=Table[DivisorSigma[n, n], {n, 20}]}, Table[ListConvolve[Take[lst, k], Take[lst, k]], {k, Length[lst]}]]//Flatten (* Harvey P. Dale, Oct 17 2025 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Wesley Ivan Hurt, Jan 06 2022
STATUS
approved
