|
|
A107989
|
|
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
|
|
|
2, 5, 11, 281, 839, 1201, 1499, 2081, 9769, 10091, 11483, 12583, 14221, 20089, 21491, 26417, 36931, 37633, 41621, 47251, 47903, 52889, 64781, 72643, 73019, 75541, 88037, 93701, 94111, 121937, 122533, 138041, 139439, 143503, 147289, 179917
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|