OFFSET
1,2
COMMENTS
a(22) > 25000. - Robert Price, Aug 06 2017
MATHEMATICA
k = 1; a = {}; Do[k = k*Prime[n]; If[PrimeQ[k + 2*Prime[n + 1]], AppendTo[a, n - 1]], {n, 2, 2000}]; a (* Artur Jasinski *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Artur Jasinski, Apr 22 2008
EXTENSIONS
a(16)-a(21) from Robert Price, Aug 06 2017
STATUS
approved