OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
FORMULA
V = floor(sqrt(p)^3), p is prime and the area of the face of a cube.
EXAMPLE
p = 5, volume = floor(sqrt(5)^3) = 11 a prime.
MATHEMATICA
Select[Floor[(Sqrt[#])^3]&/@Prime[Range[500]], PrimeQ] (* Harvey P. Dale, Dec 05 2018 *)
PROG
(PARI) g(n) = forprime(x=2, n, y=floor(sqrt(x)^3); if(isprime(y), print1(y, ", ")))
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Cino Hilliard, Jun 13 2005
EXTENSIONS
Definition corrected by N. J. A. Sloane, Dec 04 2018. Thanks to Harvey P. Dale for pointing out that something was wrong.
STATUS
approved