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

 


A178772号
斐波那契整数。
6
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 38, 39, 40, 41, 42, 44, 45, 46, 47, 48, 49, 50, 51, 52, 54, 55, 56, 57, 58, 60, 61, 62, 63, 64, 65, 66, 68, 69, 70, 72, 75, 76, 77, 78, 80, 81
抵消
1,2
评论
斐波那契整数是一个可以写成斐波那奇数的乘积和/或商的数字(A000045号). 例如,33是Fibonacci整数,因为Fib(10)*Fib(4)/Fib(5)=33。在100以内的数字中,只有8个不是斐波那契整数:37、43、53、59、67、71、73、74、79、83、86和97。请参见A178762号对于这个序列中的质数。
表单的整数A065108号(n)/A065108号(m) 对于一些m和n-查尔斯·格里特豪斯四世,2012年7月18日
设F(x)是这个序列中小于或等于x的项数。那么exp(c*sqrt(logx)-(logx)^e)<F(x)<exp(c*sqrt(logx)+(logx)^(1/6+e))对于任何e>0,其中c是这个常数。Luca、Pomerance和Wagner推测1/6可以被0代替,并注意到在abc猜想的强形式上它可以被1/8代替-查尔斯·格里特豪斯四世2016年8月31日
链接
Florian Luca、Carl Pomerance、Stephan Wagner、,斐波那契整数,《数论杂志》131(2011)440-457。(预打印)
数学
(*这个天真的程序非常慢,一些项是预先计算的。*)max=Fibonacci[m=20];清除[f];Do[f[n]=True,{n,{23,31,46,62,69,92,93}}];f[_]=错误;Do[f[fn=Fibonacci[n]]=真;f[fk=Fibonacci[k]]=真;如果[fn*fk<max,f[fn*fk]=True];如果[IntegerQ[fk/fn]&&fk/fk<max,f[fk/fn]=True],{n,2,m},{k,n,m}];fp[_]:=(cnt=0;Do[If[f[n]&&f[k],If[n*k<max,f[n*k]=True;cnt++];If[IntegerQ[k/n],f[k/n]=True,cnt+]],{n,1,max},{k,n+1,max}];打印[cnt,“斐波那契整数”];cnt);固定点[fp,0];收割[Do[If[n],Sow[n]],{n,1,100}][[2,1]](*Jean-François Alcover公司2013年3月1日*)
关键词
非n,美好的
作者
T.D.诺伊2010年6月11日
状态
经核准的

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

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

上次修改时间:美国东部夏令时2024年9月21日04:44。包含376079个序列。(在oeis4上运行。)