login
Primes congruent to {2, 7} mod 19.
1

%I #11 Sep 08 2022 08:46:03

%S 2,7,59,83,97,173,197,211,311,349,401,439,463,577,653,691,743,857,881,

%T 919,971,1009,1033,1109,1123,1223,1237,1427,1451,1489,1579,1693,1831,

%U 1907,1997,2111,2287,2339,2377,2477,2591,2719,2819,2833,2857,2909,2971,3023

%N Primes congruent to {2, 7} mod 19.

%H Vincenzo Librandi, <a href="/A215209/b215209.txt">Table of n, a(n) for n = 1..1000</a>

%t Select[Prime[Range[1000]], MemberQ[{2, 7}, Mod[#, 19]] &] (* Librandi *)

%t Select[Flatten[Table[19n + {2, 7}, {n, 0, 199}]], PrimeQ] (* _Alonso del Arte_, Jan 21 2014 *)

%o (Magma) [ p: p in PrimesUpTo(3000) | p mod 19 in {2, 7} ];

%Y Cf. A000040, A003627.

%K nonn,easy

%O 1,1

%A _Vincenzo Librandi_, Aug 07 2012