_贝诺伊特·克洛伊特 (贝诺特7848c(自动变速箱)橙色.前), _, 2002年6月10日
OEIS服务器: https://oeis.org/edit/global/216
编辑人_罗伯特·威尔逊v (rgwv(相对湿度)(自动变速箱)rgwv(相对湿度).通用域名格式), _, 2002年6月17日
OEIS服务器: https://oeis.org/edit/global/156
容易的,非n,新的
贝诺伊特·克洛伊特(资产负债表贝诺特7848c(自动变速器)瓦纳多橙色.fr),2002年6月10日
贝诺伊特·克洛伊特(abcloitre(阿波罗)资产负债表(自动变速器)模网瓦纳多语.fr),2002年6月10日
Benoit Cloitre(abcloitre(AT))瓦纳多模网.fr),2002年6月10日
(PARI)s=1;t=1;对于(n=2,40,s=s+1/t;while(abs(n^2+1-sum(i=1,长度(contfrac(s+1/t))), 成分(contfrac(s+1/t),i))>0,t++);打印1(t,“,”)
(PARI)s=1; t=1; 对于(n=2,40,s=s+1/t;而(abs(n^2+1-sum(i=1,长度(contfrac(s+1/t))),分量(contfrac+1/t,i))>0,t++); 打印1(t,“,”)
a(1)=1;a(n)是最小整数>a(n-1),使得S(n)=1/a(1)+1/a(2)++1/a(n)等于n^2。
1, 3, 27, 51, 135, 138, 186, 187, 352, 479, 525, 923, 932, 1286, 1578, 1807, 1886, 1926, 2816, 3358, 3438, 5727, 50152, 156816, 204512, 213094, 221368, 255348, 257350, 329046, 403004, 434010, 442520, 449599, 450069, 452430, 457524, 459665
1,2
1/a(1)+1/a(2)+1/a。
a[1]=1;a[n_]:=a[n]=(s=Sum[1/a[i],{i,1,n-1}];While[Plus@@ContinuedFraction[s+1/k]!=n^2,k++];k);k=1;做[打印[a[n]],{n,1,40}]
(PARI)s=1;t=1;对于(n=2,40,s=s+1/t;而(abs(n^2+1-sum(i=1,长度(contfrac(s+1/t))),分量(contfrac+1/t,i))>0,t++);打印1(t,“,”)
容易的,非n
Benoit Cloitre(abcloitre(AT)wanadoo.fr),2002年6月10日
编辑:Robert G.Wilson v(rgwv(AT)rgwv.com),2002年6月17日
经核准的