A332861-OEIS公司

A332861飞机

素数p的性质是，如果q<p是p到素数的分区的最小部分，那么p至少有一个其他素数分区具有相同的最小部分。

2, 3, 7, 13, 23, 31, 41, 79, 101, 107, 149, 163, 173, 191, 197, 269, 271, 293, 347, 419, 443, 523, 557, 647, 761, 769, 787, 1013, 1153, 1373, 1613, 1619, 1669, 1693, 1777, 1783, 1873, 2153, 2161, 2207, 2399, 2447, 2801, 2939, 2999, 3011, 3049, 3253, 3319, 3413

(列表;图表;参考;听;历史;文本;内部格式)

抵消

1,1

链接

阿洛伊斯·海因茨，n=1..200时的n，a（n）表

例子

素数13是一个成员，因为将13划分为小于13的素数部分时，最小素数至少出现两次：[2,2,2,2,2,3,3]，[2,2,3,2]，[2,2,2,5]，[2,13,5]，[2,2,7]，[2.11]，[3,3,7]，[5,5]；3次发生，2次发生。

素数11不是一个成员，因为在将11分成更小的素数[2,2,2,3]，[2,3,3,2]，[2,2,5]，[22,7]，[3,3]时，3作为最小素数只出现一次。

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）选项记忆；局部p；p： =a（n-1）；做

p： =下一素数（p）；如果（f->与映射（i->系数（f，x，i）

<>1，[$2..p-1]））（b（p，2，x）），然后返回p fiod

结束：a（1）：=2：

seq（a（n），n=1..33）#阿洛伊斯·海因茨2020年3月13日

数学

b[n_，p_，t_]：=b[n，p，t]=如果[n==0，1，如果[p>n，0，With[{q=NextPrime[p]}，Sum[b[n-pj，q，1]，{j，1，n/p}]t^p+b[n、q，t]]]；

a[n_]：=a[n]=模[{p=a[n-1]}，而[True，p=NextPrime[p]；如果[AllTrue[Range[2，p-1]，序列系数[b[p，2，x]，｛x，0，#｝]！=1&]，返回[p]]]；

a[1]=2；

表[打印[n，“”，a[n]]；a[n]，{n，1，33}](*Jean-François Alcover公司2020年11月23日之后阿洛伊斯·海因茨*)

交叉参考

囊性纤维变性。A000607号,A331634型.

上下文中的序列：A238423型 A133370型 A237283号*A182047号 A291544型 A208149型

相邻序列：A332858型 A332859型 A332860美元*A332862飞机 A332863飞机 A332864飞机

关键词

非n

作者

大卫·詹姆斯·桑莫尔2020年2月27日

扩展

a（13）-a（50）来自阿洛伊斯·海因茨2020年2月28日

状态

经核准的