OEIS哀悼
西蒙斯
感谢西蒙斯基金会支持包括OEIS在内的许多科学分支的研究。
登录
OEIS由
OEIS基金会的许多慷慨捐赠者
。
提示
(来自的问候
整数序列在线百科全书
!)
2014年5月2日
最小k,使得n除以满足1<=j<k的j的L(k)-L(j),其中L(j)是第j个卢卡斯数(
A000032号
).
9
2, 2, 3, 4, 5, 4, 5, 5, 7, 5, 6, 8, 7, 6, 6, 10, 6, 7, 10, 8, 10, 7, 8, 9, 7, 7, 16, 7, 8, 10, 16, 11, 11, 11, 10, 8, 13, 10, 11, 8, 11, 14, 8, 8, 12, 8, 9, 11, 11, 16, 13, 13, 12, 16, 12, 10, 17, 9, 14, 10
(
列表
;
图表
;
参考
;
听
;
历史
;
文本
;
内部格式
)
抵消
1,1
评论
请参见
A204892型
用于相关序列的讨论和指南。
链接
n,a(n)的表,n=1..60。
数学
s[n_]:=s[n]=LucasL[n];
z1=500;
z2=60;
表[s[n],{n,1,30}](*
A000032号
*)
u[m_]:=u[m]=扁平[表[s[k]-s[j],{k,2,z1},{j,1,k-1}][[m]]
表[u[m],{m,1,z1}](*
A205112型
*)
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]]
表[d[n],{n,1,z2}](*
A205113型
*)
k[n_]:=k[n]=楼层[(3+平方[8 d[n]-1])/2]
m[n_]:=m[n]=楼层[(-1+平方[8 n-7])/2]
j[n]:=j[n]=d[n]-m[d[n]](m[d[n]+1)/2
表[k[n],{n,1,z2}](*
A205114型
*)
表[j[n],{n,1,z2}](*
A205115型
*)
表[s[k[n]],{n,1,z2}](*
2016年5月2日
*)
表[s[j[n]],{n,1,z2}](*
A205117型
*)
表[s[k[n]]-s[j[n]],{n,1,z2}](*
A205118型
*)
表[(s[k[n]]-s[j[n]])/n,{n,1,z2}](*
A205119型
*)
交叉参考
囊性纤维变性。
A000032号
,
A204892型
,
A205119型
。
上下文中的序列:
A031233号
A030584型
A030564型
*
A293428型
A281487型
A224401型
相邻序列:
A205111型
A205112型
A205113型
*
A205115型
A205116型
A205117型
关键词
非n
作者
克拉克·金伯利
2012年1月22日
状态
已批准
查找
|
欢迎光临
|
维基
|
注册
|
音乐
|
地块2
|
演示
|
索引
|
浏览
|
更多
|
网络摄像头
贡献新序列。
或评论
|
格式
|
样式表
|
变换
|
超级搜索
|
最近
OEIS社区
|
维护人
OEIS基金会。
许可协议、使用条款、隐私政策。
。
上次修改时间:美国东部夏令时2024年6月15日19:43。
包含373410个序列。
(在oeis4上运行。)