OFFSET
1,1
COMMENTS
A subsequence of A233075.
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
Res:= NULL:
for x from 3 to 2000 do
x3:= x^3;
y:= floor(sqrt(x3));
p:= (x3+y^2)/2;
if p::integer and x3-p <= p - (x-1)^3 and p - y^2 <= (y+1)^2-p and isprime(p) then
Res:= Res, p;
fi;
p:= (x3+(y+1)^2)/2;
if p::integer and p-x3 <= (x+1)^3-p and (y+1)^2-p <= p - y^2 and isprime(p) then
Res:= Res, p;
fi
od:
Res; # Robert Israel, May 01 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Alex Ratushnyak, Dec 09 2013
STATUS
approved