我也是现买现卖的,谢谢Treenewbee!
Table[Solve[{a^2 + b^2 == n^3, b >= a > 0}, {a, b}, Integers], {n, 1, 30}]
{{}, {{a -> 2, b -> 2}}, {}, {}, {{a -> 2, b -> 11}, {a -> 5, b -> 10}}, {}, {}, {{a -> 16, b -> 16}},
{}, {{a -> 10, b -> 30}, {a -> 18, b ->26}}, {}, {}, {{a -> 9,b -> 46}, {a -> 26, b -> 39}}, {}, {},
{}, {{a -> 17, b -> 68}, {a -> 47, b -> 52}}, {{a -> 54, b -> 54}}, {}, {{a -> 16, b -> 88},
{a -> 40, b -> 80}}, {}, {}, {}, {}, {{a -> 35,b ->120}, {a -> 44,b ->117}, {a -> 75, b -> 100}},
{{a -> 26,b -> 130}, {a -> 74, b ->110}}, {}, {}, {{a -> 58, b ->145}, {a -> 65, b ->142}}, {}}
Table[Length[PowersRepresentations[n^3, 2, 2] /. {0, _} -> Nothing], {n, 1, 100}]
{0, 1, 0, 0, 2, 0, 0, 1, 0, 2, 0, 0, 2, 0, 0, 0, 2, 1, 0, 2, 0, 0, 0, 0, 3, 2, 0, 0, 2, 0, 0, 1, 0, 2,
0, 0, 2, 0, 0, 2, 2, 0, 0, 0, 2, 0, 0, 0, 0, 4, 0, 2, 2, 0, 0, 0, 0, 2, 0, 0, 2, 0, 0, 0, 8, 0, 0, 2,
0, 0, 0, 1, 2, 2, 0, 0, 0, 0, 0, 2, 0, 2, 0, 0, 8, 0, 0, 0, 2, 2, 0, 0, 0, 0, 0, 0, 2, 1, 0, 3} |