|
|
A141588
|
|
Numerators of expansion for Debye function (D(1,x)) A120082 with 1's instead of 0's.
|
|
0
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,13
|
|
COMMENTS
|
(Bernoulli numbers numerators) A027641(n)/a(n) is an integer sequence.
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
uned,sign
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|