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

 

标志
提示
(来自的问候整数序列在线百科全书!)
A359298型 反对偶读取数组T(n,k):对于n>=0和k>=0,第n行列出了正整数m,使得m-k是素数或1,而对于0<=h<k,m-h不是素数。
1, 2, 4, 3, 6, 9, 5, 8, 15, 10, 7, 12, 21, 16, 27, 11, 14, 25, 22, 35, 28, 13, 18, 33, 26, 51, 36, 95, 17, 20, 39, 34, 57, 52, 119, 96, 19, 24, 45, 40, 65, 58, 145, 120, 121, 23, 30, 49, 46, 77, 66, 187, 146, 147, 122, 29, 32, 55, 50, 87, 78, 205, 188, 189 (列表;桌子;图表;参考;;历史;文本;内部格式)
抵消
1,2
评论
本质上,对于n>=0,第n行列出了距离最近素数为n的数字。
链接
例子
转角:
1 2 3 5 7 11 13 17 19 23 29
4 6 8 12 14 18 20 24 30 32 38
9 15 21 25 33 39 45 49 55 63 69
10 16 22 26 34 40 46 50 56 64 70
27 35 51 57 65 77 87 93 117 135 143
28 36 52 58 66 78 88 94 118 136 144
行0包含19,因为19是质数,19-19=0。
第1行包含8,因为从8开始最接近的素数是7,8-7=1。
数学
行=15;
行[0]=联接[{1},映射[Prime,Range[250]]];
表[row[z]=Map[#[1]]&,选择[Map[{#,Apply[And,
联接[{MemberQ[行[0],#-z]},表[!MemberQ[row[0],#1-k],{k,0,z-1}]]}&,范围[Max[row[z-1]]],#[2]]&,{z,rows}];
表[row[z],{z,0,rows}]//ColumnForm(*A359298型数组*)
t[n,k_]:=行[n-1][[k]];
u=表格[t[n-k+1,k],{n,15},{k,n,1,-1}]//
压扁(*A359298型序列*)
(*彼得·J·C·摩西2022年12月18日*)
交叉参考
关键词
非n,
作者
克拉克·金伯利2023年1月1日
状态
经核准的

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

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

上次修改时间:2024年6月19日16:22 EDT。包含373503个序列。(在oeis4上运行。)