A141966 - OEIS

%I #13 Sep 08 2022 08:45:35

%S 3,31,59,199,227,283,311,367,479,563,619,647,787,983,1039,1123,1151,

%T 1291,1319,1459,1487,1543,1571,1627,1823,1879,1907,2131,2243,2383,

%U 2411,2467,2551,2579,2663,2719,2803,2887,2971,2999,3083,3167,3251,3307,3391,3559

%N Primes congruent to 3 mod 28.

%H Vincenzo Librandi, <a href="/A141966/b141966.txt">Table of n, a(n) for n = 1..1000</a>

%F a(n) ~ 12n log n. - _Charles R Greathouse IV_, Jul 03 2016

%t Select[Prime[Range[500]], MemberQ[{3}, Mod[#, 28]] &] (* _Vincenzo Librandi_, Aug 16 2012 *)

%t Select[Range[3,4000,28],PrimeQ] (* _Harvey P. Dale_, Jul 07 2016 *)

%o (Magma) [p: p in PrimesUpTo(5000) | p mod 28 eq 3 ]; // _Vincenzo Librandi_, Aug 16 2012

%o (PARI) is(n)=isprime(n) && n%28==3 \\ _Charles R Greathouse IV_, Jul 03 2016

%Y Cf. A000040.

%K nonn,easy

%O 1,1

%A _N. J. A. Sloane_, Jul 11 2008