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

 

标志
提示
(来自的问候整数序列在线百科全书!)
A252865型 如果n≤3,则a(n)=n,否则,之前未出现的最小无平方数与a(n-2)至少有一个公因数,但与a(n-1)没有公因数。 4
1, 2, 3, 10, 21, 5, 6, 35, 22, 7, 11, 14, 33, 26, 15, 13, 30, 91, 34, 39, 17, 42, 85, 38, 51, 19, 66, 95, 46, 55, 23, 65, 69, 70, 57, 58, 93, 29, 31, 87, 62, 105, 74, 77, 37, 110, 111, 82, 129, 41, 43, 123, 86, 141, 106, 47, 53, 94, 159, 118, 165, 59, 78, 295 (列表;图表;参考;;历史;文本;内部格式)
抵消
1,2
评论
类似A098550号,但对平方自由的限制使它更像是一组素数序列,由它们的乘积表示。
该序列在指数2(2和3)、10(7和11)、38(29和31)、50(41和43)和56(47和53)处有连续的素数。我们推测,再也没有这样的对了。
链接
莱因哈德·祖姆凯勒(Reinhard Zumkeller),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和J.国际顺序。18 (2015) 15.6.7.
数学
a[n/;n<=3]=n;
a[n_]:=a[n]=对于[k=1,True,k++,If[SquareFreeQ[k],If[CreeQ[Array[a,n-1],k],If[!互质Q[k,a[n-2]]&&互质Q[k,a[n-1]],返回[k]]];
数组[a,100](*Jean-François Alcover公司2018年9月2日*)
黄体脂酮素
(PARI)invecn(v,k,x)=对于(i=1,k,if(v[i]==x,return(i));0
alist(n)=局部(v=向量(n,i,i),x);对于(k=4,n,x=4;while(!issquarefree(x)||invecn(v,k-1,x)|gcd(v[k-2],x)==1|gcd=1,x++);v[k]=x);v(v)
(哈斯克尔)
导入数据。列表(删除)
a252865 n=a252865_列表!!(n-1)
a252865_list=1:2:3:f 2 3(删除3 a005117_list),其中
f u v ws=g ws其中
g(x:xs)=如果gcd x u>1&&gcd x v==1
然后x:f v x(删除x ws)else g xs
--莱因哈德·祖姆凯勒2014年12月24日
(Python)
从分数导入gcd
来自sympy导入因子
A252865型_列表,l1,l2,s,b=[1,2,3],3,2,4,set()
对于范围(10**2)内的_:
….i=秒
….为真时:
……..如果最大值(因子(i).values())==1:
…………如果b中没有i,且gcd(i,l1)==1,gcd(i,l2)>1:
................A252865型_列表.附加(i)
………….l2,l1=l1,i
…………..添加(i)
当s在b:
…………..b.删除
…………..s+=1
……………..断裂
……..其他:
…………b.添加(i)
……..i+=1#柴华武2014年12月24日
交叉参考
囊性纤维变性。A251391型.
关键字
非n
作者
状态
经核准的

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

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

上次修改时间:美国东部夏令时2024年4月23日18:16。包含371916个序列。(在oeis4上运行。)