OFFSET
1,2
FORMULA
Denominators of coefficients in expansion of Sum_{k>=1} (-1)^(k+1) * x^k / (k^2 * (1 - x^k)).
EXAMPLE
1, 3/4, 10/9, 11/16, 26/25, 5/6, 50/49, 43/64, 91/81, 39/50, 122/121, ...
MATHEMATICA
Table[Sum[(-1)^(d + 1)/d^2, {d, Divisors[n]}], {n, 1, 55}] // Denominator
nmax = 55; CoefficientList[Series[Sum[(-1)^(k + 1) x^k/(k^2 (1 - x^k)), {k, 1, nmax}], {x, 0, nmax}], x] // Denominator // Rest
PROG
(Python)
from sympy import divisors
from fractions import Fraction
def a(n): return sum(Fraction((-1)**(d+1), d*d) for d in divisors(n, generator=True)).denominator
print([a(n) for n in range(1, 56)]) # Michael S. Branicky, Oct 03 2022
(PARI) a(n) = denominator(sumdiv(n, d, (-1)^(d+1)/d^2)); \\ Michel Marcus, Oct 03 2022
CROSSREFS
KEYWORD
nonn,frac
AUTHOR
Ilya Gutkovskiy, Oct 03 2022
STATUS
approved