login
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.
2

%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.