
COMMENTS

No solutions found yet for n = {26, 39, 46, 59, 63, 68, 76, 81, 82, 84, 89} through prime(1700) = 14519.  Ray Chandler, Jan 23 2005
The sequence continues: a(26)=?, 5, 7, 7, 2, 19, 3, 3, 5, 5, 2, 19, 3, a(39)=?, 3, 5, 7, 5, 5, 3, a(46)=?, 3, 11, 17, 7, 2, 3, 43, 2, 7, 37, 7, 3, a(59)=?, 151, 31, 13, a(63)=?.  Robert G. Wilson v, Jan 12 2005


MATHEMATICA

Primorial[n_] := Product[Prime[i], {i, n}]; f[n_] := Block[{k = 1}, While[p = n*Primorial[k]; !PrimeQ[p  1]\  ! PrimeQ[p + 1], k++ ]; Prime[k]]; Table[ f[n], {n, 25}] (* Robert G. Wilson v, Jan 12 2005 *)
