A141588 Numerators of expansion for Debye function (D(1,x)) A120082 with 1's instead of 0's.

1, -1, 1, 1, -1, 1, 1, 1, -1, 1, 1, 1, -691, 1, 1, 1, -3617, 1, 43867, 1, -174611, 1, 77683, 1, -236364091, 1, 657931, 1, -3392780147, 1, 1723168255201, 1, -7709321041217, 1, 151628697551, 1, -26315271553053477373

Offset: 0

Author

Paul Curtz, Aug 20 2008

Keywords

• uned
• sign

Comments

(Bernoulli numbers numerators) A027641(n)/a(n) is an integer sequence.

Note 1's in denominators A120083. A120082 and A027641 are analogous.

Programs

Mathematica

swfact[n_] := n!/Floor[n/2]!^2; a[n_] := 2*Zeta[n]*swfact[n]/(2*Pi)^n*If[Mod[n, 4] == 0, -1, 1]; a[0]=1; a[1]=-1; a[?OddQ] = 0; Numerator[ Table[a[n], {n, 0, 36}]] /. (0 -> 1) (* _Jean-François Alcover, Aug 09 2012 *)

Extensions

Typo a(14)=7 instead of 1 fixed by Jean-François Alcover, Aug 09 2012