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

 

标志
提示
(来自的问候整数序列在线百科全书!)
A022416号 Kim-sums:“金伯利总和”K_n+K_5。 4
4, 13, 16, 18, 21, 24, 26, 29, 31, 34, 37, 39, 42, 45, 47, 50, 52, 55, 58, 60, 63, 65, 68, 71, 73, 76, 79, 81, 84, 86, 89, 92, 94, 97, 100, 102, 105, 107, 110, 113, 115, 118, 120, 123, 126, 128, 131, 134, 136, 139, 141, 144, 147, 149, 152, 154, 157, 160, 162, 165, 168, 170 (列表;图表;参考;;历史;文本;内部格式)
抵消
0,1
参考文献
发布到math-fun邮件列表1997年1月10日。
链接
MAPLE公司
Ki:=程序(n,i)
选项记忆;
局部phi;
phi:=(1+sqrt(5))/2;
如果i=0,则
n;
elif i=1,则
地板(n+1)*φ);
其他的
进程名(n,i-1)+进程名(n,i-2);
结束条件:;
结束进程:
基苏姆:=进程(n,m)
局部ks、a、i;
ks:=[seq(Ki(n,i)+Ki(m,i),i=0..5)];
对于i从0到2做
对于0中的a do
如果Ki(a,0)=ks[i+1]且Ki(a,1)=ks[i+2],则
返回a;
结束条件:;
如果Ki(a,0)>ks[i+1],则
断裂;
结束条件:;
结束do:
结束do:
结束进程:
第022416号:=进程(n)
如果n=0,则
4;
其他的
基苏姆(n-1,4);
结束条件:;
结束进程:
序列(A022416号(n) ,n=0..80)#R.J.马塔尔2016年9月3日
数学
Ki[n_,i_]:=Ki[n,i]=其中[i==0,n,i==1,Floor[(n+1)*GoldenRatio],True,Ki[n,i-1]+Ki[n,i-2];
Kisum[n_,m_]:=模块[{ks,a,i},ks=表[Ki[n,i]+Ki[m,i],{i,0,5}];对于[i=0,i<=2,i++,对于[a=0,True,a++,如果[Ki[a,0]==ks[[i+1]]&&Ki[a、1]==ks[[i+2]],返回[a]];如果[Ki[a,0]>ks[[i+1]],则中断[]]]];
A022416号[n]:=如果[n==0,4,Kisum[n-1,4];
表[第022416号[n] ,{n,0,80}](*Jean-François Alcover公司2023年6月9日之后R.J.马塔尔*)
交叉参考
关键词
非n
作者
状态
已批准

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

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

上次修改时间:2024年4月16日11:48 EDT。包含371711个序列。(在oeis4上运行。)