OFFSET
1,1
MATHEMATICA
Flatten[Position[Partition[Rest[FoldList[Times, 1, Prime[Range[ 600]]]], 3, 1], _?(PrimeQ[#[[3]]+#[[2]]-#[[1]]-1]&), {1}, Heads-> False]]+1 (* Harvey P. Dale, May 26 2013 *)
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Pierre CAMI, Mar 19 2007
EXTENSIONS
a(14)-a(16) from Michael S. Branicky, Jul 22 2023
STATUS
approved