|
%I #5 Aug 17 2012 10:32:20
%S 1,4,17,136,1666,27200,555152,13596736,388512016,12687211520,
%T 466101423872,19026204891136,854312172054016,41847505957437440,
%U 2220673304780705792,126906669626284711936,7770472824437270972416,507503647885498965032960,35217605908746553266470912
%N P_n(4) (see A155100).
%t nn = 17; Table[n!, {n, 0, nn}] CoefficientList[Series[1 - Log[Cos[x] - 4*Sin[x]], {x, 0, nn}], x] (* _Arkadiusz Wesolowski_, Aug 17 2012 *)
%K nonn
%O -1,2
%A _N. J. A. Sloane_, Nov 05 2009
|
