A233437 Floor(Primorial(n) / compositorial(n)), that is, floor(A002110(n) / A036691(n)).

1, 2, 4, 8, 18, 39, 85, 191, 425, 940, 2185, 5183, 12814, 32711, 84715, 218141, 555741, 1376723, 3457106, 9544621, 26048861, 72830491, 202468765, 591526393, 1717701641, 4994058475, 14800573301, 44137423952, 133960953399, 413431218250, 1247184175056, 3842131894125

Offset

12,2

Links

Table of n, a(n) for n=12..43.

Formula

a(n) = floor(A002110(n) / A036691(n)).

Prog

(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

Crossrefs

Cf. A002110, A036691.

Sequence in context: A218078 A110110 A300221 * A321200 A056362 A086585

Adjacent sequences: A233434 A233435 A233436 * A233438 A233439 A233440

Keyword

nonn

Author

Alex Ratushnyak, Dec 09 2013

Status

approved