- Solve[{IntegerReverse[x^2] == y^2, y >= x, 9000 > x > 0}, {x, y}, Integers]
复制代码
{x -> 1, y -> 1, x -> 2, y -> 2, x -> 3, y -> 3, x -> 11, y -> 11, x -> 12, y -> 21, x -> 13, y -> 31, x -> 22, y -> 22, x -> 26, y -> 26, x -> 33, y -> 99, x -> 101, y -> 101, x -> 102, y -> 201, x -> 103, y -> 301,
x -> 111, y -> 111, x -> 112, y -> 211, x -> 113, y -> 311, x -> 121, y -> 121, x -> 122, y -> 221, x -> 202, y -> 202, x -> 212, y -> 212, x -> 264, y -> 264, x -> 307, y -> 307, x -> 836, y -> 836, x -> 1001, y -> 1001,
x -> 1002, y -> 2001, x -> 1003, y -> 3001, x -> 1011, y -> 1101, x -> 1012, y -> 2101, x -> 1013, y -> 3101, x -> 1021, y -> 1201, x -> 1022, y -> 2201, x -> 1031, y -> 1301, x -> 1102, y -> 2011, x -> 1103, y -> 3011,
只要 x ——1, 2, 3, 11, 12, 13, 22, 26, 33, 101, 102, 103, 111, 112, 113, 121, 122, 202, 212, 264, 307, 836, 1001, 1002, 1003, 1011, 1012, 1013, 1021, 1022, 1031, 1102, 1103,
我们太超前了——OEIS连这串数也没有。 |