提出

经核准的

编辑

提出

可被Zeckendorf和这个 所有除数的对偶Zeckendorf表示(A300837型和A333618飞机).

zeckDigSum[n_]：=长度[DeleteCases[NestWhileList[#-Fibonacci[Floor[Log[Sqrt[5] * #+3/2]/Log[GoldenRatio]]&，n，#>1&]，0]]；

分配 对于 阿米拉姆 神灵族数字 那个 是 可除尽的 通过 这个 全部的 数 属于 1'秒 在里面 二者都 这个 泽肯多夫 和 二重的 泽肯多夫 表示 属于 全部的 他们的 约数 (A300837型 和 A333618飞机).

1, 2, 4, 126, 416, 442, 3025, 4588, 9243, 10428, 11900, 15070, 18176, 19436, 20532, 26956, 28582, 32108, 33028, 35278, 35929, 37634, 47678, 50386, 61952, 69254, 74578, 88984, 93534, 95120, 96334, 100326, 102297, 142894, 144039, 145768, 147664, 152817, 163125, 183002

1,2

126是一个术语，因为A300837型（126）=21和A333618飞机（126）=7都是126的除数。

zeckDigSum[n_]：=长度[DeleteCases[NestWhileList[#-Fibonachi[Floor[Log[Sqrt[5]*#+3/2]/Log[GoldenRatio]]&，n，#>1&]，0]]；

zeckDivDigSum[n_]：=除数总和[n，zeckDigSum[#]&]；

fibTerms[n_]：=模块[{k=天花板[Log[GoldenRatio，n*Sqrt[5]]，t=n，fr={}}，While[k>1，If[t>=斐波那契[k]，AppendTo[fr，1]；t=t-斐波那契[k]，附录到[fr，0]]；k--]；fr]；

dualZeckSum[n_]：=模块[{v=fibTerms[n]}，nv=长度[v]；i=1；当[i<=nv-2时，如果[v[i]]==1&v[i+1]]==0&&v[[i+2]]==0，v[i]=0；v[[i+1]]=1；v[[i+2]]=1；如果[i>2，i-=3]]；i++]；i=位置[v，_？（#>0&）]；如果[i=={}，0，总计[v[[i[[1，1]]-1]]]]];

dualZeckDivDigSum[n_]：=除数总和[n，dualZeck总和[#]&]；

选择[Range[10^4]，Divisible[#，zeckDivDigSum[#]]和&Divisible[#，dualZeckDiv DigSum[#]]&]

的交点A333619飞机和A333620型.

囊性纤维变性。A007895号,A112310号,A300837型,A330711型,A333617飞机,A333618飞机.

分配

非n,基础

阿米拉姆·埃尔达尔2020年3月29日

经核准的

编辑

分配给Amiram Eldar

分配

经核准的