|
| |
|
| A297960型 |
| a（1）=1位数素数（即4:2,3,5,7）；则a（n）=通过交替地将一个数字向右和向左压缩到上一次迭代中获得的a（n-1）素数而获得的不同的n位素数的数目。 |
|
2
|
|
|
|
4, 9, 30, 49, 99, 74, 101, 71, 72, 35, 28, 9, 4
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,1
|
|
|
评论
|
从a（13）计数的四个13位数字中无法获得14位数字。
|
|
|
链接
|
|
|
|
例子
|
1位2位3位4位。。。13位数
------------------------------------------------------------
2 23 223 2237
2239
523 5231
5233
5237
823 8231
8233 6638182333331
8237
29 229 2293
2297
829 8291
8293
8297
929 9293
3 31 131 1319
331 3313
3319
431
631 6311 5981563119937
6317
37 137 1373
337 3371
3373
937 9371
9377
5 53 353 3533
3539
653
853 8537
8539
953 9533
9539
59 359 3593
659 6599
859 8597
8599
7 71 271 2711
2713
2719
571 5711
5717
971 9719
73 173 1733
373 3733
3739
673 6733 8313667333393
6737
773
79 179
379 3793 2682637937713
3797
479 4793
4799
------------------------------------------------------------
a（1）=4，a（2）=9，a（3）=30，a（4）=49。。。，a（13）=4。
|
|
|
数学
|
块[{b=10，t}，t=选择[Range[b]，互质Q[#，b]&]；TakeWhile[Length/@Fold[Function[{a，n}，Append[a，If[OddQ[n]，Join@@Map[Function[k，Select[Map[Prepend[k，#]&，Range[9]]，PrimeQ@FromDigits[#，b]&]]，Last[a]]，Join@@Map[函数[k，选择[Map[Pend[k，#]&，t]，Prime Q@From Digits[#，b]&]，Last[a]]]@@{#1，#2}&，{Integer Digits[Prime@范围@PrimePi@b公司，b]}，范围[2]，16]]，#>0&]](*迈克尔·德弗利格2018年1月20日*）
|
|
|
黄体脂酮素
|
（Python）
从sympy导入isprime
def alst（）：
素数，alst=[2,3,5,7]，[]
当len（素数）>0时：
alst.append（len（素数））
如果长度（alst）%2==0：
候选者=集合（int（d+str（p））for p in primes for d in“123456789”）
其他：
候选者=集合（int（str（p）+d）for p in primes for d in“1379”）
素数=[c代表候选中的c，如果是素数（c）]
返回alst
|
|
|
交叉参考
|
|
|
|
关键词
|
非n,满的,基础,完成
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
