|
%I #10 Sep 08 2022 08:46:03
%S 2,5,11,13,23,67,71,79,89,101,137,167,181,199,211,233,269,277,313,331,
%T 353,379,397,401,409,419,431,463,467,541,563,577,599,607,617,643,661,
%U 673,683,709,727,739,761,797,827,859,863,881,907,929,937,947,991,1013
%N Primes congruent to {0, 1, 2, 5} mod 11.
%H Vincenzo Librandi, <a href="/A215214/b215214.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Prime[Range[400]],MemberQ[{0, 1, 2, 5},Mod[#,11]]&]
%t Rest[Select[Flatten[{0,1,2,5}+#&/@(11Range[-1,100])],PrimeQ]] (* _Harvey P. Dale_, Dec 29 2017 *)
%o (Magma) [ p: p in PrimesUpTo(1500) | p mod 11 in {0, 1, 2, 5} ];
%Y Cf. A000040, A045358.
%K nonn,easy
%O 1,1
%A _Vincenzo Librandi_, Aug 07 2012
|
