|
%I #12 Sep 08 2022 08:45:35
%S 41,107,173,239,503,569,701,1031,1097,1163,1229,1361,1427,1493,1559,
%T 1823,1889,2087,2153,2351,2417,2549,2879,3011,3209,3407,3539,3671,
%U 3803,4001,4133,4397,4463,4793,5189,5387,5519,5651,5717,5783,5849,5981,6047,6113
%N Primes congruent to 8 mod 33.
%H Vincenzo Librandi, <a href="/A142054/b142054.txt">Table of n, a(n) for n = 1..1000</a>
%F a(n) ~ 20n log n. - _Charles R Greathouse IV_, Jul 02 2016
%t Select[Range[8, 20000, 33], PrimeQ] (* _Vladimir Joseph Stephan Orlovsky_, Jun 25 2011 *)
%t Select[Prime[Range[3000]],MemberQ[{8},Mod[#,33]]&] (* _Vincenzo Librandi_, Aug 18 2012 *)
%o (Magma) [p: p in PrimesUpTo(8000) | p mod 33 eq 8 ]; // _Vincenzo Librandi_, Aug 18 2012
%o (PARI) is(n)=isprime(n) && n%33==8 \\ _Charles R Greathouse IV_, Jul 02 2016
%Y Cf. A000040.
%K nonn,easy
%O 1,1
%A _N. J. A. Sloane_, Jul 11 2008
|
