OFFSET
1,1
REFERENCES
David Wells, The Penguin Dictionary of Curious and Interesting Numbers (Rev. ed. 1997), pp. 130, 147.
LINKS
Donovan Johnson, Table of n, a(n) for n = 1..1000
FORMULA
a(n) = (A023042(n))^3. - Christian N. K. Anderson, Aug 10 2014
EXAMPLE
729 is included because it is 9^3 and 1^3 + 6^3 + 8^3 = 729.
MATHEMATICA
maxCube = (m = 67)^3; Reap[ Do[ bmax = (maxCube - a^3)^(1/3) // Ceiling; Do[ cmax = (maxCube - b^3)^(1/3) // Ceiling; Do[ n = a^3 + b^3 + c^3; If[n <= maxCube, If[ IntegerQ[n^(1/3)], Sow[n]]], {c, b, cmax}], {b, a, bmax}], {a, 1, (maxCube - 2)^(1/3) // Ceiling}]][[2, 1]] // Flatten // Union (* Jean-François Alcover, Mar 07 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Harvey P. Dale, Jan 22 2002
EXTENSIONS
Offset corrected by Arkadiusz Wesolowski, Aug 06 2012
STATUS
approved