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
LINKS
T. D. Noe, Table of n, a(n) for n=1..1000
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
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Artur Jasinski, Jan 19 2007
EXTENSIONS
Invalid comment removed by Zak Seidov, Jul 22 2010
STATUS
approved