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

 

徽标
提示
(来自的问候整数序列在线百科全书!)
A330433型 对k进行编号,这样如果k有一个至少部分为p的素数分区,那么k至少还有一个其他素数分区至少部分为p。 1
63, 161, 195, 235, 253, 425, 513, 581, 611, 615, 635, 667, 767, 779, 791, 803, 959, 1001, 1015, 1079, 1095, 1121, 1127, 1251, 1253, 1265, 1267, 1547, 1557, 1595, 1617, 1625, 1647, 1649, 1681, 1683, 1687, 1771, 1817, 1829, 1915, 1921, 2071, 2125, 2159, 2185 (列表;图表;参考;;历史;文本;内部格式)
抵消
1,1
评论
如果k是素数,那么[k]是k的唯一一个具有最小部分k的素数分区,因此k不可能在这个序列中。如果k>2是偶数,那么(假设哥德巴赫猜想有效)k(p<=q)有一个素分划[p,q],其中p是最大可能的最小部分,因此用最小部分p不可能有k的其他分划,因此k不是项。因此,这个序列的所有项都是奇数合成。
链接
例子
9不是一个项,因为[3,3,3]是9的唯一素数分区,其中3是最小部分。
63是一个术语,因为每一个可能的素数分划都按如下方式计算,其中(m,p)表示63的m个分划,其最小部分为p:(2198,2)、(323,3)、(60,5)、(15,7)、(5,11)、(2,13)、(2,17),(m值之和=2605=A000607号(63)). 63必须在序列中,因为(1,p)没有出现在这个列表中,并且是最小的数字,因为每一个奇数组合<63都至少有一个带唯一最小部分的素数分区(如上面的9)。
MAPLE公司
b: =proc(n,p,t)选项记忆`如果`(n=0,1,`如果`(p>n,0,(q->
加(b(n-p*j,q,1),j=1..n/p)*t^p+b(n,q,t))(下一素数(p))
结束时间:
a: =proc(n)选项记忆;局部k;对于a(n-1)+1中的k
而1in{coeffs(b(k,2,x))}做od;k个
结束:a(0):=1:
seq(a(n),n=1..40)#阿洛伊斯·海因茨2020年3月21日
数学
b[n_,p_,t_]:=b[n,p,t]=如果[n==0,1,如果[p>n,0,函数[q,和[b[n-pj,q,1],{j,1,n/p}]t^p+b[n、q,t]][NextPrime[p]]];
a[0]=1;
a[n]:=a[n]=模块[{k},For[k=a[n-1]+1,MemberQ[CoefficientList[b[k,2,x],x],1],k++];k] ;
表[打印[n,“”,a[n]];a[n],{n,1,40}](*Jean-François Alcover公司2020年11月26日之后阿洛伊斯·海因茨*)
交叉参考
关键词
非n
作者
状态
经核准的

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

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

上次修改时间:美国东部夏令时2024年4月23日06:04。包含371906个序列。(在oeis4上运行。)