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

%I#8 2015年9月17日04:39:09

%S 1,3,1,2,3,7,11,5,3,3,2,7,11,3,16,11,7,7,3,23,3,14,5,35,7,14,11,

%电话31,7,3,33,23,11,18,17,11,5,20,7,41,3,11,23,45,55,29,67,25,35,11,

%U 7,35,29,57,11,30,31,23,15,2,3,5,33,23,23,71,11,36,37,59,17,7,11,15,1107,41,81,7,50,41,59,3,43,11,23,31,45,17,7,48,55,11

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

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

%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[8,#]&/@Range[2,120](*迈克尔·德弗里格,2015年9月16日*)

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

%o A262218(n,d=8)=对于(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,2

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