login
P_n(3) (see A155100).
1

%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