|
|
|
|
1, 1, 2, 3, 3, 4, 5, 5, 6, 7, 7, 7, 8, 9, 9, 9, 10, 10, 12, 13, 13, 13, 15, 15, 15, 15, 16, 16, 16, 16, 18, 18, 18, 20, 20, 20, 20, 20, 20, 20, 20, 22, 22, 22, 22, 22, 25, 25, 25, 25, 25, 27, 27, 27, 28, 28, 28, 30, 30, 30, 30, 32, 32, 32, 32, 33, 33, 33, 35, 35, 35, 35, 36, 36, 36, 36, 40, 40, 40, 42
(列表;图表;参考文献;听;历史;文本;内部格式)
|
|
|
抵消
|
1,3
|
|
评论
|
|
|
链接
|
J.C.Lagarias、E.M.Rains和N.J.A.Sloane,心电图序列,arXiv:math/0204011[math.NT],2002年。
J.C.Lagarias、E.M.Rains和N.J.A.Sloane,心电图序列,专家。数学。11 (2002), 437-446.
|
|
例子
|
初始条款A280864型是1,2,4,3,6,8,。。。[1,2,4,3,6]中的最小缺失偶数是8,因此a(6)=8/2=4。
|
|
MAPLE公司
|
mex:=进程(L)
局部k;
从1到k
如果L中没有k,则
返回k;
结束条件:;
结束do:
结束进程:
读取b280864;
k: =2;a: =[1,1];ML:=[];B: =1;
对于n,从2到120 do
t: =b280864【n】;
如果(t mod k)=0,则
ML:=[op(ML),t/k];
B: =墨西哥(ML);
a: =[运算(a),B];
其他的
a: =[op(a),B];
fi;
日期:
a;
|
|
数学
|
术语=80;rad[n_]:=倍@@FactorInteger[n][[All,1]];
A280864型=收获[present=0;p=1;pp=1;Do[禁止=GCD[p,pp];强制性=p/禁止;a=强制性;当[BitGet[存在,a]>0||GCD[禁止,a]>1,a+=强制]时;母猪[a];当前+=2^a;pp=p;p=rad[a],术语]][[2,1]];
清除[a];
a[1]=1;
a[n_]:=a[n]=对于[b=2a[n-1],为真,b+=2,如果[FreeQ[A280864型[[1;;n-1]],b],返回[b/2]]];
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|