OFFSET
1,1
COMMENTS
2^3+3^3+11^3=5^3+8^3+9^3=1366=2*683, 1^3+5^3+11^3=6^3+8^3+9^3=1457=31*47,..
LINKS
Chai Wah Wu, Table of n, a(n) for n = 1..10000
MATHEMATICA
f[n_]:=Last/@FactorInteger[n]=={1, 1}; lst={}; Do[Do[Do[If[f[p=a^3+b^3+c^3], AppendTo[lst, p]], {c, b-1, 1, -1}], {b, a-1, 1, -1}], {a, 55}]; lst1=Sort@lst; 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