登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A333618飞机 a(n)是n的所有除数的对偶Zeckendorf表示中的项总数(1位数)。
1, 2, 3, 4, 3, 7, 3, 7, 6, 7, 5, 12, 4, 8, 8, 11, 5, 14, 6, 12, 9, 10, 5, 20, 7, 9, 11, 14, 6, 20, 6, 17, 11, 10, 10, 23, 6, 12, 11, 21, 5, 22, 6, 17, 17, 11, 6, 30, 8, 17, 13, 17, 8, 23, 12, 22, 13, 13, 6, 33, 7, 12, 18, 23, 12, 26, 6, 17, 13, 23, 7, 37, 7, 14 (列表;图表;参考;;历史;文本;内部格式)
抵消
1,2
链接
阿米拉姆·埃尔达尔,n,a(n)表,n=1.10000
配方奶粉
a(n)=和{d|n}A112310号(d) ●●●●。
例子
对于n=6,它的除数是1、2、3和6。双重Zeckendorf表示(A104326号)除数是1、10、11和111。它们的总数为1+1+2+3=7,因此a(6)=7。
数学
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]]]]];
a[n_]:=DivisorSum[n,dualZeckSum[#]&];阵列[a,100]
交叉参考
关键词
非n,基础
作者
状态
经核准的

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

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

上次修改时间:2024年6月19日11:49 EDT。包含373503个序列。(在oeis4上运行。)