本帖最后由 王守恩 于 2021-6-26 09:03 编辑
不止是3,好像3,6,7,11,12,14,...都是无解的,有什么规律吗?
Select[Range[300], SquaresR[2, #] == 0 &]
{3, 6, 7, 11, 12, 14, 15, 19, 21, 22, 23, 24, 27, 28, 30, 31, 33, 35, 38, 39, 42, 43, 44, 46, 47, 48,
51, 54, 55, 56, 57, 59, 60, 62, 63, 66, 67, 69, 70, 71, 75, 76, 77, 78, 79, 83, 84, 86, 87, 88, 91, 92,
93, 94, 95, 96, 99, 102, 103, 105, 107, 108, 110, 111, 112, 114, 115, 118, 119, 120, 123, 124, 126,
127, 129, 131, 132, 133, 134, 135, 138, 139, 140, 141, 142, 143, 147, 150, 151, 152, 154, 155, 156,
158, 159, 161, 163, 165, 166, 167, 168, 171, 172, 174, 175, 176, 177, 179, 182, 183, 184, 186, 187,
188, 189, 190, 191, 192, 195, 198, 199, 201, 203, 204, 206, 207, 209, 210, 211, 213, 214, 215, 216,
217, 219, 220, 222, 223, 224, 227, 228, 230, 231, 235, 236, 237, 238, 239, 240, 243, 246, 247, 248,
249, 251, 252, 253, 254, 255, 258, 259, 262, 263, 264, 266, 267, 268, 270, 271, 273, 275, 276, 278,
279, 280, 282, 283, 284, 285, 286, 287, 291, 294, 295, 297, 299, 300, 301, 302, 303, 304, 307, 308}
|