%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