OFFSET
1,1
COMMENTS
1^3+2^3+10^3=1009=4^3+6^3+9^3
LINKS
Chai Wah Wu, Table of n, a(n) for n = 1..10000
MATHEMATICA
lst1=Sort@Select[Flatten[Table[a^3+b^3+c^3, {a, 1, 66}, {b, a-1, 1, -1}, {c, b-1, 1, -1}]], PrimeQ[ # ]&]; lst={}; Do[If[lst1[[n]]==lst1[[n+1]], AppendTo[lst, lst1[[n]]]], {n, Length[lst1]-1}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Aug 09 2010
STATUS
approved