%I #14 Sep 08 2022 08:46:10
%S 2,7,23,37,67,263,317,359,389,443,457,499,599,743,947,967,1033,1103,
%T 1187,1303,1373,1423,1429,1453,1523,1579,1619,1663,1667,1787,1877,
%U 1913,2003,2083,2143,2297,2389,2543,2633,2683,2927,3109,3217,3229,3299,3313,3613,3623,3637,3719,3733,3739
%N Primes p such that p^3 - 6 is prime.
%e 2 is in this sequence because 2^3 - 6 = 2 and 2 is prime.
%t Select[Prime[Range[10^3]], PrimeQ[#^3 - 6] &] (* _Vincenzo Librandi_, Oct 21 2014 *)
%o (Magma) [p: p in PrimesUpTo(5000) | IsPrime(p^3-6)];
%o (PARI) forprime(p=1,5000,if(isprime(p^3-6),print1(p,", "))) \\ _Derek Orr_, Oct 21 2014
%Y Cf. A201310.
%K nonn
%O 1,1
%A _Juri-Stepan Gerasimov_, Oct 09 2014