A233447 - OEIS

%I #6 Dec 21 2013 03:54:45

%S 4,12,32,72,144,288,576,1080,1920,3456,6283,10996,18609,31901,53169,

%T 86400,137223,213458,337040,539264,847415,1309642,1992933,2989400,

%U 4543888,6815833,10097530,15146295,22980586,34470879,51150337,76725506,113925752,167537870,244126611

%N Floor(compositorial(n) / n!), that is, floor(A036691(n) / A000142(n)).

%F a(n) = floor(A036691(n) / A000142(n)).

%o (PARI) a(n)=my(c,p,N);N=n;c=4;p=1;while(n>0,if(!isprime(c),p=p*c;n=n-1);c=c+1);floor(p/N!) \\ _Ralf Stephan_, Dec 21 2013

%Y Cf. A000142, A036691.

%K nonn

%O 1,1

%A _Alex Ratushnyak_, Dec 10 2013