This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A001239 #31 May 21 2022 13:59:22 %S A001239 216,251,344,729,855,1009,1072,1366,1457,1459,1520,1674,1728,1729, %T A001239 1730,1737,1756,1763,1793,1854,1945,2008,2072,2241,2414,2456,2458, %U A001239 2729,2736,2752,3060,3391,3402,3457,3500,3592,3599,3655,3744,3745 %N A001239 Numbers that are the sum of 3 nonnegative cubes in more than 1 way. %D A001239 G. H. Hardy, Ramanujan, Cambridge Univ. Press, 1940, p. 12. %D A001239 David Wells, The Penguin Dictionary of Curious and Interesting Numbers, Penguin Books, NY, 1986, p. 165. %H A001239 Christian N. K. Anderson, <a href="/A001239/b001239.txt">Table of n, a(n) for n = 1..10000</a> %H A001239 Christian N. K. Anderson, <a href="/A001239/a001239.txt">Decomposition</a> of first 10000 terms into cube triples %t A001239 Select[Range[4000], Length[PowersRepresentations[#, 3, 3]] > 1 &] (* _Harvey P. Dale_, Feb 03 2011 *) %o A001239 (PARI) is(n)=my(t); for(a=0, sqrtnint(n, 3), my(a3=a^3, c); for(b=0, min(a, sqrtnint(n-a3, 3)), if(ispower(n-a3-b^3, 3, &c) && c <= b && t++>1, return(1)))); 0 \\ _Charles R Greathouse IV_, Jul 02 2017 %Y A001239 Cf. A001235, A003998, A008917, A025396, A025456, A025447. %K A001239 nonn %O A001239 1,1 %A A001239 _N. J. A. Sloane_