%I #14 Dec 05 2018 10:41:00
%S 2,5,11,281,839,1201,1499,2081,9769,10091,11483,12583,14221,20089,
%T 21491,26417,36931,37633,41621,47251,47903,52889,64781,72643,73019,
%U 75541,88037,93701,94111,121937,122533,138041,139439,143503,147289,179917
%N Consider primes p such that integer part of the volume of cube with faces of area p is prime; sequence gives integer part of volumes.
%H Harvey P. Dale, <a href="/A107989/b107989.txt">Table of n, a(n) for n = 1..1000</a>
%F V = floor(sqrt(p)^3), p is prime and the area of the face of a cube.
%e p = 5, volume = floor(sqrt(5)^3) = 11 a prime.
%t Select[Floor[(Sqrt[#])^3]&/@Prime[Range[500]],PrimeQ] (* _Harvey P. Dale_, Dec 05 2018 *)
%o (PARI) g(n) = forprime(x=2,n,y=floor(sqrt(x)^3);if(isprime(y),print1(y,",")))
%Y A107990 gives areas of faces.
%K easy,nonn
%O 1,1
%A _Cino Hilliard_, Jun 13 2005
%E Definition corrected by _N. J. A. Sloane_, Dec 04 2018. Thanks to _Harvey P. Dale_ for pointing out that something was wrong.