登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A316771型 叶与Heinz数n形成整数分区的局部非相交根树的级数减少数。 0
0, 1, 1, 0, 1, 1, 1, 0, 0, 1, 1, 2, 1, 1, 1, 0, 1, 2, 1, 2, 1, 1, 1, 4, 0, 1, 0, 2, 1, 4, 1, 0, 1, 1, 1, 6, 1, 1, 1, 4, 1, 4, 1, 2, 2, 1, 1, 8, 0, 2, 1, 2, 1, 4, 1, 4, 1, 1, 1, 12, 1, 1, 2, 0, 1, 4, 1, 2, 1, 4, 1, 17, 1, 1, 2, 2, 1, 4, 1, 8, 0, 1, 1, 12, 1, 1 (列表;图表;参考文献;;历史;文本;内部格式)
抵消
1,12
评论
如果每个非叶节点都至少有两个分支,则根树是连续减少的。如果任何给定根下所有分支的交集为空,则表示局部不相交。
整数分区的Heinz数(y_1,…,y_k)是素数(y_1)**质数(yk)。
链接
例子
a(36)=6棵树:
(1(2(12)))
(2(1(12)))
(1(122))
(2(112))
(12(12))
(1122)
数学
sps[{}]:={{}};
sps[set:{i_,___}]:=联接@@函数[s,前缀[#,s]和/@sps[Complement[set,s]]/@Cases[子集[set],{i,___}];
mps[set_]:=联合[Sort[Sort/@(#/.x_Integer:>set[[x]])]&/@sps[Range[Length[set]]];
gro[m_]:=gro[m]=如果[Length[m]==1,List/@m,Union[Sort/@Join@@(Tuples[gro/@#]&/@Select[mps[m],Length[#]>1&])]];
表[Length[Select[gro[If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>表[PrimePi[p],{k}]]],和@@Cases[#,q:{__List}:>交集@@q=={}、{0,无限}]&]],{n,100}]
交叉参考
关键词
非n
作者
古斯·怀斯曼2018年7月12日
状态
经核准的

查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。

许可协议、使用条款、隐私政策。.

上次修改时间:美国东部夏令时2024年6月19日22:07。包含373507个序列。(在oeis4上运行。)