%I #7 Jan 12 2024 10:03:32
%S 29,47,67,181,199,257,313,389,409,503,523,541,599,617,751,769,827,883,
%T 941,997,1093,1187,1283,1301,1321,1453,1511,1549,1567,1663,1777,1871,
%U 2081,2099,2137,2213,2251,2309,2347,2423,2441,2593,2689,2707,2803,2879
%N Primes whose squares are congruent to 5 (modulo 19).
%t Prime/@Select[Range[420],Mod[Prime[#]^2,19]==5&] (* _James C. McMahon_, Jan 11 2024 *)
%o (PARI) isok(p) = isprime(p) && (Mod(p, 19)^2==5); \\ _Michel Marcus_, Jan 11 2024
%K nonn
%O 1,1
%A Jun Mizuki (suzuki32(AT)sanken.osaka-u.ac.jp), Feb 28 2005
|