|
|
A072236
|
|
Numbers of primes between successive primorials.
|
|
1
|
|
|
1, 2, 7, 36, 297, 2905, 39083, 603698, 11637502, 288086265, 7728273214, 251460107734, 9155428058351, 353182833587645, 15035130777416118
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
EXAMPLE
|
There are 3 primes less than 6, 7 primes between 6 and 30 and 36 primes between 30 and 210.
|
|
MATHEMATICA
|
Table[ PrimePi[ Product[Prime[i], {i, 1, n}]] - PrimePi[ Product[ Prime[i], {i, 1, n - 1}]], {n, 1, 12}]
Join[{1}, Differences[PrimePi/@Rest[FoldList[Times, 1, Prime[Range[12]]]]]] (* Harvey P. Dale, Mar 16 2012 *) (* Mathematica's implementation of PrimePi will not work for the 13th primorial because it's too large *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,hard,more
|
|
AUTHOR
|
Stephan Wagler (stephanwagler(AT)aol.com), Jul 05 2002
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|