OFFSET
2,2
LINKS
Harvey P. Dale, Table of n, a(n) for n = 2..200
MATHEMATICA
Count[#, _?CompositeQ]&/@(Module[{pr=Prime[Range[50]]}, Range[ NextPrime[ Last[#], -1]+1, NextPrime[Total[#]]-1]&/@Thread[{pr, Rest[ FoldList[ Times, 1, pr]]}]]) (* Harvey P. Dale, Aug 03 2014 *)
PROG
(PARI) primorialgaps(m) = { forprime(n=2, m, c=0; np=primorial(n); for(x=precprime(np), nextprime(np+n), if(!isprime(x), c++)); print1(c", ") ) } primorial(k) = { p=1; forprime(z=1, k, p*=z); return(p) }
CROSSREFS
KEYWORD
nonn
AUTHOR
Cino Hilliard, Nov 04 2003
STATUS
approved