|
|
162365英镑 |
| A(n,k)是其二进制展开以k的二进制展开开始的第n个素数;正方形阵列A(n,k),n>=1,k>=1,由反对角线读取。 |
|
11
|
|
|
2, 2, 3, 3, 5, 5, 17, 7, 11, 7, 5, 19, 13, 17, 11, 13, 11, 37, 29, 19, 13, 7, 53, 23, 67, 31, 23, 17, 17, 29, 97, 41, 71, 53, 37, 19, 19, 67, 31, 101, 43, 73, 59, 41, 23, 41, 37, 71, 59, 103, 47, 79, 61, 43, 29, 11, 43, 73, 131, 61, 107, 83, 131, 97, 47, 31
(列表;桌子;图表;参考文献;听;历史;文本;内部格式)
|
|
|
抵消
|
1,1
|
|
链接
|
|
|
例子
|
方阵A(n,k)开始:
: 2, 2, 3, 17, 5, 13, 7, 17, ...
: 3, 5, 7, 19, 11, 53, 29, 67, ...
: 5, 11, 13, 37, 23, 97, 31, 71, ...
: 7, 17, 29, 67, 41, 101, 59, 131, ...
: 11, 19, 31, 71, 43, 103, 61, 137, ...
: 13, 23, 53, 73, 47, 107, 113, 139, ...
: 17, 37, 59, 79, 83, 109, 127, 257, ...
:19、41、61、131、89、193、227、263。。。
|
|
MAPLE公司
|
u: =(h,t)->选择(isprime,[seq(h*2^t+k,k=0..2^t-1)]):
A: =proc(n,k)局部l,p;
l: =proc()[]结束;p: =proc()-1结束;
而nops(l(k))<n do p(k):=p(k)+1;
l(k):=[l(k)[],u(k,p(k))[]]
od:l(k)[n]
结束时间:
seq(seq(A(n,1+d-n),n=1..d),d=1..14);
|
|
数学
|
nmax=14;
col[k_]:=col[k]=模块[{bk=整数位数[k,2],lk,pp={},coe=1},lbk=长度[bk];当[Length[pp]<nmax,pp=Select[Prime[Range[coe*nmax]]时,安静@采取[整数位数[#,2],lbk]==bk&];coe++];pp];
A[n_,k_]:=col[k][[n]];
|
|
交叉参考
|
|
|
关键字
|
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|