A060097 Denominator of coefficients of Euler polynomials (rising powers).

1, 2, 1, 1, 1, 1, 4, 1, 2, 1, 1, 1, 1, 1, 1, 2, 1, 2, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 8, 1, 2, 1, 4, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 2, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 4, 1, 2, 1, 4, 1, 1, 1, 4, 1, 2, 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, 1

Offset

0,2

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

Table of n, a(n) for n=0..104.

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, -1/2, 1, 0, -1, 1, 1/4, 0, -3/2, 1, 0, 1, 0, -2, 1, -1/2, 0, 5/2, 0, -5/2, 1, 0, -3, 0, 5, 0, -3, 1, 17/8, 0, -21/2, 0, 35/4, 0, -7/2, 1, 0, 17, 0, -28, 0, 14, 0, -4, 1, ... = A060096/A060097

Mathematica

Denominator[Flatten[Table[CoefficientList[EulerE[n, x], x], {n, 0, 13}]]] (* Jean-François Alcover, Apr 29 2011 *)

Crossrefs

For numerators see A060096.

Sequence in context: A161856 A122944 A107688 * A098120 A098873 A257462

Adjacent sequences: A060094 A060095 A060096 * A060098 A060099 A060100

Keyword

nonn,easy,tabl,frac

Author

Wolfdieter Lang, Mar 29 2001

Status

approved