编辑
经核准的
a(n)+ A238620型(n个) =A000041号(n) - A238620型(n个).
提出
(*第三个程序的目的只是展示如何使用Mathematica的StandardDeviation和校正因子来计算sigma,即总体标准偏差。*)
sigma[t]:=如果[长度[t]==1,0,标准偏差[t]*Sqrt[(长度[t]-1)/长度[t']];
a[n_]:=计数[IntegerPartitions[n],p_/;西格玛[p]<1];
数组[a,30](*Jean-François Alcover公司2021年5月28日*)
具有标准偏差的n的分区数σ < 1.
非n,容易的,改变
(*第二 第二 程序:*)