显示找到的31个结果中的1-10个。
1, 2, 3, 4, 5, 12, 13, 21, 26, 55, 68, 80, 89, 92, 93, 110, 152, 183, 195, 207, 233, 236, 237, 254, 291, 304, 327, 364, 377, 380, 381, 398, 435, 471, 484, 555, 584, 605, 609, 639, 644, 759, 795, 834, 875, 894, 930, 987, 992, 1004, 1011, 1028, 1047, 1076, 1220
数学
z[n_]：=长度[DeleteCases[NestWhileList[#-Fibonacci[Floor[Log[Sqrt[5]*#+3/2]/Log[GoldenRatio]]&，n，#>1&]，0]]；aQ[n_]：=可除[n，z[n]]；c=0；k=1；s={}；v=表[-1，{2}]；当[c<60时，如果[aQ[k]，v=连接[Rest[v]，{k}]；如果[AllTrue[Differences[v]，#==1&]，c++；附加到[s，k-1]]；k++]；s（*之后阿隆索·德尔·阿特在A007895号*)
1, 2, 3, 4, 12, 92, 236, 380, 1850, 2630, 4184, 7010, 8183, 8360, 11944, 12754, 13550, 16024, 17710, 17714, 18710, 20628, 22323, 22624, 25564, 28910, 31506, 36463, 36484, 39746, 40368, 44694, 48244, 49294, 53543, 58910, 59164, 64743, 70398, 75024, 77874, 78184
数学
z[n_]：=长度[DeleteCases[NestWhileList[#-Fibonacci[Floor[Log[Sqrt[5]*#+3/2]/Log[GoldenRatio]]&，n，#>1&]，0]]；aQ[n_]：=可除[n，z[n]]；c=0；k=1；s={}；v=表[-1，{3}]；当[c<50时，如果[aQ[k]，v=连接[Rest[v]，{k}]；如果[AllTrue[Differences[v]，#==1&]，c++；附加到[s，k-2]]；k++]；s（*之后阿隆索·德尔·阿特在A007895号*)
1, 2, 3, 123543, 124242, 545502, 1367583, 1856349, 2431230, 2465110, 2593590, 2783709, 3247389, 3479229, 3917823, 3942909, 4174749, 4303428, 4494390, 4920640, 5143830, 5710383, 6261309, 6493149, 6552903, 6956829, 7420509, 7470880, 8970948, 9107790, 9507069, 10952928
评论
格兰德曼通过证明F（120k-6）+F（8）+F。
她还证明了连续5次赛肯多夫-尼文数字的唯一开始是1和2。
数学
z[n_]：=长度[DeleteCases[NestWhileList[#-Fibonacci[Floor[Log[Sqrt[5]*#+3/2]/Log[GoldenRatio]]&，n，#>1&]，0]]；aQ[n_]：=可除[n，z[n]]；c=0；k=1；s={}；v=表[-1，{4}]；当[c<32时，如果[aQ[k]，v=连接[Rest[v]，{k}]；如果[AllTrue[Differences[v]，#==1&]，c++；附加到[s，k-3]]；k++]；s（*之后阿隆索·德尔·阿特在A007895号*)
1, 2, 4, 6, 12, 16, 30, 36, 48, 55, 60, 72, 78, 84, 90, 102, 105, 126, 144, 156, 168, 180, 184, 192, 208, 238, 240, 252, 264, 304, 315, 320, 322, 344, 360, 370, 378, 396, 430, 432, 488, 528, 536, 540, 576, 590, 605, 609, 621, 639, 648, 657, 660, 672, 680, 702
数学
zeckSum[n_]：=长度[DeleteCases[NestWhileList[#-Fibonacci[Floor[Log[Sqrt[5]*#+3/2]/Log[GoldenRatio]]&，n，#>1&]，0]]；
fibTerms[n_]：=模块[｛k=天花板[Log[GoldenRatio，n*Sqrt[5]]，t=n，fr={}｝，While[k>1，If[t>=Fibonacci[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]]]]];
选择[Range[1000]，Divisible[#，zeckSum[#]]和&Divisible[#，dualZeckSum[#]]&]
1, 7475, 10205, 13740, 40754, 52479, 93044, 95984, 141911, 151487, 196416, 198255, 202824, 202895, 213920, 231552, 335535, 339744, 363320, 366876, 404719, 408680, 434259, 446480, 487710, 495159, 504440, 528408, 585599, 607410, 645560, 646575, 665567, 735020, 736280
评论
3个连续的数字可以同时是Zeckendorf-Niven数字和惰性Fibonacci-Niven数吗？等价地，是否有两个数字都在A328210型和A328214型?
Zeckendorf-Niven数字(A328208型)与下一个Zeckendorf-Niven数字有着创纪录的差距。
+20
2
1, 6, 18, 30, 36, 48, 208, 5298, 6132, 6601, 8280, 12228, 17052, 68220, 113990, 120504, 438570, 1015416, 1343232, 1848400, 5338548, 12727143, 83877810, 330963120, 409185360, 418561770, 2428646640, 2834120595, 2876557200, 2940992640, 7218753758, 7306145012, 7609637140
评论
相应的记录差距为1、2、3、4、6、7、20。。。（有关更多值，请参阅链接）。
Ray（2005）和Ray and Cooper（2006）证明了Zeckendorf-Niven数的渐近密度为0。因此，这个序列是无限的。
参考文献
Andrew B.Ray，《关于k-Zeckendorf Niven数的自然密度》，密苏里州立大学博士论文，2005年。
例子
6是一个术语，因为它是一个Zeckendorf-Neven数，下一个Zekendorf-Niven数是8，间隙8-6=2，这是一个记录，因为6以下的所有数字也是Zeckenderf-Nivens数。
数学
z[n_]：=长度[DeleteCases[NestWhileList[#-Fibonacci[Floor[Log[Sqrt[5]*#+3/2]/Log[GoldenRatio]]&，n，#>1&]，0]]；znQ[n_]：=可除[n，z[n]]；seq[kmax_]：=模[{gapmax=0，间隙，k1=1，s={}}，Do[If[znQ[k]，间隙=k-k1；如果[gap>gapmax，gapmax=gap；AppendTo[s，k1]]；k1=k]，{k，2，kmax}]；s] ；序列[10^4]
1, 2, 4, 6, 8, 9, 12, 16, 18, 20, 24, 25, 30, 32, 33, 36, 40, 42, 44, 45, 48, 50, 60, 64, 65, 66, 68, 70, 72, 77, 84, 88, 90, 92, 96, 105, 108, 112, 117, 120, 132, 133, 136, 144, 150, 154, 156, 160, 168, 180, 182, 184, 189, 192, 198, 200, 210, 212, 213, 216, 220
数学
最大值=5；bases=Prime@Range[max，1，-1]；nmax=倍数@@bases-1；sumdig[n_]：=加号@@整数位数[n，混合基数[bases]]；选择[Range[nmax]，Divisible[#，sumdig[#]]&]
交叉参考
囊性纤维变性。A005349号,A049345号,A049445号,A064150型,A064438号,A064481美元,A118363号,A235168型,A276150型,A328208型,A328212型,A373834型（特征函数）
Negabinary-Niven数：可被其负表示中的数字之和整除的数(A027615号).
+10
24
1, 2, 3, 4, 6, 8, 9, 12, 14, 15, 16, 18, 20, 21, 24, 28, 30, 32, 33, 35, 36, 40, 42, 48, 50, 52, 54, 56, 57, 60, 62, 63, 64, 66, 68, 69, 72, 76, 78, 80, 81, 84, 88, 90, 91, 95, 96, 100, 102, 108, 110, 112, 114, 120, 124, 125, 126, 128, 129, 132, 136, 138, 140
例子
6是一个术语，因为A039724号（6） =11010和1+1+0+1+0=3是6的除数。
数学
negaBinWt[n_]：=negaBinWt[n]=如果[n==0，0，negaBin Wt[商[n-1，-2]]+Mod[n，2]]；negaBinNivenQ[n_]：=可除[n，negaBinWt[n]]；选择[范围[100]，negaBinNivenQ]
正负Fibonacci-Niven数：正数可以被其negaFibonaci表示中的项数整除(A331083型).
+10
22
1, 2, 4, 5, 6, 9, 10, 12, 13, 14, 18, 24, 26, 27, 30, 34, 36, 48, 55, 60, 64, 68, 69, 72, 78, 84, 86, 87, 88, 89, 90, 93, 94, 96, 99, 100, 102, 108, 110, 112, 116, 120, 140, 144, 150, 155, 156, 160, 172, 176, 177, 178, 180, 183, 184, 188, 192, 195, 196, 200, 204
评论
第k个斐波那契数是所有奇数k的一个术语，因为它的负斐波那奇表示是1后面跟着（k-1）个零。
例子
4是一个术语，因为4的negaFibonacci表示是10010，其数字之和是1+0+0+1+0=2，是4的除数。
数学
ind[n]：=楼层[Log[Abs[n]*Sqrt[5]+1/2]/Log[GoldenRatio]]；f[1]=1；f[n_]：=如果[n>0，i=ind[n-1]；如果[EvenQ[i]，i++]；i、 i=指数[-n]；如果[OddQ[i]，i++]；i] ；negaFibTermsNum[n_]：=模块[{k=n，s=0}，而[k！=0，i=f[k]；s+=1；k-=斐波那契[-i]]；s] ；选择[Range[200]，Divisible[#，negaFibTermsNum[#]]&]
1, 2, 6, 12, 15, 16, 18, 20, 30, 35, 36, 45, 48, 55, 60, 70, 72, 78, 84, 90, 91, 95, 96, 98, 104, 108, 132, 144, 147, 154, 168, 175, 184, 189, 208, 224, 231, 232, 245, 252, 256, 261, 264, 270, 275, 280, 282, 287, 294, 315, 322, 324, 330, 336, 340, 342, 351, 357
例子
6是一个项，因为它的基phi表示是1010.0001，而1的个数是3，这是6的除数。
数学
phiDigSum[1]=1；phiDigSum[n_]：=加@RealDigits[n，黄金比率，2*上限[Log[GoldenRatio，n]]][[1]]；选择[Range[360]，Divisible[#，phiDigSum[#]]&]
搜索在0.015秒内完成
查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。
许可协议、使用条款、隐私政策。.
上次修改时间：2024年9月21日16:51 EDT。包含376087个序列。（在oeis4上运行。）
| 