%I#27 2015年9月17日04:40:47

%S 3,7,23,31,71107131139163199211227283347367379419431439，

%电话：487499503547571607619643691719751787811823827907911，

%电话：983991103110511091115111631231130313191367139914231439145499

%N序列h（N）的不动点，由简单连分式之间的关系N*[N，8,8，…，8，N]=[x，…，x]中的最小8个数定义。

%C在A213891的变体中，将n乘以带有简单连分数[n，8，8，…，8，n]的数字，然后增加8的数字，直到乘积的连分数具有相同的第一个和最后一个条目（在NAME中称为x）。示例如下

%C2*[2,8,2]=[4,4,4]，

%C 3*[3，8，8，8，3]=[9，2，1，2，2，2，1，2，9]，

%C4*[4，8，4]=[16，2，16]，

%C 5*[5，8，8，5]=[25，1，1，1，1，1，1，25]，

%C6*[6，8，8，8,6]=[36，1，2，1，4，1，2中，1，36]，

%C7*[7,8,8,8，8,8,1,8,7]=[49，1,6,4,3,2,2,1,2,3,4,6,1,49]。

%C所需的8的数量定义了序列h（n）=1、3、1、2、3、7、1、11、5，。。（n>=2）。

%电流序列包含h的不动点，即h（n）=n的n。

%C我们推测，这个序列包含与素数序列A000057类似的素数，在这个意义上，它不是指斐波那契序列（满足f（n）=f（n-1）+f（n-2）且f（1）和f（2）具有任意正整数值的序列），而是指满足f，A015454等。这意味着当且仅当素数除以满足f（n）=8*f（n-1）+f（n-2）的每个序列中的某些项时，素数才在序列A213897中。

%C序列h（）被记录为A262218_M.F.Hasler，2015年9月15日

%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] ；选择[Range[2，1000]，f[8，#]==#&]（*_Michael De Vlieger_，2015年9月16日*）

%o（PARI）{a（n）=局部（t，m=1）；如果（n<2，0，while（1，

%o t=contfracpnqn（concat（[n，向量（m，i，8），n]）；

%o t=控制（n*t[1,1]/t[2,1]）；

%o如果（t[1]<n^2 ||t[#t]<n^2，m++，break））；

%o m）}；

%o表示（k=11500，如果（k==a（k），打印1（a（k，“，”））；

%Y参考A000057、A213891-A213896、A213898、A213899、A261311；A213358。

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

%K nonn公司

%O 1,1号机组

%2012年6月24日，阿特·杜普