|
| |
|
| A092528号 |
| a（1）=1；a（n）=并列a（1）a（2）。。。a（n）是素数。 |
|
14
|
|
|
|
1, 1, 3, 11, 1, 3, 3, 53, 13, 39, 9, 3, 21, 53, 79, 11, 19, 59, 27, 49, 21, 23, 211, 153, 189, 3, 161, 121, 167, 183, 193, 77, 21, 349, 107, 129, 343, 119, 241, 143, 37, 77, 31, 159, 183, 531, 1517, 7, 59, 159, 123, 9, 1513, 203, 343, 59, 9, 999, 813, 421, 209, 517, 3
(列表；图表；参考；听；历史；文本；内部格式)
|
|
|
|
抵消
|
1,3
|
|
|
链接
|
|
|
|
例子
|
前几个术语是1,1,3,11,3,3,53,13,39,9,3。你可以将下一个整数连接到它的末尾以得到素数，它是21，所以下一项是21。如果你要求术语的所有数字都是奇数，那么你会得到399A069604号.
|
|
|
数学
|
nn[a_]：=对于[b=1，！PrimeQ[n]，b=b+1，n=a*10^Floor[Log[10，b]+1]]（*如果a是前面所有项的串联，则获取序列中的下一个数字。*）nnt[m_]：＝（t=1；表[c=nnn[t]；t=c[[2]]；c[[1]]，{m}]）（*要获取包含前n个项的表，忽略a（1）=1*）
a[1]=1；a[n_]：=a[n]=块[{k=1，c=IntegerDigits@表[a[i]，{i，n-1}]}，而[！PrimeQ[FromDigits@Flatten@Append[c，IntegerDigits[k]]]，k+=2]；k] ；表[a[n]，{n，63}](*罗伯特·威尔逊v2005年8月5日*）
|
|
|
交叉参考
|
囊性纤维变性。A033680美元,A074336号,A069602号,A069604号,A069603型,A069605型,A069606号,A069607号,A069608型,A069609型,A069610号,A069611号,A111525号.
|
|
|
关键词
|
基础,非n
|
|
|
作者
|
Christer Mauritz Blomqvist（MauritzTortoise（AT）hotmail.com），2004年4月8日
|
|
|
状态
|
经核准的
|
| |
|
|
