|
%I #14 Feb 25 2023 06:07:03
%S 3,7,13,19,31,43,97,127,223,241,271,283,307,397,421,439,577,601,619,
%T 661,673,691,727,853,859,967,1009,1051,1063,1123,1153,1237,1321,1429,
%U 1447,1543,1567,1597,1609,1657,1669,1861,1867,1933,1951,1987,2017,2089,2203
%N Primes p such that 2*p^2 + 16*p + 23 is also prime.
%H Vincenzo Librandi, <a href="/A155703/b155703.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Prime[Range[2500]], PrimeQ[(2*#^2 + 16*# + 23)]&] (* _Vincenzo Librandi_, Oct 30 2012 *)
%o (Magma) [p: p in PrimesUpTo(3000)|IsPrime(2*p^2+16*p+23)]
%Y Cf. A155702, A153037.
%K nonn,easy
%O 1,1
%A _Vincenzo Librandi_, Jan 25 2009
%E Entries confirmed by _John W. Layman_, Jun 17 2010
|
