OFFSET
1,2
COMMENTS
LINKS
Vaclav Kotesovec, Table of n, a(n) for n = 1..10000
Vaclav Kotesovec, Plot of a(n) / (n^2 * (log(n) + 2*gamma - 1/2)^2) for n = 1..100000
MATHEMATICA
Table[Sum[DivisorSigma[0, j*k], {j, 1, n}, {k, 1, n}], {n, 1, 50}]
s = 1; Join[{1}, Table[s += DivisorSigma[0, n^2] + 2*Sum[DivisorSigma[0, j*n], {j, 1, n - 1}], {n, 2, 50}]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Vaclav Kotesovec, May 10 2024
STATUS
approved