>>969
検算してみた。

> a=8^(0:6) # 8進法で8^0,8^1,8^2...,8^6まで数列を作る
> a
[1] 1 8 64 512 4096 32768 262144
> cm=combn(7,3,function(x) a[x])　# 7個から3個の組み合わせを全部列挙
> cm
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12]
[1,] 1 1 1 1 1 1 1 1 1 1 1 1
[2,] 8 8 8 8 8 64 64 64 64 512 512 512
[3,] 64 512 4096 32768 262144 512 4096 32768 262144 4096 32768 262144
[,13] [,14] [,15] [,16] [,17] [,18] [,19] [,20] [,21] [,22] [,23]
[1,] 1 1 1 8 8 8 8 8 8 8 8
[2,] 4096 4096 32768 64 64 64 64 512 512 512 4096
[3,] 32768 262144 262144 512 4096 32768 262144 4096 32768 262144 32768
[,24] [,25] [,26] [,27] [,28] [,29] [,30] [,31] [,32] [,33]
[1,] 8 8 64 64 64 64 64 64 512 512
[2,] 4096 32768 512 512 512 4096 4096 32768 4096 4096
[3,] 262144 262144 4096 32768 262144 32768 262144 262144 32768 262144
[,34] [,35]
[1,] 512 4096
[2,] 32768 32768
[3,] 262144 262144
> sum(cm) # 全部加算する
[1] 4493895
> sum(a)*choose(6,2) # aの和に6C2を乗じる
[1] 4493895
> sum(cm)==sum(a)*choose(6,2) # 一致するのを確認
[1] TRUE
>