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

Author

Wolfdieter Lang, Mar 29 2001

Keywords

• nonn
• easy
• tabl
• frac

Examples

			The rational triangle A060096(n,m)/a(n,m) starts
  n\m  0    1    2    3    4    5    6    7  8  ...
  0:   1
  1: -1/2   1
  2:   0   -1    1
  3:  1/4   0  -3/2   1
  4:   0    1    0   -2    1
  5: -1/2   0   5/2   0  -5/2   1
  6:   0   -3    0    5    0   -3    1
  7: 17/8   0 -21/2   0  35/4   0  -7/2   1
  8:   0   17    0  -28    0   14    0   -4  1
  ...
		

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.
• Jerome Spanier and Keith B. Oldham, "Atlas of Functions", Hemisphere Publishing Corp., 1987, chapter 20, equations 20:4:1 - 20:4:8 at pages 177-178.

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].

Crossrefs

For numerators see A060096.

Programs

Mathematica

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