A120282 Numerator of the coefficients of k^2 term at Sum[Sum[(i-j)^(2n),{i,1,k}],{j,1,k}].

-1, 1, -5, 7, -15, 7601, -91, 3617, -745739, 3317609, -5981591, 5436374093, -213827575, 213745149261, -249859397004145, 238988952277727, -28354566442037, 26315271553053477373, -108409774812137683, 3394075340453838586663

Offset: 1

Author

Alexander Adamchuk, Jul 06 2006

Keywords

• frac
• sign

Crossrefs

Cf. A027643.

Programs

Mathematica

Numerator[Coefficient[Table[Sum[Sum[(i-j)^(2n),{i,1,k}],{j,1,k}],{n,1,20}],k,2]]

Formula

a(n) = numerator[Coefficient[Sum[Sum[(i-j)^(2n),{i,1,k}],{j,1,k}],k,2]]. a(n) = A027643(2n+3) - bisection of numerators of poly-Bernoulli numbers B_n^(k) with k=2.