|
%I #11 Sep 08 2022 08:45:30
%S 5,13,23,31,41,59,67,103,113,131,139,149,157,167,193,211,229,239,257,
%T 283,293,311,337,347,373,383,401,409,419,463,491,499,509,563,571,599,
%U 607,617,643,653,661,733,743,751,761,769,787,797,823,859,877,887,941,967,977,1013
%N Primes congruent to +-5 mod 18.
%C Primes congruent to (5,13) mod 18. - _Vincenzo Librandi_, Aug 14 2012
%H Vincenzo Librandi, <a href="/A129806/b129806.txt">Table of n, a(n) for n = 1..1000</a>
%H Emma Lehmer, <a href="https://projecteuclid.org/euclid.pjm/1102706454">On special primes</a>, Pac. J. Math., 118 (1985), 471-478.
%t Select[Prime[Range[4000]],MemberQ[{5,13},Mod[#,18]]&] (* _Vincenzo Librandi_, Aug 14 2012 *)
%o (Magma) [ p: p in PrimesUpTo(1300) | p mod 18 in {5, 13} ]; // _Vincenzo Librandi_, Aug 14 2012
%Y Cf. A129805, A129807.
%K nonn,easy
%O 1,1
%A _N. J. A. Sloane_, May 22 2007
|
