OFFSET
1,2
MATHEMATICA
Select[Range[800], AllTrue[10#-{3, 7}, PrimeQ]&] (* Harvey P. Dale, May 05 2025 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Juri-Stepan Gerasimov, Mar 11 2010
EXTENSIONS
Corrected by Charles R Greathouse IV, Mar 21 2010
STATUS
approved
