登录
OEIS由
OEIS基金会的许多慷慨捐赠者
.
提示
(来自的问候
整数序列在线百科全书
!)
A205867型
数字k,其中8将s(k)-s(j)除以某些j<k;
对于每个这样的j,每个k出现一次;
s(k)表示(k+1)-st斐波那契数。
6
6, 7, 7, 8, 10, 11, 12, 12, 13, 13, 13, 14, 14, 15, 16, 16, 16, 17, 17, 18, 18, 18, 18, 19, 19, 19, 19, 19, 20, 20, 20, 21, 22, 22, 22, 22, 23, 23, 23, 24, 24, 24, 24, 24, 25, 25, 25, 25, 25, 25
(
列表
;
图表
;
参考
;
听
;
历史
;
文本
;
内部格式
)
偏移
1,1
评论
有关相关序列的指南,请参阅
A205840型
.
链接
n=1..50时的n,a(n)表。
例子
前六个术语与这些差异相匹配:
s(6)-s(4)=13-5=8=8*1
s(7)-s(4)=21-5=16=8*2
s(7)-s(6)=21-13=8=8*1
s(8)-s(2)=34-2=32=8*4
s(10)-s(1)=89-1=88=8*11
s(11)-s(5)=144-8=136=8*17
数学
s[n_]:=s[n]=斐波那契[n+1];
z1=600;
z2=50;
f[n_]:=f[n]=楼层[(-1+平方[8 n-7])/2];
表[s[n],{n,1,30}]
u[m_]:=u[m]=扁平[表[s[k]-s[j],{k,2,z1},{j,1,k-1}][[m]]
表[u[m],{m,1,z1}](*
A204922型
*)
v[n_,h]:=v[n,h]=如果[IntegerQ[u[h]/n],h,0]
w[n_]:=w[n]=表格[v[n,h],{h,1,z1}]
d[n_]:=d[n]=删除[w[n],位置[w[n],0]]
c=8;
t=d[c](*
A205866型
*)
k[n_]:=k[n]=楼层[(3+平方[8 t[[n]]-1])/2]
j[n]:=j[n]=t[[n]]-f[t][[n]](f[t[n]]+1)/2
表[k[n],{n,1,z2}](*
A205867型
*)
表[j[n],{n,1,z2}](*
A205868型
*)
表[s[k[n]]-s[j[n]],{n,1,z2}](*
A205869型
*)
表[(s[k[n]]-s[j[n]])/c,{n,1,z2}](*
A205870型
*)
交叉参考
囊性纤维变性。
A204892型
,
A205868型
,
A205870型
.
上下文中的序列:
A008938号
A256425型
21600元
*
A347417飞机
A046256号
A004495号
相邻序列:
A205864型
A205865型
A205866型
*
A205868型
A205869型
A205870型
关键词
非n
作者
克拉克·金伯利
2012年2月2日
状态
经核准的
查找
|
欢迎光临
|
维基
|
注册
|
音乐
|
地块2
|
演示
|
索引
|
浏览
|
更多
|
网络摄像头
贡献新序列。
或评论
|
格式
|
样式表
|
变换
|
超级搜索
|
最近
OEIS社区
|
维护人
OEIS基金会。
许可协议、使用条款、隐私政策。
.
上次修改时间:2024年4月27日05:51 EDT。
包含372009个序列。
(在oeis4上运行。)