A045467 - OEIS

%I #13 Sep 08 2022 08:44:56

%S 11,13,41,53,67,83,97,109,137,139,151,167,179,181,193,223,251,263,277,

%T 293,307,347,349,389,419,431,433,461,487,503,557,571,587,599,601,613,

%U 641,643,683,727,739,769,797,809

%N Primes congruent to {4, 6} mod 7.

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

%F A045460 \ {7}. - _R. J. Mathar_, Oct 18 2008

%t Select[Prime[Range[200]],MemberQ[{4,6},Mod[#,7]]&] (* _Vincenzo Librandi_, Aug 13 2012 *)

%o (Magma) [ p: p in PrimesUpTo(1000) | p mod 7 in {4,6} ]; // _Vincenzo Librandi_, Aug 13 2012

%Y Cf. A000040.

%K nonn,easy

%O 1,1

%A _N. J. A. Sloane_