A284725-OEIS公司

A284725型

a（n）=（1/3）*缺少3的最小倍数[A280864型(1), ...,A280864型（n-1）]。

三

1, 1, 1, 1, 2, 3, 3, 3, 3, 3, 5, 5, 5, 5, 5, 5, 5, 7, 7, 7, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 11, 11, 11, 11, 11, 11, 11, 11, 11, 13, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 23, 23, 23, 27, 27, 27, 27, 27, 27, 27, 27

(列表;图表;参考;听;历史;文本;内部格式)

抵消

1,5

对于k>=1，n>=1的情况，设B_k（n）=缺失k的最小倍数[A280864型(1), ...,A280864型（n-1）]。序列给出B_3（n）/3的值。

EKG序列的类似序列B_k（n）A064413号对该序列的分析很重要，因此它们对研究也很有用A280864型.

链接

雷米·西格里斯特，n=1..10000时的n，a（n）表

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]中3的最小缺失倍数为9，因此a（6）=9/3=3。

MAPLE公司

mex:=进程（L）

局部k；

从1到k

如果L中没有k，则

返回k；

结束条件：；

结束do：

结束进程：

读取b280864；

k： =3；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： =[op（a），B]；

其他的

a： =[op（a），B]；

fi；

日期：

a；

数学

术语=85；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=3a[n-1]，为真，b+=3，如果[FreeQ[A280864型[[1；；n-1]]，b]，返回[b/3]]]；

数组[a，terms](*Jean-François Alcover公司2017年11月26日，之后雷米·西格里斯特的程序A280864型*)

交叉参考

囊性纤维变性。A280864型,A064413号,A284724型,A280726型.

上下文中的序列：A052288号 A374942型 A280455型*A055767号 A029110号 A249420型

相邻序列：A284722型 A284723型 A284724型*A284726型 A284727号 A284728号

关键字

非n

作者

N.J.A.斯隆2017年4月6日

状态

经核准的