%I#40 2022年7月5日11:36:21

%S 1,5,333053640533539278431867430542693889510928351501，

%电话：309601751184961679290824132497185551429311868363584907985，

%电话：46582381640922424519553538801258341377874091571490181406680

%N连分数N+1/（N+1/…）的分子[N次]。

%C卢卡斯序列U（n，-1）的第n项。分母是第（n-1）项。序列U（n，-1）的相邻项相对素数_T.D.Noe_，2004年8月19日

%H Alois P.Heinz，n的表格，n=1..386的a（n）</a>

%H Eric Weisstein的数学世界，<a href=“http://mathworld.wolfram.com/LucasSequence.html“>Lucas序列</a>

%F a（n）=和{k=0..floor（n/2）}*二项式（n-k，k）*n^（n-2k）.-_米歇尔·拉格诺_

%F a（n）=[x^n]1/（1-n*x-x^2）_Paul D.Hanna，2012年12月27日

%F a（n）=（s^（n+1）-（-s）^（-n-1））/（2*s-n），其中s=（n+sqrt（n^2+4））/2.-_Vladimir Reshetnikov，2016年5月7日

%F a（n）=A117715（n+1，n）_Alois P.Heinz，2017年8月12日

%e a（4）=305，因为4+1/（4+1/，4+1/4））=305/72。

%p A084845:=程序（n）

%p斐波那契（n+1，n）；

%p端程序：

%p序列（A084845（n），n=1..20）；#_Zerinvary Lajos，2006年12月1日

%t myList[n_]：=模块[{ex={n}}，Do[ex={ex，n}，{n-1}]；扁平[ex]]表[Numerator[FromContinuedFraction[myList[n]]]，{n，1，20}]

%t表格[s=n；Do[s=n+1/s，{n-1}]；分子[s]，{n，20}]（*_T.D.Noe_，2004年8月19日*）

%o（PARI）{a（n）=polcoeff（1/（1-n*x-x^2+x*o（x^n）），n）}\\保尔·D·汉纳，2012年12月27日

%o（Python）

%o来自sympy导入fibonacci

%o定义a117715（n，m）：如果n==0，则返回0，否则返回fibonacci（n，m）

%o定义a（n）：返回a117715（n+1，n）

%o打印（[a（n）代表范围（1，31）中的n）]#_Indranil Ghosh，2017年8月12日

%Y参考A084844（分母）。

%Y参见A097690、A097691、A117715。

%K压裂，非

%O 1,2号机组

%A _霍利·布坎南二世，2003年6月8日