OFFSET
1,2
MATHEMATICA
Select[Range[5000], AllTrue[(60*# + {1, 13, 2, 14})/{1, 1, 2, 2}, PrimeQ] &] (* Amiram Eldar, Sep 08 2022 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Sep 08 2022
STATUS
approved