OFFSET
1,1
MATHEMATICA
Flatten[Table[If[PrimeQ[n] && PrimeQ[10*n - 1] && PrimeQ[( n - 1)/2], n, {}], {n, 1, 10000}]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula and Gary W. Adamson, Mar 11 2009
STATUS
approved