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

 

标志
提示
(来自的问候整数序列在线百科全书!)
搜索: 编号:a258116
显示1-1个结果(共1个)。 第页1
    排序:关联|参考文献||被改进的|创建     格式:长的|短的|数据
A258116型 海因茨数按分区的递增顺序划分为不同的奇数部分。 +0
22
1, 2, 5, 10, 11, 17, 22, 23, 31, 34, 41, 46, 47, 55, 59, 62, 67, 73, 82, 83, 85, 94, 97, 103, 109, 110, 115, 118, 127, 134, 137, 146, 149, 155, 157, 166, 167, 170, 179, 187, 191, 194, 197, 205, 206, 211, 218, 227, 230, 233, 235, 241, 253, 254, 257, 269, 274, 277, 283, 295, 298, 307, 310, 313, 314, 331, 334, 335, 341, 347 (列表;图表;参考;;历史;文本;内部格式)
偏移
1,2
评论
我们将分区p=[p_1,p_2,…,p_r]的Heinz数定义为乘积(p_j-th素数,j=1…r)(阿洛伊斯·海因茨在里面A215366型作为分区的“编码”)。例如,分区[1,1,2,4,10]的Heinz数是2*2*3*7*29=2436。
在Maple程序中,子程序B生成Heinz编号为n的分区。
如果将Maple程序中的350替换为更大的数字,则会获得更多术语。
参考文献
G.E.Andrews,《分割理论》,Addison-Wesley,Reading,马萨诸塞州,1976年。
G.E.Andrews、K.Eriksson,《整数分区》,剑桥大学出版社,2004年,剑桥。
链接
阿洛伊斯·海因茨,n=1..10000时的n,a(n)表
例子
170位于序列中,因为它是分区[1,3,7]的Heinz数;实际上,(第一素数)*(第三素数)x(第七素数)=2*5*17=170。
MAPLE公司
with(numtheory):B:=proc(n)local pf:pf:=op(2,ifactors(n)):[seq(seq(pi(op(1,op(i,pf))),j=1..op(2、op(i、pf){true})then DO:=`union`(DO,{q})else end if end DO:DO;
#第二个Maple项目:
a: =proc(n)选项记忆;局部k;
对于来自1+“if”(n=1,0,a(n-1))的k,do
如果在map中不是false(i->i[2]=1和numtheory
[pi](i[1])::奇数,ifactors(k)[2])然后中断fi
od;k个
结束:
seq(a(n),n=1..100)#阿洛伊斯·海因茨2016年5月10日
数学
a[n_]:=a[n]=模[{k},对于[k=1+如果[n==1,0,a[n-1]],True,k++,如果[AllTrue[FactorInteger[k],#[2]]==1&&OddQ[PrimePi[#[1]]]&],Break[]]];k] ;联接[{1},数组[a,100]](*Jean-François Alcover公司2016年12月10日之后阿洛伊斯·海因茨*)
交叉参考
囊性纤维变性。A215366型,A258117号
关键词
非n
作者
Emeric Deutsch公司2015年5月20日
扩展
a(1)=1由插入阿洛伊斯·海因茨2016年5月10日
状态
经核准的
第页1

搜索在0.005秒内完成

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

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

上次修改时间:美国东部夏令时2024年5月10日02:20。包含372354个序列。(在oeis4上运行。)