%I #7 Mar 18 2023 23:01:39
%S 1,3,10,60,560,6960,108160,2016960,43880960,1091055360,30518978560,
%T 948529167360,32428291727360,1209444693749760,48866368072744960,
%U 2126271870148853760,99126722911299829760,4929370112679276380160,260448010952742716047360,14570492989330164551516160
%N P_n(3) (see A155100).
%t nn = 18; Table[n!, {n, 0, nn}] CoefficientList[Series[1 - Log[Cos[x] - 3*Sin[x]], {x, 0, nn}], x] (* _Arkadiusz Wesolowski_, Aug 17 2012 *)
%Y Cf. A155100.
%K nonn
%O -1,2
%A _N. J. A. Sloane_, Nov 05 2009