OEIS哀悼西蒙斯感谢西蒙斯基金会支持包括OEIS在内的许多科学分支的研究。
登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A247942型 如果n≤3,则a(n)=n,否则,之前未出现的最小数与a(n-2)*a(n-3)至少有一个公因数,但与a(n-1)没有公因数。 5
1, 2, 3, 4, 9, 8, 15, 14, 5, 6, 7, 10, 21, 16, 25, 12, 35, 18, 49, 20, 27, 22, 39, 11, 13, 24, 55, 26, 33, 28, 45, 32, 51, 38, 17, 19, 30, 119, 36, 65, 34, 57, 40, 63, 44, 69, 50, 23, 42, 85, 46, 75, 52, 81, 56, 87, 62, 29, 31, 48 (列表;图表;参考;;历史;文本;内部格式)
抵消
1,2
评论
顺序不同于A098550号从a(11)开始。
序列是自然数的排列。该证明类似于A098550号(稍作改动)-弗拉基米尔·舍维列夫2015年1月14日
链接
罗伯特·伊斯雷尔,n=1..10000时的n,a(n)表
David L.Applegate、Hans Havermann、Bob Selcoe、Vladimir Shevelev、N.J.A.Sloane和Reinhard Zumkeller,黄石公园排列,arXiv预印arXiv:1501.016692015。
MAPLE公司
对于从1到3的n do
a[n]:=n:
b[n]:=1:
日期:
n从4到1000 do
q: =a[n-2]*a[n-3];
从4 do到k
如果未赋值(b[k])且igcd(k,q)>1且igcd(k,a[n-1])=1,则
a[n]:=k;
b[k]:=1;
打破
fi(菲涅耳)
日期:
日期:
seq(a[i],i=1..1000)#罗伯特·伊斯雷尔2015年1月12日
数学
a[n/;n<=3]:=n;a[n_]:=a[n]=对于[aa=表[a[j],{j,1,n-1}];k=4,真,k++,如果[FreeQ[aa,k]&&!CoprimeQ[k,a[n-2]*a[n-3]]&&CoprimeQ[k,a[n-1]],返回[k]]];表[a[n],{n,1,60}](*Jean-François Alcover公司2015年1月12日*)
交叉参考
囊性纤维变性。A098550号A249167型A251604型A247225号.
关键词
非n
作者
扩展
更多术语来自Jean-François Alcover公司2015年1月12日
状态
经核准的

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

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

上次修改时间:2024年5月28日15:56 EDT。包含372916个序列。(在oeis4上运行。)