login
A088228
Number of composite numbers between the smallest primes that surround n# and n#+n. n# = n primorial = product of primes <= n.
1
1, 4, 6, 22, 22, 17, 47, 45, 79, 101, 138, 119, 71, 135, 173, 131, 167, 197, 189, 229, 175, 233, 285, 101, 353, 363, 335, 277, 485, 441, 385, 407, 1031, 519, 307, 363, 611, 477, 431, 381, 421, 605, 525, 1343, 605, 1229
OFFSET
2,2
LINKS
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
Sequence in context: A227249 A002270 A286358 * A272309 A108636 A101143
KEYWORD
nonn
AUTHOR
Cino Hilliard, Nov 04 2003
STATUS
approved