%I#12 2019年12月28日14:18:30

%S 1,2,4,6,12,16,30,36,48,55,60,72,78,84,90102105126144156168180，

%电话：184192208238240252264304315320322344360370378396430，

%电话：432488528536540576590605609621639648657660672680702

%N个数字是Zeckendorf-Niven数字（A328208）和惰性Fibonacci-Niven数（A328212）。

%H Amiram Eldar，n的表，a（n）表示n=1..10000</a>

%e6的顺序是A007895（6）=2和A112310（6）=3，2和3都是6的除数。

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

%t fibTerms[n_]：=模块[{k=天花板[Log[GoldenRatio，n*Sqrt[5]]，t=n，fr={}}，而[k>1，如果[t>=Fibonacci[k]，则附加到[fr，1]；t=t-斐波纳契[k]，附录[fr，0]]；k--]；fr]；

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

%t选择[Range[1000]，Divisible[#，zeckSum[#]]&&Divisible[#，dualZeckSum[#]]

%A328208和A328212的Y交叉口。

%Y参见A007895、A014417、A104326、A112310。

%K nonn公司

%O 1,2号机组

%2019年12月27日