%I #15 Sep 08 2022 08:45:36
%S 19,109,199,379,739,829,919,1009,1279,1459,1549,1999,2089,2179,2269,
%T 2539,2719,3079,3169,3259,3529,3709,3889,4159,4339,4519,4789,4969,
%U 5059,5419,5689,5779,5869,6229,6679,6949,7039,7129,7219,7309,7489,7669,7759,8209
%N Primes congruent to 19 mod 45.
%H Vincenzo Librandi, <a href="/A142322/b142322.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Range[19, 10000, 90], PrimeQ] (* _Vladimir Joseph Stephan Orlovsky_, Jul 14 2011 *)
%t Select[Prime[Range[1200]], MemberQ[{19}, Mod[#, 45]] &] (* _Vincenzo Librandi_, Aug 26 2012 *)
%o (Magma) [p: p in PrimesUpTo(10000) | p mod 45 eq 19]; // _Vincenzo Librandi_, Aug 26 2012
%o (PARI) is(n)=isprime(n) && n%45==19 \\ _Charles R Greathouse IV_, Jul 01 2016
%Y Cf. A000040, A142315, A142317, A142318, A142321.
%K nonn,easy
%O 1,1
%A _N. J. A. Sloane_, Jul 11 2008
|