OFFSET
1,1
LINKS
Chai Wah Wu, Table of n, a(n) for n = 1..10000
EXAMPLE
prime(85) + prime(86) + prime(87) = 439 + 443 + 449 = 1331 = 11^3.
MATHEMATICA
t = {}; p = 2; q = 3; Do[r = NextPrime[q]; If[IntegerQ[(p + q + r)^(1/3)], AppendTo[t, p]; Print[p]]; p = q; q = r, {1000000}]; t (* T. D. Noe, Mar 24 2012 *)
Select[Partition[Prime[Range[9505000]], 3, 1], IntegerQ[Surd[Total[#], 3]]&][[All, 1]] (* Harvey P. Dale, May 22 2020 *)
PROG
(Python)
from __future__ import division
from sympy import nextprime, prevprime
A210205_list = []
for i in range(3, 10**6):
n = i**3
p2 = prevprime(n//3)
p1, p3 = prevprime(p2), nextprime(p2)
q = p1+p2+p3
while q <= n:
if q == n:
A210205_list.append(p1)
p1, p2, p3 = p2, p3, nextprime(p3)
q = p1+p2+p3 # Chai Wah Wu, Dec 31 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
Pablo MartÃnez, Mar 18 2012
EXTENSIONS
Extended by T. D. Noe, Mar 24 2012
STATUS
approved