登录
OEIS基金会得到了OEIS用户的捐赠和西蒙斯基金会的资助。

 

标志


提示
(问候来自整数序列在线百科全书!)
A265574号 三角数的LCM变换。 4
1、3、3、2、2、5、1、7、2、3、1、11、1、1、13、1、1、1、2、17、1、19、1、1、1、1、23、1、5、1、1、3、1、29、1、1、31、2、1、1、1、1、1、37、1、1、1、1、41、1、43、1、1、1、1、7、1、7、1、7、1、1、1、1、53、1、1、1、1、1、1、1、1、1、1、1、1、1、1、1、1、1、1、1、1、1、1、1、1、1、1、1、1、1、1、1、1、1、1、1、1 1,1,79,1,3,1,83,1,1,1,1,1,89,1,1,1,1,1,1,97,1 (列表;图表;参考文献;;历史;文本;内部格式)
抵消

1,2

链接

n=1..97的n,a(n)表。

A、 诺维奇,强可除性与LCM序列,arXiv:1310.2416[math.NT],2013年。

A、 诺维奇,强可除性与LCM序列,上午。数学。第122期(2015年),第958-966页。

公式

安德烈·扎博洛茨基2020年4月11日:(开始)

a(n)=A051543号(n-1)对于n>1。

a(n)=A014963号(n+1)对于n>1。(结束)

枫木

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];

对于n从2到L do g[n]:=ilcm(g[n-1],a[n]);b[n]:=g[n]/g[n-1];od;

lprint([顺序(b[i],i=1..L)]);

结束;

t1:=[顺序(n*(n+1)/2,n=1..100)];

LCMXfm(t1);

数学

LCMXfm[a_List]:=模块[{L=Length[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]];

LCMXfm[表[n*(n+1)/2,{n,1,100}]](*让·弗朗索瓦·阿尔科弗2017年12月5日,来自Maple*)

交叉引用

囊性纤维变性。A051543号,A020500年,A014963号.

上下文顺序:A224344号 A113260号 A051543号*A129538号 A076934号 A111701号

相邻序列:A265571 A265572号 A265573号*A265575型 A265576号 A265577号

关键字

作者

N、 斯隆2016年1月2日

状态

经核准的

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

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

上次修改日期:美国东部时间2020年8月15日06:22。包含336485个序列。(运行在oeis4上。)