OFFSET
2,1
LINKS
Alois P. Heinz, Table of n, a(n) for n = 2..100
MAPLE
[seq(nextprime(product(ithprime(k), k=1..w))-prevprime (product(ithprime(k), k=1..w)), w=2..50)];
MATHEMATICA
Rest[NextPrime[#]-NextPrime[#, -1]&/@Rest[FoldList[Times, 1, Prime[Range[ 50]]]]] (* Harvey P. Dale, Mar 24 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Nov 17 2000
EXTENSIONS
Offset corrected by Alois P. Heinz, Jun 08 2014
STATUS
approved