搜索: 编号:a205867
|
|
A205867型
|
| 数字k,其中8将s(k)-s(j)除以某些j<k;对于每个这样的j,每个k出现一次;s(k)表示(k+1)-st斐波那契数。 |
|
+0 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
|
|
评论
|
|
|
链接
|
|
|
例子
|
前六个术语与这些差异相匹配:
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]]
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]]
k[n_]:=k[n]=楼层[(3+平方[8 t[[n]]-1])/2]
j[n]:=j[n]=t[[n]]-f[t][[n]](f[t[n]]+1)/2
表[(s[k[n]]-s[j[n]])/c,{n,1,z2}](*A205870型*)
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
搜索在0.005秒内完成
|