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

%S 2,5,7,31,41,59,67,83,109,137,163,197,223,239,241,293,317,353,379,397,

%T 421,431,449,457,499,509,577,587,613,631,683,691,709,733,743,761,769,

%U 787,811,821,839,863,941,967,977,1019,1021,1097,1123,1151,1201,1229,1237

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

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

%t Select[Prime[Range[1000]],MemberQ[{2,5,7},Mod[#,13]]&]

%t Select[Flatten[Table[13n+{2,5,7},{n,0,100}]],PrimeQ] (* _Harvey P. Dale_, May 10 2021 *)

%o (Magma) [ p: p in PrimesUpTo(2000) | p mod 13 in {2, 5, 7} ];

%Y Cf. A000040, A045355, A045357.

%K nonn,easy

%O 1,1

%A _Vincenzo Librandi_, Aug 07 2012