登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 


A359299型
反对偶读取数组T(n,k):对于n>=0和k>=0,第n行列出了正整数m,使得m+k是素数或1,而对于0<=h<k,m+h不是素数。
1, 2, 4, 3, 6, 9, 5, 10, 15, 8, 7, 12, 21, 14, 25, 11, 16, 27, 20, 33, 24, 13, 18, 35, 26, 49, 32, 91, 17, 22, 39, 34, 55, 48, 121, 90, 19, 28, 45, 38, 63, 54, 143, 120, 119, 23, 30, 51, 44, 75, 62, 185, 142, 141, 118, 29, 36, 57, 50, 85, 74, 205, 184, 183
抵消
1,2
评论
本质上,对于n>=0,行n列出了到最近素数的距离为n的数字。
例子
转角:
1 2 3 5 7 11 13 17 19 23 29
4 6 10 12 16 18 22 28 30 36 40
9 15 21 27 35 39 45 51 57 65 69
8 14 20 26 34 38 44 50 56 64 68
25 33 49 55 63 75 85 93 123 133 145
24 32 48 54 62 74 84 92 122 132 144
行0包含19,因为19是质数,19-19=0。
第1行包含10,因为从10开始最接近的素数是11,11-10=1。
数学
行=15;
行[0]=联接[{1},映射[Prime,Range[250]]];表[
row[z]=映射[#[[1]]&,选择[Map[{#,Apply[And,
加入[{MemberQ[row[0],#+z]},表[!MemberQ[0],#+k],
{k,0,z-1}]]}&,
范围[Max[row[z-1]]],#[2]&]],{z,rows}];
表[row[z],{z,0,rows}]//列窗体(*A359299型数组*)
t[n,k_]:=行[n-1][[k]]
u=表格[t[n-k+1,k],{n,15},{k,n,1,-1}]//
压扁(*A359299型序列*)
(*彼得·J·C·摩西2022年12月18日*)
关键字
非n,
作者
克拉克·金伯利2023年1月1日
状态
经核准的

查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。

许可协议、使用条款、隐私政策。.

上次修改时间:美国东部夏令时2024年9月21日12:44。包含376084个序列。(在oeis4上运行。)