OFFSET
1,1
LINKS
Chai Wah Wu, Table of n, a(n) for n = 1..1000
FORMULA
MATHEMATICA
lst={}; Do[Do[Do[d=Sqrt[a^3+b^3+c^3]; If[d<=834&&IntegerQ[d]&&PrimeQ[d], AppendTo[lst, d]], {c, b+1, 5!, 1}], {b, a+1, 5!, 1}], {a, 5!}]; Union@lst
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Sep 20 2009
EXTENSIONS
Extended beyond 827 by R. J. Mathar, Oct 07 2009
Title corrected by Jeppe Stig Nielsen, Jan 26 2015
STATUS
approved