A155772 - OEIS

%I #9 Sep 08 2022 08:45:41

%S 5,7,11,17,19,23,29,53,59,61,83,101,103,107,131,151,179,181,191,193,

%T 199,227,239,269,281,293,313,367,383,389,419,439,467,487,503,521,541,

%U 569,587,599,601,607,617,641,647,653,673,677,691,709,733,739,757,769,787

%N Primes p such that 2*p^2+2*p-41 is a prime.

%H Vincenzo Librandi, <a href="/A155772/b155772.txt">Table of n, a(n) for n = 1..1000</a>

%t Select[Prime[Range[3, 200]], PrimeQ[2 #^2 + 2 # - 41] &] (* _Vincenzo Librandi_, Oct 15 2012 *)

%o (Magma) [p: p in PrimesInInterval(5, 800) | IsPrime(2*p^2 + 2*p - 41)]; // _Vincenzo Librandi_, Oct 15 2012

%Y Cf. A155769, A155770, A155771.

%K nonn,easy

%O 1,1

%A _Vincenzo Librandi_, Jan 27 2009