%I #12 Sep 08 2022 08:45:36
%S 269,457,739,1021,1303,1867,2243,2713,3089,3371,3559,4217,4969,6379,
%T 6473,6661,7507,7789,7883,8353,8447,9011,9199,9293,9857,10139,10891,
%U 11173,11549,11831,12113,12301,12583,12959,13147,13241,13523,13711,14087,14369,14557
%N Primes congruent to 34 mod 47.
%H Vincenzo Librandi, <a href="/A142385/b142385.txt">Table of n, a(n) for n = 1..1000</a>
%F a(n) ~ 46n log n. - _Charles R Greathouse IV_, Jul 03 2016
%t Select[Prime[Range[2500]], MemberQ[{34}, Mod[#, 47]] &] (* _Vincenzo Librandi_, Aug 27 2012 *)
%t Select[Range[34,15000,47],PrimeQ] (* _Harvey P. Dale_, Jan 06 2019 *)
%o (Magma) [p: p in PrimesUpTo(18000) | p mod 47 eq 34]; // _Vincenzo Librandi_, Aug 27 2012
%o (PARI) is(n)=isprime(n) && n%47==34 \\ _Charles R Greathouse IV_, Jul 03 2016
%Y Cf. A000040.
%K nonn,easy
%O 1,1
%A _N. J. A. Sloane_, Jul 11 2008
|