OEIS哀悼西蒙斯感谢西蒙斯基金会支持包括OEIS在内的许多科学分支的研究。
登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A330711型 都是Zeckendorf-Niven数字的数字(A328208型)和惰性斐波那契-奈文数(A328212型). 6
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 (列表;图表;参考;;历史;文本;内部格式)
抵消
1,2
链接
阿米拉姆·埃尔达尔,n=1..10000时的n,a(n)表
例子
6是在序列中,因为A007895号(6) =2和112310英镑(6) =3,2和3都是6的除数。
数学
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>=斐波那契[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[#]]&]
交叉参考
囊性纤维变性。A007895号A014417号A104326号A112310号.
关键词
非n
作者
阿米拉姆·埃尔达尔,2019年12月27日
状态
经核准的

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

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

上次修改时间:美国东部夏令时2024年5月23日22:02。包含372765个序列。(在oeis4上运行。)