搜索: 编号:a083140
|
|
A083140型
|
| 埃拉托斯特尼(Eratosthennes)的筛子排列成阵列,并由反对症者向上阅读;第n行具有最小素数因子为素数(n)的性质。 |
|
+0 48
|
|
|
2、3、4、5、9、6、7、25、15、8、11、49、35、21、10、13、121、77、55、27、12、17、169、143、91、65、33、14、19、289、221、187、119、85、39、16、23、361、323、247、209、133、95、45、18、29、529、437、391、299、253、161、115、51、20、31、841、667、551、493、377、319、203、125、57、22
(列表;桌子;图表;参考;听;历史;文本;内部格式)
|
|
|
偏移
|
2,1
|
|
评论
|
自然数的排列>=2。
|
|
链接
|
|
|
例子
|
数组开始:
2 4 6 8 10 12 14 16 18 20 22 24 .... (A005843号\ {0})
3 9 15 21 27 33 39 45 51 57 63 69 .... (A016945美元)
5 25 35 55 65 85 95 115 125 145 155 175 .... (A084967号)
7 49 77 91 119 133 161 203 217 259 287 301 .... (A084968号)
11 121 143 187 209 253 319 341 407 451 473 517 .... (A084969号)
13 169 221 247 299 377 403 481 533 559 611 689 .... (A084970号)
|
|
数学
|
a=Join[{表[2n,{n,1,12}]},表[Take[Prime[n]*Select[Range[100],GCD[Prime]#,积[Prime[1],{i,1,n-1}]]==1&],12],{n、2,12}];扁平[表[a[[i,n-i]],{n,2,12},{i,n-1,1,-1}]]
(*第二个节目:*)
行=12;清除[T];Do[For[m=p=Prime[n];k=1,k<=行,m+=p,如果[FactorInteger[m][[1,1]]==p,T[n,k++]=m]],{n,行}];表[T[n-k+1,k],{n,rows},{k,n}]//压扁(*Jean-François Alcover公司2016年3月8日*)
|
|
交叉参考
|
按各种条件分组成行的整数数组:
|
|
关键词
|
|
|
作者
|
|
|
扩展
|
|
|
状态
|
经核准的
|
|
|
搜索在0.004秒内完成
|