登录
A273109型
对n进行编号,以便在n的除数(包括n的除法)的差分三角形中,从底部条目到n的对角线给出n的除法器。
6
1, 2, 4, 8, 12, 16, 32, 64, 128, 256, 512, 1024, 2048, 4096, 8192, 16384, 32768, 65536, 131072, 262144, 524288, 1048576, 2097152, 4194304, 8388608, 16777216, 33554432, 67108864, 134217728, 268435456, 536870912, 1073741824, 2147483648, 4294967296, 8589934592
抵消
1,2
评论
这也是12和2的权力的结合吗?
2的所有幂都在序列中。
例子
对于n=12,12的除数的差三角形为
1 . 2 . 三。4 . 6 . 12
. 1 . 1 . 1 . 2 . 6
. . 0 . 0 . 1 . 4
. . . 0 . 1 .
. . . . 1 . 2
. . . . . 1
底部条目是1,从底部条目到12的对角线是[1,2,3,4,6,12],因此对角线给出了12的除数,所以12在序列中。
注意,对于n=12和2的幂,降序对角线从左到右是对称的,例如:第一条对角线是1,1,0,0,1,1。
数学
aQ[n_]:=模[{d=除数[n]},nd=长度[d];vd=d;ans=正确;Do[vd=差异[vd];如果[Max[vd]!=d[[nd-k]],ans=假;中断[]],{k,1,nd-1}];ans];选择[范围[100000],aQ](*阿米拉姆·埃尔达尔2019年2月23日*)
黄体脂酮素
(PARI)isok(n)={my(d=除数(n));my(nd=#d);my的(vd=d);对于(k=1,nd-1,vd=向量(#vd-1,j,vd[j+1]-vd[j]);如果(vecmax(vd)!=d[nd-k],返回(0););返回(1);}\\米歇尔·马库斯2016年5月16日
关键词
非n
作者
奥马尔·波尔2016年5月15日
扩展
a(12)-a(21)来自米歇尔·马库斯2016年5月16日
a(22)-a(35)来自阿米拉姆·埃尔达尔2019年2月23日
状态
经核准的