|
|
1, 1, 3, 11, 13, 29, 39, 49, 83, 141, 247, 273, 291, 347, 373, 401, 441, 567, 571, 651, 903, 957, 1001, 1129, 1401, 1457, 1467, 1561, 1889, 2083, 2169, 2523, 2717, 2743, 3447, 3509, 3711, 4087, 4899, 4983, 5087, 5151, 5263, 5429, 5551, 6017, 7389, 7839
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,3
|
|
|
链接
|
|
|
|
数学
|
a[1]=1；a[n_]：=a[n]=块[{k=a[n-1]，c=IntegerDigits@表[a[i]，{i，n-1}]}，而[！PrimeQ[FromDigits@Flatten@Append[c，IntegerDigits[k]]]，k+=2]；k] ；表[a[n]，{n，48}](*罗伯特·威尔逊v*)
nxt[{c_，a_}]：=模块[{x=a}，While[！PrimeQ[FromDigits[Join[c，IntegerDigits[c]]]，x+=2]；{连接[c，整数位数[x]]，x}]；嵌套列表[nxt，{{1}，1}、50][[全部，2]](*哈维·P·戴尔2018年9月14日*）
|
|
|
交叉参考
|
囊性纤维变性。A074336号,A092528美元,A069602号,A033679号,A033681美元,A046254号,A046255美元,A046256号,A046257号,A046258号,A046259号,A111524号.
|
|
|
关键词
|
非n,美好的
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
|
