login
P_n(4) (see A155100).
1

%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