Taxicab Number

Author

Eric W. Weisstein
February 2, 2006

This notebook downloaded from http://mathworld.wolfram.com/notebooks/DiophantineEquations/TaxicabNumber.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/TaxicabNumber.html.

©2006 Wolfram Research, Inc. except for portions noted otherwise

Brute-Force

Taxicab[n_,max_]:={#[[1,1]],First/@Rest/@#}&/@Select[Split[Sort[{Plus@@#,#}&/@Subsets[Range[Floor[max^(1/3)]]^3,{2}]],First[#1]==First[#2]&],Length[#]==n&]

Taxicab[2,10^5]

First/@%