登录
OEIS基金会得到了OEIS用户的捐赠和西蒙斯基金会的资助。

 

标志


提示
(问候来自百科全书行上的整数序列!)
A205780号 最小正整数k使得n除以[1,k-1]中某些j的C(k)-C(j),其中C=A007598号(平方斐波纳契数)。 1
2、3、3、3、3、3、4、4、4、3、5、5、5、5、5、4、5、6、5、5、6、5、5、6、7、7、7、7、7、7、6、7、7、6、7、6、6、6、6、6、6、6、6、6、8、6、6、8、6、8、6、8、6、8、11、9、9、9、9、9、7、6、9、6、9、6、9、9、6、6、9、12、12、12、12、12、12、12、12、7、7、12、13、7、7、12、13、11、7、11、11、11、19、9、9、9、9、10、11、11、11 9,8,8,23,6,10,12,22,6,10,10,8,7,9 (列表;图表;参考文献;;历史;文本;内部格式)
抵消

1,1

评论

有关相关序列的指南,请参见A204892号.

链接

n=1..89的n,a(n)表。

例子

1除以C(2)-C(1)->k=2,j=1

2除C(3)-C(1)->k=3,j=1

3除C(2)-C(1)->k=2,j=1

4除C(3)-C(1)->k=3,j=1

5除C(3)-C(2)->k=3,j=2

数学

s=表[(Fibonacci[n+1])^2,{n,1,120}];

lk=表格[

NestWhile[#+1&,1,

Min[Table[Mod[s[[#]]-s[[j]],z],{j,1,#-1}]]=!=0&],{z,1,

长度[s]}]

表[NestWhile[#+1&,1,

Mod[s[[lk[[j]]]-s[[#]],j]=!=0&],{j,1,长度[lk]}]

(*彼得·J·C·摩西2012年1月27日*)

交叉引用

囊性纤维变性。A204892号,A007598号.

上下文顺序:A079715号 A030397型 A257213*A204905号 A082597号 A112212号

相邻序列:A205777号 A205778号 A205779号*A205781号 邮编:A205782 邮编:A205783

关键字

作者

克拉克·金伯利2012年2月1日

状态

经核准的

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

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

上次修改日期:美国东部时间2020年8月12日21:10。包含336440个序列。(运行在oeis4上。)