OFFSET
1,5
MATHEMATICA
k = 1/2; a = {}; Do[k = k*Prime[n]; m = 0; While[ ! PrimeQ[k + 2^m], m++ ]; Print[m]; AppendTo[a, m], {n, 100}]; a
PROG
(PARI) a(n)=my(t=prod(i=2, n, prime(i)), m); while(!isprime(t+2^m), m++); m \\ Charles R Greathouse IV, Apr 28 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
Artur Jasinski, Apr 21 2008
EXTENSIONS
a(1)=0 inserted and program corrected by Ray Chandler, Jun 16 2013
STATUS
approved