OFFSET
1,1
COMMENTS
Of course reordering the terms does not count.
A025456(a(n)) > 1. [Reinhard Zumkeller, Apr 23 2009]
LINKS
T. D. Noe and Christian N. K. Anderson, Table of n, a(n) for n = 1..10000 (first 1000 terms are from T. D. Noe)
Christian N. K. Anderson, Decomposition of first 10000 terms into multiple cube triples.
EXAMPLE
a(2) = 1009 = 1^3+2^3+10^3 = 4^3+6^3+9^3.
MATHEMATICA
Select[Range[4450], 1 < Length @ Cases[PowersRepresentations[#, 3, 3], {_?Positive, _?Positive, _?Positive}] &] (* Jean-François Alcover, Apr 04 2011 *)
PROG
(PARI) is(n)=k=ceil((n-2)^(1/3)); d=0; for(a=1, k, for(b=a, k, for(c=b, k, if(a^3+b^3+c^3==n, d++)))); d
n=3; while(n<5000, if(is(n)>1, print1(n, ", ")); n++) \\ Derek Orr, Aug 27 2015
CROSSREFS
KEYWORD
nonn,easy,nice
AUTHOR
STATUS
approved