OFFSET
1,1
MATHEMATICA
t = {}; p = 2*3*5*7; Do[ If[ PrimeQ[Prime[p*n] - p*3n] && PrimeQ[Prime[p*n] - p*2n] && PrimeQ[Prime[p*n] - p*n] && PrimeQ[Prime[p*n] + p*n] && PrimeQ[Prime[p*n] + p*2n] && PrimeQ[Prime[p*n] + p*3n], AppendTo[t, n]], {n, 2194723}]; p*t
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Sep 20 2005
STATUS
approved