OFFSET
1,2
MATHEMATICA
Select[Range[0, 499], PrimeQ[90# + 71] && PrimeQ[90# + 73] &] (* copied from: Alonso del Arte, Jul 22 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
J. W. Helkenberg, Jul 22 2013
STATUS
approved