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

 

标志
提示
(来自的问候整数序列在线百科全书!)
A256062型 a(1)=1;对于n>1,a(n)=最小数>a(n-1),使得元素的成对差异是明显的,对于1<m<n,a(m)不除以a(n。 1
1, 2, 5, 7, 17, 31, 39, 59, 99, 143, 179, 229, 293, 339, 409, 541, 597, 659, 761, 869, 1013, 1087, 1269, 1369, 1583, 1821, 2007, 2161, 2267, 2609, 2687, 2879, 3123, 3567, 3869, 4073, 4483, 4659, 5181, 5417, 5857, 6243, 6291, 6589, 7387, 7613, 7747, 8433, 8763, 9599, 9727, 10231, 11047, 11513, 12111, 12779, 13491, 14269, 14913 (列表;图表;参考;;历史;文本;内部格式)
抵消
1, 2
链接
例子
39和99出现在这个序列中,因为39有因子3和13,它们不是成员,而99有因子3、11,但39不是99的因子。此外,两两的差值是1、3、4、2、5、6、10、12、15、16,对于成员1到17,下一个可用的整数是24,但它可以被2整除,25可以被5整除,27有差值10,等等,直到我们达到31。14、24、26、29和30是需要避免的新差异,39变成了(7)。
数学
计数=2;seq=表[1,{a,13000000}];nonarth=seq;非数字[[1]]=1;nonarth[[2]]=2;nonarth=删除重复项[Flatten[Sort[nonarth]];arthcnt=长度[nonarth];diffs=序列;差异[[1]=1;diffs=删除重复项[diffs];tmpdiffs=seq;diffcnt=1;arthcnt=2;移动=0;测试=nonarth[[计数]]+1;并行化[While[count<=500,a=1;While[与[a<=arthcnt,move==0],tmpdiffs[[a]]=Abs[test-on-arth[[a]];如果[And[a>1,Mod[test,nonarth[[a]]==0],移动++];如果[MemberQ[diff,tmpdiffs[[a]]],移动++];a++;];如果[move==0,PrependTo[nonarth,test];nonarth=删除重复项[Flatten[Sort[north]]];arthcnt=长度[nonarth];计数++;测试++;PrependTo[diff,tmpdiffs];diffs=删除重复项[Flatten[Sort[diffs]]];如果[Length[diffs]>3000000,count=501,diffcnt=Length[差异]];tmpdiffs=seq,移动=0;tmpdiffs=seq;测试++;];];
交叉参考
A005282号是两两不同的差异,这个序列限制除数。
关键词
非n
作者
状态
经核准的

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

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

上次修改时间:美国东部夏令时2024年6月21日13:19。包含373544个序列。(在oeis4上运行。)