|
|
A185687号 |
| 按行读取的不规则三角形,由前缀n和数字“9”附加的素数组成,否则为0。 |
|
6
|
|
|
19, 199, 1999, 29, 0, 0, 59, 599, 0, 79, 89, 0, 109, 0, 0, 139, 1399, 13999, 139999, 1399999, 149, 1499, 0, 0, 179, 0, 199, 1999, 0, 0, 229, 239, 2399, 0, 0, 269, 2699, 0, 0, 0, 0, 0, 0, 0, 349, 3499, 359, 0, 379, 389, 0, 409, 4099, 419, 0, 439, 449, 0, 0, 479, 4799, 0, 499, 4999, 49999, 509, 5099, 0, 0, 0, 0, 0, 569, 0, 0, 599, 0, 619
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,1
|
|
评论
|
当找到复合数字时,第n行结束。
|
|
链接
|
|
|
例子
|
对于k=1..6,a(608,k)={6089,60899,6089999960899608999999}
都在序列中。
19,199,1999;
29;
0;
0;
59,599;
0;
79;
89;
0;
109;
0;
0;
139,1399,13999,139999,1399999;
149,1499;
|
|
MAPLE公司
|
with(numtheory):对于n从1到100 do:a0:=n:id:=0:c:=0:对于k从1到20
while(id=0)do:a1:=a0*10+9:如果type(a1,prime)=true,则a0:=a1:printf(`%d,`,a0):c:=c+1:else
id:=1:fi:od:如果c=0,则打印f(`%d,`,0):否则fi:od:
|
|
数学
|
收割[Do[cnt=0;d=整数位数[n];而[p=FromDigits[AppendTo[d,9]];PrimeQ[p],碳纳米管++;母猪[p]];如果[cnt==0,母猪[0]],{n,61}]][[2,1]]
|
|
交叉参考
|
|
|
关键词
|
非n,基础,选项卡,较少的
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|