搜索: a296560-编号:a2965600
|
|
A296188型
|
| 形状为Heinz数n的整数分区的正规半标准Young表的个数。 |
|
+10 49
|
|
|
1, 1, 2, 1, 4, 4, 8, 1, 6, 12, 16, 6, 32, 32, 28, 1, 64, 16, 128, 24, 96, 80, 256, 8, 44, 192, 22, 80, 512, 96, 1024, 1, 288, 448, 224, 30, 2048, 1024, 800, 40, 4096, 400, 8192, 240, 168, 2304, 16384, 10, 360, 204, 2112, 672, 32768, 68, 832, 160, 5376, 5120
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,3
|
|
评论
|
如果表的条目跨越正整数的初始区间,则表是正常的。整数分区的Heinz数(y_1,…,y_k)是素数(y_1)**质数(yk)。
|
|
参考文献
|
Richard P.Stanley,枚举组合数学第2卷,剑桥大学出版社,1999年,第7.10章。
|
|
链接
|
|
|
配方奶粉
|
设b(n)=Sum_{d|n,d>1}b(n*d'/d),其中如果d=Product_i素数(s_i)^m(i),则d'=Product_i-素数(s1)^m。则a(n)=b(conj(n)),其中conj=A122111号.
|
|
例子
|
a(9)=6表aux:
1 3 1 2 1 2 1 2 1 1 1 1
2 4 3 4 3 3 2 3 2 3 2 2
|
|
数学
|
conf[y_List]:=如果[Length[y]===0,y,表[Length[Select[y,#>=k&]],{k,1,Max[y]}];
conf[n_Integer]:=Times@@Prime/@conf[If[n===1,{},Join@@Cases[FactorInteger[n]//反向,{p_,k_}:>表[PrimePi[p],{k}]];
ssyt[n_]:=如果[n===1,1,Sum[ssyt[n/q*Times@@Cases[FactorInteger[q],{p_,k_}:>如果[p===2,1、NextPrime[p,-1]^k]]],{q,Rest[Divisors[n]}]];
表[ssyt[conj[n]],{n,50}]
|
|
交叉参考
|
囊性纤维变性。A000085号,A001222号,A056239号,A063834号,A112798号,A122111号,A138178号,A153452号,A191714号,A210391型,228125元,A296150型,A296560型,A296561型,A299202型,A299966型,A300056型,A300121型.
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
已批准
|
|
|
|
|
|
|
1, 1, 1, 2, 1, 2, 1, 4, 2, 2, 1, 5, 1, 2, 2, 8, 1, 4, 1, 5, 2, 2, 1, 12, 2, 2, 4, 5, 1, 5, 1, 16, 2, 2, 2, 11, 1, 2, 2, 12, 1, 5, 1, 5, 5, 2, 1, 28, 2, 4, 2, 5, 1, 8, 2, 12, 2, 2, 1, 15, 1, 2, 5, 32, 2, 5, 1, 5, 2, 5, 1, 29, 1, 2, 4, 5, 2, 5, 1, 28, 8, 2, 1, 15, 2, 2, 2, 12, 1, 12, 2, 5, 2, 2, 2, 64, 1, 4, 5, 11, 1, 5, 1, 12, 5
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,4
|
|
评论
|
n的多最小因式分解是n的有序因式分解为大于1的因子,使得划分每个因子的最小素数序列弱递增。
|
|
链接
|
|
|
配方奶粉
|
a(1)=1;a(n>1)=和{d|(n/p)}a(d),其中p是最小素数除以n。
|
|
例子
|
a(36)=11个多分钟因式分解:
(36),
(2*18), (4*9), (6*6), (12*3), (18*2),
(2*2*9), (2*6*3), (4*3*3), (6*2*3),
(2*2*3*3)。
|
|
数学
|
a[n_]:=如果[n==1,1,和[a[d],{d,除数[n/FactorInteger[n][[1,1]]}]];
数组[a,100]
|
|
黄体脂酮素
|
(PARI)
memo317545=地图();\\记忆版本。
A317545型(n) =如果(1==n,1,如果(mapisdefined(memo317545,n),mapget(memo31.7545,n),my(spf=因子(n)[1,1],v=sumdiv(n/spf,d,A317545型(d) );地图(备忘录317545,n,v);(v) )\\安蒂·卡图恩2018年9月10日
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
扩展
|
|
|
状态
|
已批准
|
|
|
搜索在0.009秒内完成
|