%I #11 Dec 01 2022 16:49:49
%S 181,463,557,839,1873,2437,2531,2719,3001,3659,3847,4129,4787,5351,
%T 5821,6197,6761,6949,7043,7607,8171,8641,8923,9769,10333,10427,10709,
%U 11273,11743,12119,12401,12589,13999,14281,14563,14657,14939,15973,16067,16349,16631
%N Primes congruent to 40 mod 47.
%H Vincenzo Librandi, <a href="/A142391/b142391.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[{40},Mod[#,47]]&] (* _Vincenzo Librandi_, Aug 27 2012 *)
%t Select[Range[40,17000,47],PrimeQ] (* _Harvey P. Dale_, Dec 01 2022 *)
%o (Magma) [p: p in PrimesUpTo(18000) | p mod 47 eq 40]; // _Vincenzo Librandi_, Aug 27 2012
%o (PARI) is(n)=isprime(n) && n%47==40 \\ _Charles R Greathouse IV_, Jul 03 2016
%Y Cf. A000040.
%K nonn,easy
%O 1,1
%A _N. J. A. Sloane_, Jul 11 2008
|