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,13

Comments

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

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

Links

Table of n, a(n) for n=0..36.

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 *)

Crossrefs

Sequence in context: A120084 A358625 A249699 * A281331 A281332 A046968

Adjacent sequences: A141585 A141586 A141587 * A141589 A141590 A141591

Keyword

uned,sign

Author

Paul Curtz, Aug 20 2008

Extensions

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

Status

approved