OFFSET
1,1
MATHEMATICA
m = 0; p = 3; s = {}; Do[m = m + 2; While[! PrimeQ[p + m] || ! PrimeQ[p + 2*m + 2], p = NextPrime[p]]; AppendTo[s, p], {50}]; s
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Mar 01 2017
STATUS
approved