A059342 Triangle giving denominators of coefficients of Euler polynomials, highest powers first.

1, 1, 2, 1, 1, 1, 1, 2, 1, 4, 1, 1, 1, 1, 1, 1, 2, 1, 2, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 4, 1, 2, 1, 8, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 4, 1, 1, 1, 4, 1, 2, 1, 4, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2

Offset

0,3

References

M. Abramowitz and I. A. Stegun, eds., Handbook of Mathematical Functions, National Bureau of Standards Applied Math. Series 55, 1964 (and various reprintings), p. 809.

L. Comtet, Advanced Combinatorics, Reidel, 1974, p. 48, [14b].

Links

G. C. Greubel, Table of n, a(n) for the first 50 rows, flattened

M. Abramowitz and I. A. Stegun, eds., Handbook of Mathematical Functions, National Bureau of Standards, Applied Math. Series 55, Tenth Printing, 1972 [alternative scanned copy].

Example

1; x-1/2; x^2-x; x^3-3*x^2/2+1/4; ...

Maple

for n from 0 to 30 do for k from n to 0 by -1 do printf(`%d, `, denom(coeff(euler(n, x), x, k))) od:od:

Mathematica

Denominator[Table[Reverse[CoefficientList[Series[EulerE[n, x], {x, 0, 20}], x]], {n, 0, 10}]] (* G. C. Greubel, Jan 07 2017 *)

Crossrefs

Cf. A059341. See also A004172 A004173 A004174 A004175 A011934 A020523 A020524 A020525 A020526 A020547 A020548 A058940.

Sequence in context: A002217 A344173 A157047 * A357481 A062831 A037828

Adjacent sequences: A059339 A059340 A059341 * A059343 A059344 A059345

Keyword

nonn,tabf,frac,easy

Author

N. J. A. Sloane, Jan 27 2001

Extensions

More terms from James A. Sellers, Jan 29 2001

Status

approved