|
%I #14 Sep 08 2022 08:45:41
%S 2,3,5,13,19,23,43,47,67,79,103,109,149,157,179,193,239,353,373,397,
%T 419,487,499,503,523,547,563,569,587,619,677,683,787,797,839,853,863,
%U 929,1013,1093,1193,1229,1289,1303,1319,1423,1433,1499,1553,1619,1669,1733
%N Primes p such that 4*p^2+2*p-1 is also prime
%H Vincenzo Librandi, <a href="/A155738/b155738.txt">Table of n, a(n) for n = 1..1000</a>
%F A155736 INTERSECT A000040. [_R. J. Mathar_, Jan 05 2011]
%t Select[Prime[Range[400]],PrimeQ[4#^2+2#-1]&] (* _Harvey P. Dale_, Mar 22 2011 *)
%o (Magma) [p: p in PrimesUpTo(1800)| IsPrime(4*p^2 + 2*p - 1)]; // _Vincenzo Librandi_, Oct 30 2012
%Y Cf. A155736, A155737.
%K nonn,easy
%O 1,1
%A _Vincenzo Librandi_, Jan 26 2009
|
