OFFSET
1,1
COMMENTS
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
filter:= proc(p) local S;
if not isprime(p) then return false fi;
S:= map(t -> rhs(t[1]), [msolve(x^3=2, p)]);
nops(S) = 3 and convert(S, `+`) = p
end proc:
select(filter, [seq(i, i=7..5000, 6)]); # Robert Israel, Aug 13 2024
CROSSREFS
KEYWORD
nonn
AUTHOR
Klaus Brockhaus, Mar 02 2001
STATUS
approved