login
A233437
Floor(Primorial(n) / compositorial(n)), that is, floor(A002110(n) / A036691(n)).
1
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
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
Sequence in context: A218078 A110110 A300221 * A321200 A056362 A086585
KEYWORD
nonn
AUTHOR
Alex Ratushnyak, Dec 09 2013
STATUS
approved