OFFSET
1,1
COMMENTS
MATHEMATICA
Select[Prime@Range[283], MemberQ[{8, 13, 18, 23}, Mod[#, 25]] &]
PROG
(Magma) [p: p in PrimesUpTo(1493) | p mod 25 in {8, 13, 18, 23}];
CROSSREFS
KEYWORD
nonn
AUTHOR
Arkadiusz Wesolowski, Mar 18 2015
STATUS
approved