%I#4 2019年1月15日18:45:43
%S 1,1,1,1,2,1,2,1,1,3,2,1,3,1,2,5,1,4,1,3,2,2,1,5,2,3,3,1,4,7,2,
%温度2,2,8,1,2,2,5,1,4,1,3,3,2,1,7,2,3,1,7,2,5,2,1,8,1,2,3,12,4,1,
%U 3,2,4,1,12,1,2,4,3,2,4-1,7,5,2,1,8,2,2
%N部分是N的素数指标的平面分区数。
%C用n的素数索引填充Young图以使所有行和列都弱递减的方法的数目。
%C n的素数指数是一个数m,素数(m)除以n。n的多素数指数集是A112798的第n行。
%e a(120)=12个平面隔板:
%电话:32111
%e、。
%电子311 321 3111 3211
%e 21 11 2 1
%e、。
%e 31 32 311 321电话
%e 21 11 2 1
%e 1 1 1 1
%e、。
%e 31 32
%e 2 1个
%e 1 1
%e 1 1
%e、。
%e三
%第2页
%第1页
%第1页
%第1页
%t素数MS[n_]:=如果[n==1,{},扁平[Cases[FactorInteger[n],{p_,k_}:>表[PrimePi[p],{k}]]];
%t facs[n_]:=如果[n<=1,{{}},连接@@表[Map[Prepend[#,d]&,选择[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}];
%t ptnplane[n_]:=并集[Map[Reverse@*primeMS,Join@@Permutations/@facs[n],{2}]];
%t表[Length[Select[ptnplane[y],And[And@@GreaterEqual@@@#,And@@(GreaterEqual@@@Transpose[PadRight[#]])]&],{y,100}]
%Y参见A000085、A000219、A003293、A056239、A112798、A114736、A117433、A138178、A296188、A299968。
%Y参考A323300、A323429、A323437、A32343、A323499。
%K nonn公司
%0、5
%A _Gus Wiseman_,2019年1月15日
|