登录
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]&&!互质Q[k,a[n-2]*a[n-3]]&&互质Q[k,a[n-1]],返回[k]];表[a[n],{n,1,60}](*Jean-François Alcover公司2015年1月12日*)
交叉参考
关键词
非n
作者
扩展
更多术语来自Jean-François Alcover公司2015年1月12日
状态
经核准的

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

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

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