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

 

徽标
提示
(来自的问候整数序列在线百科全书!)
A317141型 在按求精排序的整数分块排序偏序集中,整数分块的数目大于或等于Heinz数为n的整数分片的数目。 14
1, 1, 1, 2, 1, 2, 1, 3, 2, 2, 1, 4, 1, 2, 2, 5, 1, 4, 1, 4, 2, 2, 1, 6, 2, 2, 3, 4, 1, 5, 1, 7, 2, 2, 2, 8, 1, 2, 2, 7, 1, 5, 1, 4, 4, 2, 1, 10, 2, 4, 2, 4, 1, 7, 2, 7, 2, 2, 1, 9, 1, 2, 4, 11, 2, 5, 1, 4, 2, 5, 1, 12, 1, 2, 4, 4, 2, 5, 1, 11, 5, 2, 1, 10, 2 (列表;图表;参考;;历史;文本;内部格式)
抵消
1,4
评论
整数分区的Heinz数(y_1,…,y_k)是素数(y_1)*…*素数(y_k)。
链接
阿洛伊斯·海因茨,n=1..65536时的n,a(n)表
例子
a(24)=6个比(2111)粗的分区是(2111,(311),(221),,(32),(41),(5),海因茨数为24,20,18,15,14,11。
MAPLE公司
g: =l->`如果`(l=[],{[]},(t->map(sort,map(x->
[seq(底土(i=x[i]+t,x),i=1..nops(x)),
[x[],t]][],g(底土(-1=[][],l))(l[-1]):
a: =n->nops(g(映射(i->numtheory[pi](i[1])$i[2],ifactors(n)[2])):
seq(a(n),n=1..100)#阿洛伊斯·海因茨2018年7月22日
数学
素数MS[n_]:=如果[n==1,{},扁平[Cases[FactorInteger[n],{p_,k_}:>表[PrimePi[p],{k}]]];
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]]];
ptncaps[ptn_]:=并集[Sort/@Apply[Plus,mps[ptn],{2}]];
表[Length[ptncaps[primeMS[n]]],{n,100}]
交叉参考
关键词
非n
作者
古斯·怀斯曼2018年7月22日
状态
经核准的

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

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

上次修改时间:2024年4月27日07:58 EDT。包含372009个序列。(在oeis4上运行。)