New answers tagged

4

n /. Solve[ {n == th*1000 + h*100 + t*10 + u, u > t > h > th, Thread[0 < {th, h, t, u} < 10]} // Flatten, {th, h, t, u, n}, Integers] (* {1234, 1235, 1236, 1237, 1238, 1239, 1245, 1246, 1247, 1248, 1249, \ 1256, 1257, 1258, 1259, 1267, 1268, 1269, 1278, 1279, 1289, 1345, \ 1346, 1347, 1348, 1349, 1356, 1357, 1358, 1359, 1367, 1368, ...



Top 50 recent answers are included