OFFSET
1,1
COMMENTS
a(10) > 3691000000, Robert G. Wilson v, Mar 23 2007
By definition the same as A088651(n)-1 if k exists. It is conjectured k always exists. - a(10)-a(15) from Jens Kruse Andersen, May 02 2008
MATHEMATICA
f[1] = 2; f[n_] := f[n] = Block[{k = PrimePi@ f[n - 1], p, t = Table[i*p + (i - 1), {i, 2, n}]}, While[p = Prime@k; Union@PrimeQ@t != {True}, k++ ]; p]; Do[ Print[f@n // Timing], {n, 10}] (* Robert G. Wilson v, Mar 23 2007 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Jonathan Vos Post and Ray Chandler, Jan 13 2005
EXTENSIONS
a(10)-a(15) from Jens Kruse Andersen, May 02 2008
STATUS
approved