A127589 Primes of the form 16k + 5.
5, 37, 53, 101, 149, 181, 197, 229, 277, 293, 373, 389, 421, 613, 661, 677, 709, 757, 773, 821, 853, 997, 1013, 1061, 1093, 1109, 1237, 1301, 1381, 1429, 1493, 1621, 1637, 1669, 1733, 1861, 1877, 1973, 2053, 2069, 2213, 2293, 2309, 2341, 2357, 2389, 2437
Offset: 1
Links
- T. D. Noe, Table of n, a(n) for n=1..1000
Crossrefs
Programs
-
Mathematica
a = {}; Do[If[PrimeQ[16n + 5], AppendTo[a, 16n + 5]], {n, 0, 200}]; a Select[16Range[200] + 5, PrimeQ] (* Alonso del Arte, Oct 21 2022 *)
-
PARI
select(x->(x%16)==5, primes(500)) \\ Michel Marcus, Oct 24 2022
Extensions
Invalid comment removed by Zak Seidov, Jul 22 2010
Comments