%I #22 Sep 08 2022 08:44:56
%S 3,11,17,31,53,59,67,73,101,109,137,151,157,179,193,199,227,241,263,
%T 269,277,283,311,347,353,367,389,409,431,479,487,521,557,563,571,577,
%U 599,613,619,641,647,661,683,739
%N Primes congruent to {3, 4} mod 7.
%C Or, primes p such that p^2 == 2 (mod 7). - _Zak Seidov_, May 11 2013
%H Vincenzo Librandi, <a href="/A045432/b045432.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Prime[Range[200]],MemberQ[{3,4},Mod[#,7]]&] (* _Vincenzo Librandi_, Aug 13 2012 *)
%t Select[Prime[Range[200]], PowerMod[#,2,7] == 2 &] (* _Zak Seidov_, May 11 2013 *)
%o (Magma) [ p: p in PrimesUpTo(1000) | p mod 7 in {3,4} ]; // _Vincenzo Librandi_, Aug 13 2012
%Y Cf. A047341 (superset), A225550.
%K nonn,easy
%O 1,1
%A _N. J. A. Sloane_