|
| |
|
| A254751型 |
| 以10为基数的数字，其所有适当的前缀和后缀都表示质数。 |
|
7
|
|
|
|
22, 23, 25, 27, 32, 33, 35, 37, 52, 53, 55, 57, 72, 73, 75, 77, 237, 297, 313, 317, 373, 537, 597, 713, 717, 737, 797, 2337, 2397, 2937, 3113, 3137, 3173, 3797, 5937, 5997, 7197, 7337, 7397, 29397, 31373, 37937, 59397, 73313, 739397
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,1
|
|
|
评论
|
数字m的适当前缀（或后缀）既不是无效的，也不是与m相同的。
替代定义：以任何方式将a（n）的十进制展开式切成两个非空部分，每个部分代表一个质数。
每个成员a（n）的每个适当前缀都是的成员A024770号，每个适当的后缀都是A024785号由于这些是有限序列，a（n）也是有限的。它有45个成员，其中最大的是739397个，正好是一个质数。
|
|
|
链接
|
|
|
|
示例
|
6不是成员，因为它的扩展不能分为两部分。
597是一个成员，因为（5、97、59和7）都是素数。
2331被排除在外，因为233是质数，而1不是质数-戈登·汉密尔顿2015年2月20日
|
|
|
数学
|
fQ[n_]：=（p=｛2，3，5，7｝；如果[Union@Join[p，｛Mod[n，10]}]！=p，｛False｝，Block[｛idn=IntegerDigits@n，lng=Floor@Log10@n｝，Union@PrimeQ@Flatten@Table[｛FromDigits[Take[idn，i]]，FromDigits[Take[idn，-lng+i-1]｝，｛i，lng｝]=｛True｝]]）；选择[范围@1000000，fQ](*罗伯特·威尔逊v2015年2月21日*）
选择[Range[10，750000]，AllTrue[Flatten[Table[FromDigits/@TakeDrop[IntegerDigits[#]，n]，{n，IntegerLength[#]-1}]]，PrimeQ]&](*哈维·P·戴尔2024年2月13日*）
|
|
|
黄体脂酮素
|
（PARI）切片IntoPrimes（n，b=10）={my（k=b）；如果（n<b，返回（0）
（鼠尾草）
定义breakIntoPrimes（n）：
D=数字（）
对于[1..len（D）-1]中的i：
如果不是（is_prime（sum（D[i:][j]*10^j for j in range（len（D[i：]）））和is_prim（sum）（D[：i][j]*10^j for j in range（len[：i]））]））：
返回False
其他：
持续
return True
[n代表[10..1000]中的n，如果breakIntoPrimes（n）]#汤姆·埃德加2015年2月20日
|
|
|
交叉参考
|
|
|
|
关键词
|
非n,基础,完成,满的
|
|
|
作者
|
|
|
|
状态
|
已批准
|
| |
|
|
