A074342-OEIS公司

A074342号

a（1）=6；a（n）是最小数>a（n-1），使得a（1）a（2）。。。a（n）是素数。

6, 7, 19, 21, 23, 27, 57, 183, 207, 231, 247, 267, 399, 417, 441, 459, 569, 603, 693, 847, 933, 1107, 1149, 1197, 1251, 1581, 1619, 2061, 2137, 2139, 2339, 2643, 2703, 2743, 2847, 2987, 3199, 3447, 3477, 3641, 3919, 4241, 4369, 4599, 4761, 6647, 6739, 6831

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

抵消

1,1

链接

Michael S.Branicky，n=1..439时的n，a（n）表

数学

a[1]＝6；a[n_]：=a[n]=块[{k=a[n-1]+1+Mod[a[n-1'，2]，c=整数位数@表[a[i]，{i，n-1}]}，而[！PrimeQ[FromDigits@Flatten@Append[c，整数位数[k]]，k+=2]；k] ；表[a[n]，{n，48}](*罗伯特·威尔逊v*)

nxt[{j_，a_}]：=模块[{k=a+2}，而[CompositeQ[j（10^IntegerLength[k]）+k]，k+=2]；{j（10^整数长度[k]）+k，k}]；Join[{6}，NestList[nxt，{67，7}，50][[All，2]]（*需要Mathematica版本10或更高版本*）(*哈维·P·戴尔2021年6月19日*）

黄体脂酮素

（Python）

从sympy导入isprime

def aupton（术语）：

此外，astr=[6]，“6”

对于范围（2，项+1）中的n：

an=alst[-1]+1

虽然不是isprime（int（astr+str（an）））：an+=1

alst，astr=alst+[an]，astr+str（an）

返回alst

打印（aupton（62））#迈克尔·布拉尼基，2021年6月7日

交叉参考