n <- 5000
m <- 2 * n - 1
d <- dist((1:n) ^ 3)
r <- rle(sort(d[duplicated(d)]))
for (x in r$value[r$length >= 4]) {
i <- which(d == x)
b
<- ceiling
((m
- sqrt(m
^ 2 - 8 * i
)) / 2) a <- n + i - (m - b) * b / 2
cat
(x
, ": ", toString
(sprintf("(%d, %d)", a
, b
)), "\n", sep
= "")}
biA8LSA1MDAwCm0gPC0gMiAqIG4gLSAxCmQgPC0gZGlzdCgoMTpuKSBeIDMpCnIgPC0gcmxlKHNvcnQoZFtkdXBsaWNhdGVkKGQpXSkpCgpmb3IgKHggaW4gciR2YWx1ZVtyJGxlbmd0aCA+PSA0XSkgewogICAgaSA8LSB3aGljaChkID09IHgpCiAgICBiIDwtIGNlaWxpbmcoKG0gLSBzcXJ0KG0gXiAyIC0gOCAqIGkpKSAvIDIpCiAgICBhIDwtIG4gKyBpIC0gKG0gLSBiKSAqIGIgLyAyCiAgICBjYXQoeCwgIjogIiwgdG9TdHJpbmcoc3ByaW50ZigiKCVkLCAlZCkiLCBhLCBiKSksICJcbiIsIHNlcCA9ICIiKQp9
1412774811: (1134, 357), (1155, 504), (1246, 805), (2115, 2004), (4746, 4725)