|
| |
|
|
A060097
|
|
Denominator of coefficients of Euler polynomials (rising powers).
|
|
4
| |
|
|
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
(list; table; graph; refs; listen; history; internal format)
|
|
|
|
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
| 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}]]] (* From Jean-François Alcover, Apr 29 2011 *)
|
|
|
CROSSREFS
| For numerators see A060096.
Sequence in context: A161856 A122944 A107688 * A098120 A098873 A046876
Adjacent sequences: A060094 A060095 A060096 * A060098 A060099 A060100
|
|
|
KEYWORD
| nonn,easy,tabl,frac
|
|
|
AUTHOR
| Wolfdieter Lang (wolfdieter.lang(AT)physik.uni-karlsruhe.de), Mar 29 2001
|
| |
|
|
