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.

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

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

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

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: A122944 A107688 A376267 * A098120 A098873 A377063

Adjacent sequences: A060094 A060095 A060096 * A060098 A060099 A060100

Keyword

nonn,easy,tabl,frac

Author

Wolfdieter Lang, Mar 29 2001

Status

approved