login
A102852
Primes whose squares are congruent to 5 (modulo 19).
0
29, 47, 67, 181, 199, 257, 313, 389, 409, 503, 523, 541, 599, 617, 751, 769, 827, 883, 941, 997, 1093, 1187, 1283, 1301, 1321, 1453, 1511, 1549, 1567, 1663, 1777, 1871, 2081, 2099, 2137, 2213, 2251, 2309, 2347, 2423, 2441, 2593, 2689, 2707, 2803, 2879
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
Sequence in context: A104913 A225303 A344466 * A138052 A119891 A106754
KEYWORD
nonn
AUTHOR
Jun Mizuki (suzuki32(AT)sanken.osaka-u.ac.jp), Feb 28 2005
STATUS
approved