—— 悬赏 ——目标: 不存在 "完美长方体"。—— 先扫一扫外围。{3 个数} = 棱长。满足体对角线 = 整数。
{{{2, 3, 6}}, {}, {{1, 4, 8}}, {{2, 6, 9}}, {}, {{2, 10, 11}}, {{3, 4, 12}, {8, 9, 12}}, {}, {{2, 5, 14}}, {{6, 10, 15}}, {{4, 13, 16}, {8, 11, 16}, {12, 15, 16}}, {}, {{1, 6, 18}, {3, 14, 18}, {6, 13, 18}}, {{4, 8, 19}}, {{4, 5, 20}, {9, 12, 20}}, {{12, 16, 21},
{14, 18, 21}}, {{3, 6, 22}, {6, 21, 22}, {7, 14, 22}}, {{2, 14, 23}}, {{3, 16, 24}, {11, 12, 24}}, {{2, 10, 25}, {8, 20, 25}}, {{2, 7, 26}, {15, 18, 26}, {19, 22, 26}}, {{6, 14, 27}, {8, 24, 27}}, {{3, 24, 28}, {4, 17, 28}, {7, 16, 28}, {12, 21, 28}},
{{2, 26, 29}, {14, 22, 29}, {20, 28, 29}}, {{1, 18, 30}, {5, 6, 30}, {6, 17, 30}, {18, 25, 30}}, {{12, 24, 31}}, {{1, 8, 32}, {4, 7, 32}, {9, 24, 32}}, {{4, 24, 33}, {6, 10, 33}}, {{2, 19,34}, {13, 14, 34}, {18, 27, 34}, {22, 31, 34}}, {{4, 28, 35},
{10, 14, 35}}, {{3, 8, 36}, {4, 33, 36}, {9, 32, 36}, {12, 31, 36}, {23, 24, 36}, {27, 28, 36}}, {{12, 36, 37}, {16, 20, 37}}, {{1, 34, 38}, {6, 27, 38}, {9, 18, 38}, {14, 31, 38}, {18, 21, 38}, {34, 37, 38}}, {{2, 18, 39}, {4, 12, 39}}, {{8, 19, 40},
{13, 16, 40}, {15, 24, 40}, {25, 32, 40}}, {{12, 24, 41}}, {{2, 9, 42}, {2, 21, 42}, {6, 7, 42}, {6, 35, 42}, {6, 41, 42}, {11, 18, 42}, {14, 39, 42}, {19, 30, 42}}, {{6, 18, 43}, {24, 36, 43}, {26, 38, 43}}, {{5, 8, 44}, {12, 27, 44}, {17, 32, 44},
{23, 28, 44}, {35, 40, 44}}, {{18, 26, 45}, {20, 36, 45}}, {{1, 22, 46}, {2, 43, 46}, {3, 30, 46}, {14, 17, 46}, {22, 37, 46}, {30, 45, 46}}, {{4, 32, 47}, {16, 28, 47}}, {{4, 9, 48}, {8, 21, 48}, {11, 36, 48}, {12, 19, 48}, {20, 39, 48}, {24, 29, 48},
{25, 36, 48}, {33, 44, 48}, {40, 45, 48}}, {{2, 14, 49}, {8, 28, 49}, {18, 42, 49}}, {{1, 10, 50}, {5, 38, 50}, {9, 30, 50}, {10, 37, 50}, {15, 42, 50}, {30, 33, 50}, {38, 41, 50}}, {{8, 12, 51}, {10, 18, 51}, {18, 46, 51}, {26, 42, 51}, {32, 48, 51}},
{{4, 23, 52}, {11, 44, 52}, {15, 36, 52}, {16, 17, 52}, {21, 24, 52}}, {{2, 34, 53}, {4, 44, 53}, {22, 26, 53}}, {{3, 10, 54}, {3, 46, 54}, {6, 23, 54}, {9, 22, 54}, {10, 45, 54}, {19, 42, 54}, {22, 33, 54}, {30, 35, 54}, {42, 47, 54}}, {{22, 46, 55},
{34, 38, 55}, {40, 44, 55}}, {{3, 24, 56}, {5, 40, 56}, {7, 8, 56}, {12, 21, 56}, {16, 37, 56}, {20, 35, 56}, {20, 55, 56}, {28, 29, 56}, {32, 49, 56}, {52, 53, 56}}, {{6, 14, 57}, {12, 44, 57}, {20, 24, 57}, {28, 36, 57}, {46, 54, 57}}, {{6, 9, 58},
{6, 33, 58}, {11, 22, 58}, {15, 30, 58}}, {{2, 22, 59}, {12, 48, 59}, {16, 32, 59}}, {{5, 48, 60}, {7, 24, 60}, {12, 59, 60}, {27, 40, 60}, {32, 51, 60}, {36, 55, 60}}, {{4, 32, 61}, {16, 28, 61}, {22, 58, 61}}, {{2, 11, 62}, {2, 61, 62}, {5, 10, 62},
{10, 41, 62}, {19, 58, 62}, {25, 34, 62}, {35, 50, 62}, {39, 54, 62}}, {{2, 54, 63}, {6, 22, 63}, {8, 36, 63}, {14, 18, 63}, {24, 28, 63}, {34, 42, 63}, {48, 56, 63}}, {{8, 49, 64}, {12, 33, 64}, {15, 60, 64}, {16, 47, 64}, {23, 44, 64}, {24, 57, 64},
{28, 41, 64}, {39, 48, 64}, {43, 52, 64}}, {{20, 44, 65}, {30, 42, 65}, {52, 64, 65}}, {{3, 26, 66}, {6, 43, 66}, {9, 62, 66}, {11, 42, 66}, {18, 19, 66}, {18, 47, 66}, {21, 38, 66}, {26, 57, 66}, {27, 34, 66}, {30, 55, 66}, {33, 38, 66}, {57, 62, 66}},
{{4, 16, 67}, {8, 64, 67}, {12, 36, 67}, {32, 56, 67}, {42, 66, 67}}, {{1, 44, 68}, {3, 36, 68}, {4, 11, 68}, {16, 41, 68}, {24, 27, 68}, {24, 45, 68}}, {{6, 38, 69}, {12, 32, 69}, {18, 34, 69}, {30, 58, 69}, {42, 50, 69}, {48, 56, 69}}, {{7, 26, 70},
{13, 50, 70}, {14, 23, 70}, {15, 42, 70}, {21, 30, 70}, {26, 65, 70}, {30, 33, 70}, {35, 38, 70}, {49, 50, 70}, {63, 66, 70}}, {{10, 22, 71}, {18, 54, 71}, {24, 48, 71}}, {{1, 12, 72}, {4, 27, 72}, {4, 45, 72}, {8, 9, 72}, {13, 24, 72}, {16, 63, 72},
{16, 69, 72}, {21, 40, 72}, {25, 60, 72}, {33, 56, 72}, {36, 61, 72}, {39, 52, 72}, {44, 69, 72}, {51, 64, 72}}, {{6, 54, 73}, {10, 14, 73}, {40, 64, 73}, {42, 66, 73}}, {{6, 27, 74}, {7, 10, 74}, {10, 65, 74}, {18, 21, 74}, {18, 33, 74}, {31, 58, 74},
{46, 47, 74}, {58, 59, 74}}, {{6, 58, 75}, {22, 54, 75}, {24, 32, 75}}, {{1, 28, 76}, {3, 12, 76}, {8, 53, 76}, {13, 52, 76}, {16, 23, 76}, {25, 68, 76}, {32, 43, 76}, {32, 65, 76}}, {{4, 52, 77}, {14, 38, 77}, {18, 66, 77}, {22, 34, 77}, {28, 44, 77},
{42, 54, 77}, {56, 68, 77}}, {{5, 54, 78}, {6, 11, 78}, {6, 67, 78}, {6, 73, 78}, {9, 46, 78}, {13, 66, 78}, {18, 71, 78}, {21, 50, 78}, {39, 62, 78}, {45, 50, 78}, {46, 57, 78}, {51, 74, 78}, {54, 65, 78}, {61, 66, 78}}, {{8, 16, 79}, {14, 58, 79},
{30, 78, 79}, {38, 46, 79}, {68, 76, 79}}, {{1, 68, 80}, {15, 36, 80}, {20, 43, 80}, {23, 64, 80}, {32, 35, 80}}, {{2, 18, 81}, {8, 36, 81}, {12, 52, 81}, {24, 28, 81}, {32, 72, 81}, {42, 70, 81}, {48, 76, 81}}, {{2, 29, 82}, {6, 39, 82}, {11, 74, 82},
{13, 26, 82}, {19, 22, 82}, {26, 49, 82}, {31, 46, 82}, {46, 59, 82}, {58, 71, 82}}, {{2, 26, 83}, {14, 22, 83}, {20, 80, 83}, {32, 76, 83}, {52, 64, 83}, {54, 66, 83}}, {{3, 56, 84}, {5, 12, 84}, {7, 48, 84}, {8, 69, 84}, {9, 28, 84}, {12, 47, 84},
{17, 24, 84}, {21, 52, 84}, {23, 72, 84}, {27, 64, 84}, {29, 48, 84}, {32, 81, 84}, {33, 68, 84}, {35, 60, 84}, {36, 43, 84}, {49, 72, 84}}, {{6, 42, 85}, {8, 80, 85}, {14, 70, 85}, {20, 32, 85}}, {{2, 13, 86}, {2, 49, 86}, {5, 70, 86}, {14, 47, 86},
{17, 46, 86}, {27, 30, 86}, {31, 38, 86}, {38, 59, 86}, {46, 53, 86}, {70, 77, 86}}, {{4, 72, 87}, {4, 84, 87}, {6, 26, 87}, {6, 62, 87}, {24, 68, 87}, {36, 76, 87}, {40, 60, 87}, {42, 46, 87}, {66, 86, 87}, {80, 84, 87}}, {{4, 77, 88}, {8, 29, 88},
{11, 28, 88}, {12, 39, 88}, {13, 76, 88}, {16, 55, 88}, {24, 33, 88}, {40, 41, 88}, {43, 64, 88}, {53, 56, 88}, {63, 84, 88}, {69, 72, 88}}, {{6, 18, 89}, {20, 52, 89}, {22, 82, 89}, {58, 62, 89}, {64, 68, 89}}, {{3, 50, 90}, {9, 10, 90}, {10, 57, 90},
{14, 27, 90}, {18, 55, 90}, {21, 22, 90}, {22, 45, 90}, {34, 63, 90}, {47, 54, 90}, {50, 81, 90}, {75, 82, 90}}, {{14, 62, 91}, {26, 58, 91}, {28, 68, 91}, {36, 48, 91}, {42, 78, 91}}, {{4, 13, 92}, {8, 11, 92}, {16, 89, 92}, {21, 36, 92}, {25, 44, 92},
{31, 40, 92}, {44, 79, 92}, {49, 76, 92}, {56, 71, 92}, {56, 91, 92}, {57, 84, 92}, {60, 75, 92}}, {{6, 74, 93}, {14, 42, 93}, {16, 36, 93}, {24, 80, 93}, {24, 92, 93}, {34, 66, 93}, {36, 44, 93}, {36, 88, 93}}, {{2, 31, 94}, {2, 59, 94}, {3, 42, 94},
{11, 58, 94}, {15, 90, 94}, {17, 26, 94}, {26, 53, 94}, {37, 46, 94}, {42, 81, 94}, {50, 83, 94}, {54, 87, 94}, {63, 66, 94}, {67, 70, 94}}, {{6, 90, 95}, {8, 44, 95}, {10, 26, 95}, {12, 60, 95}}, {{3, 80, 96}, {3, 92, 96}, {7, 12, 96}, {8, 51, 96},
{12, 29, 96}, {16, 27, 96}, {19, 48, 96}, {27, 44, 96}, {27, 88, 96}, {28, 75, 96}, {33, 92, 96}, {35, 72, 96}, {36, 37, 96}, {53, 60, 96}, {77, 84, 96}}, {{4, 40, 97}, {12, 96, 97}, {30, 54, 97}, {48, 84, 97}, {56, 64, 97}, {58, 94, 97}, {74, 82, 97}},
{{1, 14, 98}, {7, 74, 98}, {9, 42, 98}, {14, 73, 98}, {18, 39, 98}, {21, 78, 98}, {22, 71, 98}, {25, 70, 98}, {30, 75, 98}, {35, 86, 98}, {41, 62, 98}, {42, 69, 98}, {50, 55, 98}, {61, 70, 98}, {69, 78, 98}, {86, 91, 98}}, {{2, 66, 99}, {12, 16, 99},
{12, 44, 99}, {12, 88, 99}, {18, 22, 99}, {28, 36, 99}, {38, 54, 99}, {52, 72, 99}, {70, 90, 99}}, {{1, 32, 100}, {8, 31, 100}, {20, 79, 100}, {21, 72, 100}, {40, 71, 100}, {40, 91, 100}, {59, 80, 100}, {63, 84, 100}}, {{2, 46, 101}, {26, 38, 101},
代码——p = {}; Table[q = DeleteCases[Table[If[IntegerQ[Sqrt[a^2 + b^2 + c^2]] && GCD[a, b, c] == 1, {a, b, c},Nothing], {a, n}, {b, a + 1, n}, {c, b + 1, n}] // Flatten[#, 2] &, {}]; r = Complement[q, p]; p = q; r, {n, 6, 99}] |