提出

经核准的

编辑

提出

(*b条=表[a[m]，{m，0，10}] *)}]

提出

编辑

乔格·阿恩特：好的，数学编辑已撤消。

编辑

提出

迈克尔·德弗利格：@Joerg，我认为公式部分的第二行是出现的mathca程序的伪代码。我们不应该注释掉“b=Table…”元素，因为这是生成序列的原因。我想我不懂数学，所以我会让另一个编辑写一个有说服力的程序。

迈克尔·德弗利格：我用Alcover的A005229来写这个，它与上面的基本相同：a169638[n_]：=块[{a}，a[0]=a[1]=a[2]=1；a[x_]：=a[x]=a[a[x-2]+a[x-a[x-2]]；长度[Permutations[Array[a，#，0]]&/@Range[n]]；a169638[12]，其中a=a005228。计算机内存不足，a169638[13]。事实上，一点效率都没有。

Robert Israel，<a href=“/A169638号/b169638.txt“>n表，n=0..429时为a（n）</a>

非n,更多,已更改

1, 1, 1, 4, 20, 60, 420, 3360, 30240, 151200, 1663200,9979200,129729600,1816214400,27243216000,217945728000,3705077376000,66691392768000,633568231296000,12671364625920000,266098657144320000,5854170457175040000,134645920515025920000,1615751046180311040000

N： =100:#将a（0）转换为a（N）

A005229号：=proc（n）选项记忆；

进程名（进程名（n-2））+进程名（n进程名（n-2））

结束进程：

A005229号(1):= 1:A005229号(2):= 1:

五： =矢量（N）：

A[0]：=1:V[1]：=1:

对于从1到n的n do

回复：=A005229号（n） ；

V[r]：=V[r]+1；

A[n]：=A[n-1]*（n+1）/V[r]；

日期：

seq（A[i]，i=0..N）#罗伯特·伊斯雷尔2014年12月23日

从a（11）到a（23）罗伯特·伊斯雷尔2014年12月23日

提出

编辑

编辑

提出

（*计算项的更好方法是使用项的重数的多项式A005229号-乔格·阿恩特2014年12月23日*）

囊性纤维变性。A169637号.

非n,更多,已更改

提出

编辑

编辑

提出

米歇尔·马库斯：更多？

b条一（n）=b条(b条(n个-2))+数 属于 排列 属于 这个 列表 b条([0..n个-]哪里 b条(n个-2))哪里0)=0 和b（n）=A005229号（n）和对于 b条(0)=n个>=1

a（n）=列表b的排列数[0..n]。

(*A005229号*);

乔格·阿恩特：代码效率极低。