A004174 Triangle of coefficients of Euler polynomials 2^n*E_n(x) (exponents in increasing order).

1, -1, 2, 0, -4, 4, 2, 0, -12, 8, 0, 16, 0, -32, 16, -16, 0, 80, 0, -80, 32, 0, -192, 0, 320, 0, -192, 64, 272, 0, -1344, 0, 1120, 0, -448, 128, 0, 4352, 0, -7168, 0, 3584, 0, -1024, 256, -7936, 0, 39168, 0, -32256, 0, 10752, 0, -2304, 512, 0, -158720, 0

Offset: 0

Author

N. J. A. Sloane

Keywords

• sign
• tabl
• nice

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.

Links

• T. D. Noe, Rows n = 0..50 of triangle, 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].
• Eric Weisstein's World of Mathematics, Euler Polynomial.

Crossrefs

Cf. A099932.

Programs

Mathematica

Flatten[ Table[ CoefficientList[ 2^n*EulerE[n, x], x], {n, 0, 10}]] (* Jean-François Alcover, Jul 21 2011 *)