OFFSET
1,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..300
FORMULA
a(n) = numerator of (Zeta(2, 1/2) - Zeta(2, n-1/2)), where Zeta is the Hurwitz Zeta function. - Peter Luschny, Nov 14 2017
a(n) = numerator of Sum_{k=0..(n-2)} 4/(2*k+1)^2. - G. C. Greubel, Aug 23 2018
MAPLE
A173945 := n -> numer(add((k+1/2)^(-2), k=0..n-2)):
seq(A173945(n), n=1..16); # Peter Luschny, Nov 14 2017
MATHEMATICA
Table[Numerator[Pi^2/2 - Zeta[2, x/2]], {x, 1, 40, 2}] (* or *)
a[n_] := Numerator[Sum[(k+1/2)^(-2), {k, 0, n-2}]]; Table[a[n], {n, 1, 16}] (* Peter Luschny, Nov 14 2017 *)
PROG
(PARI) for(n=1, 20, print1(numerator(sum(k=0, n-2, 4/(2*k+1)^2)), ", ")) \\ G. C. Greubel, Aug 23 2018
(Magma) [0] cat [Numerator((&+[4/(2*k+1)^2: k in [0..n-2]])): n in [2..20]]; // G. C. Greubel, Aug 23 2018
CROSSREFS
KEYWORD
nonn,frac
AUTHOR
Artur Jasinski, Mar 03 2010
STATUS
approved