|
%I #19 Sep 08 2022 08:45:39
%S 2,13,17,19,23,29,43,53,83,127,157,233,239,283,347,433,509,523,617,
%T 647,769,773,823,859,883,919,937,1093,1117,1163,1213,1223,1327,1483,
%U 1499,1627,1657,1709,1777,1823,1877,1907,1913,1999,2069,2129,2137,2203,2357
%N Primes p such that 2*p^3 + 3 is also prime.
%H Vincenzo Librandi, <a href="/A153507/b153507.txt">Table of n, a(n) for n = 1..1000</a>
%p a := proc (n) if isprime(n) = true and isprime(2*n^3+3) = true then n else end if end proc: seq(a(n), n = 1 .. 2500); # _Emeric Deutsch_, Jan 21 2009
%t Select[Prime[Range[500]], PrimeQ[2#^3 + 3] &] (* _Harvey P. Dale_, Jan 12 2011 *)
%o (Magma)[p: p in PrimesUpTo(2500) | IsPrime(2*p^3 + 3)]; // _Vincenzo Librandi_, Oct 15 2012
%K nonn,easy
%O 1,1
%A _Vincenzo Librandi_, Dec 28 2008
%E Extended by _Emeric Deutsch_, Jan 21 2009
|
