Jump to content

Taxicab numbers: Difference between revisions

Taxicab numbers (view source)

Revision as of 18:04, 7 February 2019

72 bytes removed ,  5 years ago
→‎{{header|Mathematica}}
Line 1,880:
 
=={{header|Mathematica}}==
<lang Mathematica>findTaxiNumbersfindTaxi[n_] := BlockSort[Keys[Select[Counts[Flatten[Table[x^3 + y^3, {datax, =1, <||>n}, {y, x, n}]]], GreaterThan[1]]]];
Do[AppendTo[data, x^3 + y^3 -> Lookup[data, x^3 + y^3, 0] + 1],
{x, 1, n},
{y, x, n}];
Sort[Keys[Select[data, # >= 2 &]]]
];
Take[findTaxiNumbers[100], 25]
found=findTaxiNumbers[1200][[2000 ;; 2005]]
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/242302"
Cookies help us deliver our services. By using our services, you agree to our use of cookies.
More information