login
A127589
Primes of the form 16k + 5.
13
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,1
COMMENTS
All terms are the sum of two squares.
Primes with least significant digit 5 in hexadecimal. - Alonso del Arte, Oct 21 2022
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 *)
PROG
(PARI) select(x->(x%16)==5, primes(500)) \\ Michel Marcus, Oct 24 2022
KEYWORD
nonn,easy
AUTHOR
Artur Jasinski, Jan 19 2007
EXTENSIONS
Invalid comment removed by Zak Seidov, Jul 22 2010
STATUS
approved