登录
对于某些x,n*[n;7,…,7,n]=[x;…,x]的最小7个数,其中[…]表示简单连分数。
2

%I#9 2015年9月16日15:26:02

%S 2,3,5,2,11,1,5,11,2,9,11,5,5,11,11,19,5,3,29,7,11,2,5,35,5,6,11,

%电话:31,23,19,11,5,11,8,59,11,5,20,11,13,29,11,23,45,11,132,3,5,52,35,29,

%U 5,19,20,57,11,30,95,11,47,5,59,67,11,7,5,23,11,36,8,11,59,9,11,79,11107,20,27,11,41,27,29,43,11,5,23,31137,59,23,47,41,59

%N对于某些x,7的最小数,使得N*[N;7,…,7,N]=[x;…,x],其中[…]表示简单连分数。

%C序列A213896列出了该序列的固定点。

%t f[m_,n_]:=块[{c,k=1},c[x_,y_]:=ContinuedFraction[x FromContinued Fraction[Join[{x},Table[m,{y}],{x}]];而[First@c[n,k]!=最后一个@c[n,k],k++];k] ;f[7,#]&&@范围[2120](*_Michael De Vlieger_,2015年9月16日*)

%o(PARI)cf(v)={t=v[#v];对于步骤(i=#v-1,1,-1,t=v[i]+1/t);t}

%o A262217(n,d=7)=对于(k=1,9e9,(c=控制(cf(向量(k+2,i,如果(i>1&i<k+2、d,n))*n))[1]==c[#c]&&返回(k))

%Y参见A213648、A262212-A262220、A213900、A262211。

%Y参考A000057、A213891-A213899、A261311:上述固定点。

%K nonn公司

%氧2,1

%A _M.F.Hasler,2015年9月15日