OFFSET
1,1
EXAMPLE
3*5*7*11*13*17*19*23*29 - 2 = 43*167*450473 is composite.
MATHEMATICA
pp=1; lst={}; Do[p=Prime[n]; pp*=p; If[ !PrimeQ[pp-2], AppendTo[lst, p]], {n, 2, 2*5!}]; lst
Transpose[Select[With[{pros=Rest[FoldList[Times, 1, Prime[Range[100]]]]}, Table[ {Prime[n], pros[[n]]}, {n, 100}]], !PrimeQ[Last[#]/2-2]&]][[1]] (* Harvey P. Dale, Mar 02 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, May 31 2010
STATUS
approved