登录
OEIS由
OEIS基金会的许多慷慨捐赠者
.
提示
(来自的问候
整数序列在线百科全书
!)
A265577型
黄石置换的LCM变换
A098550号
.
2
1, 2, 3, 2, 3, 2, 5, 7, 1, 1, 5, 1, 1, 2, 1, 1, 1, 1, 3, 11, 13, 1, 1, 1, 1, 1, 1, 17, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 7, 19, 1, 1, 1, 1, 1, 1, 1, 23, 1, 1, 1, 1, 1, 1, 1, 3, 1, 29, 31, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1
(
列表
;
图表
;
参考
;
听
;
历史
;
文本
;
内部格式
)
抵消
1,2
链接
n=1..71时的n,a(n)表。
A.诺维基,
强可除性与LCM序列
,arXiv:11310.2416[math.NT],2013年。
A.诺维基,
强可除性与LCM序列
,美国数学。
Mnthly 122(2015),958-966。
MAPLE公司
LCMXfm:=程序(a)局部L,i,n,g,b;
五十: =nops(a);
g: =数组(1..L,0);
b: =数组(1..L,0);
b[1]:=a[1];
g[1]:=a[1];
对于从2到L的n do g[n]:=ilcm(g[n-1],a[n]);
b[n]:=g[n]/g[n-1];
od;
L打印([seq(b[i],i=1..L)]);
结束;
#让t1包含的前100项
A098550号
LCMXfm(t1);
数学
LCMXfm[a_List]:=模块[{L=长度[a],b,g},b[1]=g[1]=a[[1];
b[_]=0;
g[_]=0;
Do[g[n]=LCM[g[n-1],a[[n]]];
b[n]=g[n]/g[n-1],{n,2,L}];
数组[b,L]];
y[n/;n<=3]:=n;
y[n]:=y[n]=For[k=1,True,k++,If[FreeQ[Array[y,n-1],k],If[GCD[k,y[n-1]]==1&&GCD[k,y[n-2]]>1,Return[k]]];
Yperm=数组[y,100];
LCMXfm[永磁](*
让-弗朗索瓦·奥尔科弗
2017年12月3日*)
交叉参考
囊性纤维变性。
A064413号
.
其他LCM转换包括
A061446号
,
A265574型
,
A265575型
,
A265576型
.
上下文中的序列:
20223年1月
A282691型
A346744飞机
*
A251103型
A065559号
A087317号
相邻序列:
A265574型
165575英镑
A265576型
*
A265578型
A265579型
165580英镑
关键词
非n
作者
N.J.A.斯隆
2016年1月2日
状态
经核准的
查找
|
欢迎光临
|
维基
|
注册
|
音乐
|
地块2
|
Demos公司
|
索引
|
浏览
|
更多
|
网络摄像头
贡献新序列。
或评论
|
格式
|
样式表
|
变换
|
超级搜索
|
最近
OEIS社区
|
维护人
OEIS基金会。
许可协议、使用条款、隐私政策。
.
上次修改时间:2024年4月17日23:23 EDT。
包含371767个序列。
(在oeis4上运行。)