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 A085467 #21 Feb 16 2025 08:32:50 %S A085467 0,1,-7,1,-4,-25,1,-6,3,-98,3,-24,36,-8,-1167,3,-30,75,-40,-10,-4650, %T A085467 5,-60,210,-220,35,-56,-30930,45,-630,2835,-4620,2205,-378,-1589, %U A085467 -1111860,315,-5040,27720,-62160,52500,-13104,-4424,-36304,-31100895,35,-630,4095,-11760,14700,-6888 %N A085467 Numerators of coefficients of e^2 in the table of (2n)th du Bois Reymond constants. %H A085467 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/duBois-ReymondConstants.html">du Bois-Reymond Constants</a> %e A085467 {(-7 + e^2)/2, (-25 - 4*e^2 + e^4)/8, (-98 + 3*e^2 - 6*e^4 + e^6)/32}. %t A085467 c[2] = (1/2)*(E^2 - 7); c[n_] := Simplify[ ExpToTrig[ -2*Residue[ x^2/((x^2 + 1)^(n/2)*(Tan[x] - x)), {x, I}] - 3]]; row[n_] := Reverse[ coes = CoefficientList[ c[n], E^2]; coes*LCM @@ Denominator[coes]]; Flatten[ Table[ row[2*n], {n, 1, 9}]] (* _Jean-François Alcover_, Oct 25 2012, from formula given in A085466 *) %Y A085467 Cf. A085466. %K A085467 sign,frac,tabl %O A085467 0,3 %A A085467 _Eric W. Weisstein_, Jul 01 2003 %E A085467 Sequence has been prepended with a(0)=0 to enable table display (so offset has been set to 0 accordingly) by _Michel Marcus_, Sep 11 2013