%I #14 Feb 03 2024 00:53:15
%S 7,37,61,97,151,163,181,193,271,313,331,337,397,421,487,523,547,571,
%T 643,691,727,757,853,877,967,1033,1087,1093,1231,1237,1297,1303,1423,
%U 1471,1567,1657,1747,1777,1801,1831,1867,1987,2083,2113,2221,2251,2281,2437
%N Primes p such that 16*p + 1 is also prime.
%H Vincenzo Librandi, <a href="/A155943/b155943.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Prime[Range[2500]], PrimeQ[(16*# + 1)]&] (* _Vincenzo Librandi_, Oct 30 2012 *)
%o (Magma) [p: p in PrimesUpTo(2500)| IsPrime(16*p + 1)]; // _Vincenzo Librandi_, Oct 30 2012
%Y Cf. A094407, A155942, A155941.
%K nonn,easy
%O 1,1
%A _Vincenzo Librandi_, Jan 31 2009
|