login
P_n(2) (see A155100).
1

%I #5 Aug 17 2012 10:32:14

%S 1,2,5,20,130,1120,12080,156320,2360080,40721920,790465280,

%T 17048837120,404482209280,10468697374720,293526944276480,

%U 8863147657809920,286741939970836480,9895168120066539520,362814031120908615680,14085379571459949854720,577210378447729271111680

%N P_n(2) (see A155100).

%t nn = 19; Table[n!, {n, 0, nn}] CoefficientList[Series[1 - Log[Cos[x] - 2*Sin[x]], {x, 0, nn}], x] (* _Arkadiusz Wesolowski_, Aug 17 2012 *)

%K nonn

%O -1,2

%A _N. J. A. Sloane_, Nov 05 2009