%I #7 Sep 08 2022 08:45:51
%S 11,163,449,1103,1367,1627,3037,3089,3517,3529,4639,4903,5897,6661,
%T 8377,8951,9787,11329,11981,13697,14783,15017,16447,16993,17609,19597,
%U 20509,21799,21881,22157,25537,25693,25903,26119,26189,26947,27917,27961
%N Primes p such that 2*p^3-+15 are also prime.
%H Vincenzo Librandi, <a href="/A174364/b174364.txt">Table of n, a(n) for n = 1..1000</a>
%e For p^11, 2*11^3-+15=(2647,2677); p=163, 2*163^3-+15=(8661479,8661509).
%t Select[Prime[Range[4000]], And@@PrimeQ[2 #^3 + {15, -15}]&] (* _Vincenzo Librandi_, Apr 10 2013 *)
%o (Magma) [p: p in PrimesUpTo(100000)|IsPrime(2*p^3-15) and IsPrime(2*p^3+15)]
%K nonn,easy
%O 1,1
%A _Vincenzo Librandi_, Mar 17 2010
|