|
%I #5 Dec 21 2013 03:43:16
%S 1,2,4,8,18,39,85,191,425,940,2185,5183,12814,32711,84715,218141,
%T 555741,1376723,3457106,9544621,26048861,72830491,202468765,591526393,
%U 1717701641,4994058475,14800573301,44137423952,133960953399,413431218250,1247184175056,3842131894125
%N Floor(Primorial(n) / compositorial(n)), that is, floor(A002110(n) / A036691(n)).
%F a(n) = floor(A002110(n) / A036691(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(prod(i=1,N,prime(i))/p) \\ _Ralf Stephan_, Dec 21 2013
%Y Cf. A002110, A036691.
%K nonn
%O 12,2
%A _Alex Ratushnyak_, Dec 09 2013
|
