ネイピア数(e)の近似式（2）

library(e1071)
d = permutations(7)
a = d[,1] ^((d[,2]/10+d[,3]/10)^(-d[,4]/10)-d[,5]^(-d[,6]-d[,7]/10))
p = which.min(abs(a-exp(1)))
d[a==a[p],]
a[p]
     [,1] [,2] [,3] [,4] [,5] [,6] [,7]
[1,]    2    1    3    4    5    7    6
[2,]    2    3    1    4    5    7    6