|
%I #14 Dec 26 2023 14:56:19
%S 29,67,181,257,409,523,599,751,827,941,1093,1283,1321,1511,1549,1663,
%T 1777,2081,2309,2347,2423,2689,2803,2879,2917,3221,3259,3373,3449,
%U 3677,3943,4019,4057,4133,4513,4703,4817,4931,4969,5197,5273,5387,5501,5653,5843
%N Primes congruent to 10 mod 19.
%H Vincenzo Librandi, <a href="/A141875/b141875.txt">Table of n, a(n) for n = 1..1000</a>
%F a(n) ~ 18n log n. - _Charles R Greathouse IV_, Jul 03 2016
%t Select[Range[10,5000,19],PrimeQ[#]&] (* _Vladimir Joseph Stephan Orlovsky_, Mar 31 2011*)
%t Select[Prime[Range[800]],Mod[#,19]==10&] (* _Harvey P. Dale_, Dec 26 2023 *)
%o (Magma) [p: p in PrimesUpTo(7000) | p mod 19 eq 10 ]; // _Vincenzo Librandi_, Aug 15 2012
%o (PARI) is(n)=isprime(n) && n%19==10 \\ _Charles R Greathouse IV_, Jul 03 2016
%Y Cf. A000040.
%K nonn,easy
%O 1,1
%A _N. J. A. Sloane_, Jul 11 2008
|
