OFFSET
1,2
FORMULA
G.f. for fractions: (1/(1 - x)) * Sum_{k>=1} x^(k^2) / (k^2*(1 - x^(k^2))).
a(n) is the numerator of Sum_{k=1..floor(sqrt(n))} floor(n/k^2) / k^2.
a(n) / A384818(n) ~ Pi^4 * n / 90.
EXAMPLE
1, 2, 3, 17/4, 21/4, 25/4, 29/4, 17/2, 173/18, 191/18, 209/18, 463/36, ...
MATHEMATICA
nmax = 44; CoefficientList[Series[1/(1 - x) Sum[x^(k^2)/(k^2 (1 - x^(k^2))), {k, 1, nmax}], {x, 0, nmax}], x] // Numerator // Rest
Table[Sum[Floor[n/k^2]/k^2, {k, 1, Floor[Sqrt[n]]}], {n, 1, 44}] // Numerator
PROG
(PARI) a(n) = numerator(sum(k=1, n, sumdiv(k, d, if (issquare(d), 1/d)))); \\ Michel Marcus, Jun 10 2025
CROSSREFS
KEYWORD
nonn,frac
AUTHOR
Ilya Gutkovskiy, Jun 10 2025
STATUS
approved
