login
A379358
Denominators of the partial sums of the reciprocals of the 3rd Piltz function d_3(n) (A007425).
2
1, 3, 3, 6, 6, 18, 18, 45, 90, 90, 90, 45, 45, 45, 15, 1, 3, 18, 18, 9, 9, 1, 3, 30, 15, 45, 90, 5, 15, 135, 135, 945, 945, 945, 945, 3780, 3780, 3780, 3780, 756, 756, 756, 756, 756, 756, 756, 756, 3780, 3780, 3780, 3780, 3780, 3780, 756, 756, 3780, 3780, 3780
OFFSET
1,2
REFERENCES
Jean-Marie De Koninck and Aleksandar Ivić, Topics in Arithmetical Functions, North-Holland Publishing Company, Amsterdam, Netherlands, 1980. See pp. 12-13, Theorem 1.2.
József Sándor, Dragoslav S. Mitrinović, and Borislav Crstici, Handbook of Number Theory I, Springer Science & Business Media, 2005, Chapter II, page 59.
LINKS
Aleksandar Ivić, On the asymptotic formulae for some functions connected with powers of the zeta-function, Matematički Vesnik, Vol. 1 (14) (29) (1977), pp. 79-90.
FORMULA
a(n) = denominator(Sum_{k=1..n} 1/A007425(k)).
MATHEMATICA
f[p_, e_] := (e+1)*(e+2)/2; d3[1] = 1; d3[n_] := Times @@ f @@@ FactorInteger[n]; Denominator[Accumulate[Table[1/d3[n], {n, 1, 100}]]]
PROG
(PARI) d3(n) = vecprod(apply(e -> (e+1)*(e+2)/2, factor(n)[, 2]));
list(nmax) = {my(s = 0); for(k = 1, nmax, s += 1 / d3(k); print1(denominator(s), ", "))};
CROSSREFS
Cf. A007425, A061201, A104529, A379357 (numerators).
Sequence in context: A280510 A292128 A117775 * A243307 A021301 A016652
KEYWORD
nonn,easy,frac
AUTHOR
Amiram Eldar, Dec 21 2024
STATUS
approved