|
%I #13 May 08 2018 15:11:55
%S 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,
%T 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,
%U 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
%N Denominator of coefficients of Euler polynomials (rising powers).
%D 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.
%H M. Abramowitz and I. A. Stegun, eds., <a href="http://www.convertit.com/Go/ConvertIt/Reference/AMS55.ASP">Handbook of Mathematical Functions</a>, National Bureau of Standards, Applied Math. Series 55, Tenth Printing, 1972 [alternative scanned copy].
%e 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
%t Denominator[Flatten[Table[CoefficientList[EulerE[n, x], x], {n, 0, 13}]]] (* _Jean-François Alcover_, Apr 29 2011 *)
%Y For numerators see A060096.
%K nonn,easy,tabl,frac
%O 0,2
%A _Wolfdieter Lang_, Mar 29 2001
|
