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

 

徽标
提示
(来自的问候整数序列在线百科全书!)
A294269号 a(n)是序列中尚未与偶数个前项共享因子的最小数;a(1)=1。 0
1, 2, 3, 5, 6, 4, 7, 9, 10, 8, 11, 13, 14, 12, 15, 17, 18, 16, 19, 21, 22, 20, 23, 25, 26, 24, 27, 29, 30, 28, 31, 33, 34, 32, 35, 37, 38, 36, 39, 41, 42, 40, 43, 45, 46, 44, 47, 49, 50, 48, 51, 53, 54, 52, 55, 57, 58, 56, 59, 61, 62, 60, 63, 65, 66, 64, 67 (列表;图表;参考;;历史;文本;内部格式)
抵消
1、2
链接
常系数线性递归的索引项,签名(1,0,0,1,-1)。
配方奶粉
发件人罗伯特·伊斯雷尔2024年4月15日:(开始)
总尺寸:-1+2*x+(2-2*x+3*x^2+2*x^3-x^4)/(1-x-x^4+x^5)。
当n>=8时,a(n)=a(n-1)+a(n-4)-a(n-5)。
(结束)
例子
6在序列中是因为存在偶数项(即a(2)=2,a(3)=3),这些项不是与6互素的,并且它是序列中尚未存在的最小的此类数。
MAPLE公司
R: =[1]:
坎迪斯:=[2..200]美元:
n从2到100 do
发现:=false;
对于i从1到nops(Cands)do
x: =坎迪斯[i];
如果nops(选择(t->igcd(t,x)>1,R)::即使如此
R: =[op(R),x];
Cands:=底土(i=NULL,Cands);
发现:=true;
打破
fi(菲涅耳)
od;
如果未找到,则断开fi;
日期:
R#罗伯特·伊斯雷尔2024年4月15日
数学
使用[{nn=66},Nest[Function[a,Append[a,SelectFirst[Range[Min@a+1,Min@a+2 nn],Function[k,And[FreeQ[a,k],Mod[Count[a,_?(CoprimQ[#,k]&)],2]==Mod[Length@a,2]]]],{1},nn]](*迈克尔·德弗利格2018年2月20日*)
黄体脂酮素
(Python)
从数学导入gcd
定义getSeq(n):
如果n==1:
返回[1]
prev=获取序列(n-1)
坎迪=1
为True时:
烛光+=1
如果在前一版本中为cand:
持续
if len([n代表前面的n,如果gcd(cand,n)>1])%2==0:
前一个附加(cand)
返回上一个
打印(getSeq(100))
(PARI)findnext(va,nb)={ok=0;x=1;vao=vecsort(va);while(!ok,if(!vecsearch(vao,x)&&!(sum(k=1,nb-1,gcd(x,va[k])!=1)%2),ok=1,x++););return(x);}
列表(nn)={va=[1];对于(n=2,nn,new=findnext(va,n);va=concat(va,new););va;}\\米歇尔·马库斯2018年3月29日
交叉参考
囊性纤维变性。A005117号(当共素性条件变为可除性并且“偶数项”被奇数项取代时)。
关键字
容易的,非n,已更改
作者
Masahiko Shin先生,2018年2月11日
状态
经核准的

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

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

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