Taxicab numbers: Difference between revisions
Content added Content deleted
Line 1,880: | Line 1,880: | ||
=={{header|Mathematica}}== |
=={{header|Mathematica}}== |
||
<lang Mathematica> |
<lang Mathematica>findTaxi[n_] := Sort[Keys[Select[Counts[Flatten[Table[x^3 + y^3, {x, 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] |
Take[findTaxiNumbers[100], 25] |
||
found=findTaxiNumbers[1200][[2000 ;; 2005]] |
found=findTaxiNumbers[1200][[2000 ;; 2005]] |