OFFSET
1,1
MATHEMATICA
Prime/@Select[Range[420], Mod[Prime[#]^2, 19]==5&] (* James C. McMahon, Jan 11 2024 *)
PROG
(PARI) isok(p) = isprime(p) && (Mod(p, 19)^2==5); \\ Michel Marcus, Jan 11 2024
CROSSREFS
KEYWORD
nonn
AUTHOR
Jun Mizuki (suzuki32(AT)sanken.osaka-u.ac.jp), Feb 28 2005
STATUS
approved