特定组合的代

Question

在Mathematica中，我实施了此简单代码：

n = 8;
a0 = Range[0, n - 1];
a1 = Subsets[a0, {2}];
a2 = Subsets[a1, {2}];
a3 = Select[a2, Length[Union[Flatten[#]]] == 4 &];
a4 = Subsets[a3, {n/4}];
a5 = Select[a4, Length[Union[Flatten[#]]] == n &];
a6 = Map[Flatten, a5, 1];

where

n

可以采用诸如4、8、12、16，...

之类的值

问题是，已经有了

n = 12

，您就没有到达任何地方，因为

a4

的大小变得很大。哪种算法可以直接从

a6

或

a0

？

获得

n

？
    

Answer 1

计算

a6
• = 0、1、2、3，...

  的值。
  

  在

  Https：//oeis.org/

上查看结果序列
• 检查搜索结果是否与您的期望符合您的期望以及是否有封闭形式的解决方案