A102852 Primes whose squares are congruent to 5 (modulo 19).

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

Links

Table of n, a(n) for n=1..46.

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

Adjacent sequences: A102849 A102850 A102851 * A102853 A102854 A102855

Keyword

nonn

Author

Jun Mizuki (suzuki32(AT)sanken.osaka-u.ac.jp), Feb 28 2005

Status

approved