OFFSET
1,1
COMMENTS
EXAMPLE
a(25) is 47 because Q(25)*47 + 1 is also prime and minimal with this property: Q(25)*47 + 1 = 47*2305567963945518424753102147331756070 + 1 = 108361694305439365963395800924592535291 is a minimal prime. The first 6 terms (2,2,2,2,2,5) correspond to first entries in A005384, A007693, A051645, A051647, A051653, A051654 respectively.
MATHEMATICA
Table[p = 2; While[! PrimeQ[Product[Prime@ i, {i, n}] p + 1], p = NextPrime@ p]; p, {n, 68}] (* Michael De Vlieger, Jun 29 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Dec 15 1999
EXTENSIONS
More terms from Michael De Vlieger, Jun 29 2017
STATUS
approved