OFFSET
1,2
REFERENCES
G. Pólya and G. Szegő, Problems and Theorems in Analysis II (Springer 1924, reprinted 1972), Part Eight, Chap. 1, Sect. 6, Problem 50.
LINKS
Robert Israel, Table of n, a(n) for n = 1..1150
Eric Weisstein's World of Mathematics, Odd Part
Eric Weisstein's World of Mathematics, Riemann Zeta Function zeta(2)
MAPLE
S:= 0: Res:= NULL:
for k from 1 to 25 do
S:= S + 1/k^2/2^padic:-ordp(k, 2);
Res:= Res, denom(S);
od:
Res; # Robert Israel, Jan 13 2020
MATHEMATICA
oddPart[n_] := n/2^IntegerExponent[n, 2];
x[n_] := Sum[oddPart[k]/k^3, {k, 1, n}];
a[n_] := Denominator[x[n]];
Array[a, 20] (* Jean-François Alcover, Dec 13 2021 *)
PROG
(Magma) val:=func<n|n/2^Valuation(n, 2)>; [Denominator(&+[val(k)/(k^3):k in [1..n]]):n in [1..20]]; // Marius A. Burtea, Jan 13 2020
CROSSREFS
KEYWORD
nonn,frac
AUTHOR
Reinhard Zumkeller, Aug 21 2005
STATUS
approved