This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A141588 #12 Dec 08 2023 16:04:43
%S A141588 1,-1,1,1,-1,1,1,1,-1,1,1,1,-691,1,1,1,-3617,1,43867,1,-174611,1,
%T A141588 77683,1,-236364091,1,657931,1,-3392780147,1,1723168255201,1,
%U A141588 -7709321041217,1,151628697551,1,-26315271553053477373
%N A141588 Numerators of expansion for Debye function (D(1,x)) A120082 with 1's instead of 0's.
%C A141588 (Bernoulli numbers numerators) A027641(n)/a(n) is an integer sequence.
%C A141588 Note 1's in denominators A120083. A120082 and A027641 are analogous.
%t A141588 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 *)
%K A141588 uned,sign
%O A141588 0,13
%A A141588 _Paul Curtz_, Aug 20 2008
%E A141588 Typo a(14)=7 instead of 1 fixed by _Jean-François Alcover_, Aug 09 2012