OFFSET
1,1
MATHEMATICA
mexp = {the list in A000043}; Primorial[n_] := Product[ Prime[i], {i, n}]; f[n_] := Block[{k = 1}, While[Primorial[k] < 2^mexp[[n]] || !PrimeQ[ Primorial[k] - 2^mexp[[n]] + 1], k++ ]; Prime[k]]; Table[ f[n], {n, 15}] (* Robert G. Wilson v, Sep 28 2004 *)
CROSSREFS
KEYWORD
more,nonn
AUTHOR
Pierre CAMI, Sep 15 2004
EXTENSIONS
Corrected by Robert G. Wilson v, Sep 28 2004
a(19)-a(26) from Donovan Johnson, Feb 22 2008
STATUS
approved