%I #16 Oct 24 2022 15:25:04
%S 5,37,53,101,149,181,197,229,277,293,373,389,421,613,661,677,709,757,
%T 773,821,853,997,1013,1061,1093,1109,1237,1301,1381,1429,1493,1621,
%U 1637,1669,1733,1861,1877,1973,2053,2069,2213,2293,2309,2341,2357,2389,2437
%N Primes of the form 16k + 5.
%C All terms are the sum of two squares.
%C Primes with least significant digit 5 in hexadecimal. - _Alonso del Arte_, Oct 21 2022
%H T. D. Noe, <a href="/A127589/b127589.txt">Table of n, a(n) for n=1..1000</a>
%t a = {}; Do[If[PrimeQ[16n + 5], AppendTo[a, 16n + 5]], {n, 0, 200}]; a
%t Select[16Range[200] + 5, PrimeQ] (* _Alonso del Arte_, Oct 21 2022 *)
%o (PARI) select(x->(x%16)==5, primes(500)) \\ _Michel Marcus_, Oct 24 2022
%Y Cf. A035050, A007522, A127575, A127576, A127577, A127578, A127580, A127581, A087522, A127586, A127587.
%K nonn,easy
%O 1,1
%A _Artur Jasinski_, Jan 19 2007
%E Invalid comment removed by _Zak Seidov_, Jul 22 2010
|