OFFSET
1,1
MATHEMATICA
Flatten[Position[Partition[Rest[FoldList[Times, 1, Prime[Range[210]]]], 3, 1], _?(PrimeQ[#[[3]]-#[[2]]-#[[1]]-1]&), {1}, Heads->False]]+1 (* This generates the first 18 terms of the sequence. To generate the 19th term, change the Range constant to 4410, but it will take a very long time to run. *) (* Harvey P. Dale, Apr 23 2014 *)
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Pierre CAMI, Mar 19 2007
STATUS
approved