现学现用。谢谢northwolves!
- Table[Select[Table[{k[[2]]^2 - k[[1]]^2, 2 Times @@ k}, {k, PowersRepresentations[12 n + 5, 2, 2]}], CoprimeQ @@ # &], {n, 0, 60}]
复制代码
{{{3, 4}}, {{15, 8}}, {{21, 20}}, {{9, 40}}, {{45, 28}}, {{63, 16}, {33, 56}}, {}, {{39, 80}}, {{99, 20}}, {{15, 112}}, {{117, 44}}, {{105, 88}}, {{51, 140}}, {}, {{165, 52}}, {{153, 104}, {57, 176}}, {{195, 28}},
{}, {{171, 140}, {21, 220}}, {{105, 208}}, {}, {{255, 32}}, {{69, 260}}, {{231, 160}}, {{285, 68}}, {{273, 136}, {207, 224}}, {{75, 308}}, {}, {}, {{225, 272}}, {{357, 76}, {27, 364}}, {{345, 152}, {135, 352}},
{{189, 340}}, {{399, 40}}, {}, {{297, 304}, {87, 416}}, {}, {{351, 280}}, {{261, 380}}, {}, {{483, 44}, {93, 476}}, {}, {{459, 220}}, {{279, 440}}, {{525, 92}, {435, 308}}, {{513, 184}, {33, 544}}, {{165, 532}},
{{231, 520}}, {},{{465, 368}}, {}, {{105, 608}}, {{621, 100}, {429, 460}}, {{609, 200}}, {{315, 572}}, {}, {{675, 52}}, {{561, 400}, {111, 680}}, {{651, 260}}, {}, {{627, 364}, {333, 644}}}
- Table[Select[Table[{k[[2]]^2 - k[[1]]^2, 2 Times @@ k}, {k, PowersRepresentations[12 n + 1, 2, 2]}], CoprimeQ @@ # &], {n, 1, 60}]
复制代码
{{{5, 12}}, {{7, 24}}, {{35, 12}}, {}, {{11, 60}}, {{55, 48}}, {{77, 36}, {13, 84}}, {{65, 72}}, {{91, 60}}, {}, {}, {{143, 24}, {17, 144}}, {{85, 132}}, {{119, 120}}, {{19, 180}}, {{95, 168}}, {{187, 84}},
{133, 156}}, {}, {{221, 60}}, {{209, 120}}, {}, {{247, 96}, {23, 264}}, {{115, 252}}, {{161, 240}}, {}, {{25, 312}}, {{323, 36}, {253, 204}}, {{175, 288}}, {{299, 180}}, {}, {{275, 252}}, {}, {{325, 228}},
{{391, 120}}, {{29, 420}}, {{145, 408}}, {{437, 84}, {203, 396}}, {{425, 168}}, {}, {{319, 360}, {31, 480}}, {{475, 132}, {155, 468}}, {{377, 336}, {217, 456}}, {}, {}, {{341, 420}}, {}, {{493, 276},
{403, 396}}, {{575, 48}}, {}, {{551, 240}}, {{35, 612}}, {{527, 336}}, {}, {}, {{589, 300}}, {{385, 552}}, {{667, 156}, {37, 684}}, {{455, 528}, {185, 672}}, {{259, 660}}, {}}
- Table[Select[Table[{k[[2]]^2 - k[[1]]^2, 2 Times @@ k}, {k, PowersRepresentations[12 n - 5, 2, 2]}], CoprimeQ @@ # &], {n, 0, 120}]
复制代码
{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {},{}, {}, {},
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}
- Table[Select[Table[{k[[2]]^2 - k[[1]]^2, 2 Times @@ k}, {k, PowersRepresentations[12 n - 1, 2, 2]}], CoprimeQ @@ # &], {n, 0, 120}]
复制代码
{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {},
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}
不仅是 12n-5,12n-1 无解, 好像 12n-4,12n-3,12n-2,12n-0,12n+2,12n+3,12n+4 也是无解? |