|
%I #13 Sep 08 2022 08:45:33
%S 29,97,131,199,233,607,641,709,743,811,947,1049,1117,1151,1321,1423,
%T 1559,1627,1831,1933,2069,2137,2239,2273,2341,2477,2579,2647,2749,
%U 2851,2953,3089,3191,3259,3361,3463,3701,3769,3803,4007,4177,4211,4483,4517,4721
%N Primes congruent to 12 mod 17.
%H Vincenzo Librandi, <a href="/A138625/b138625.txt">Table of n, a(n) for n = 1..1000</a>
%F a(n) ~ 16n log n. - _Charles R Greathouse IV_, Jul 02 2016
%e 17*2-5=29, 17*6-5=97, 17*8-5=131, 17*12-5=199,...
%t a={};Do[x=17*n-5;If[PrimeQ[x],AppendTo[a,x]],{n,10^2}];a
%t Select[Prime[Range[700]],MemberQ[{12},Mod[#,17]]&] (* _Vincenzo Librandi_, Aug 15 2012 *)
%o (Magma) [p: p in PrimesUpTo(6000) | p mod 17 eq 12 ]; // _Vincenzo Librandi_, Aug 15 2012
%o (PARI) is(n)=isprime(n) && n%17==12 \\ _Charles R Greathouse IV_, Jul 02 2016
%Y Cf. A000040.
%K nonn,easy
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, May 14 2008
%E More terms from _N. J. A. Sloane_, Jul 11 2008
%E Edited by _N. J. A. Sloane_ at the suggestion of R. J. Mathar, Jul 20 2008
|
