%I#33 2020年2月10日18:26:16

%S 3,7,31,43,47,71107151167179211223239251271283419431463，

%电话467487491523547563571631839859883907967997110871103，

%电话：1171118712791283129113671399142314591471148314871499

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

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

%C2*[2,10,2]=[4,5,4]，

%C3*[3，10，10，10,3]=[9，3，2，1，2，3，9]，

%C4*[4，10，10，10,4]=[16，2，1，1，9，1，2，16]，

%C5*[5,10,5]=[25,2,25]，

%C 6*[6，10，10，10,6]=[36，1，1，2，6，2，1，1,36]，

%C 7*[7，10，10，10，10，10，10，10，7]=[49，1，2，3，1，6，2，1，2，2，2，1，2，6，1，3，2，1，49]。

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

%C当前序列包含h的不动点，即n，其中h（n）=n。

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

%C序列h（）在A262220中给出_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[10，#]==#&]（*_Michael De Vlieger_，2015年9月16日*）

%o（PARI）

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

%o t=contfracpnqn（concat（[n，向量（m，i，10），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-A213898、A261311。

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

%K nonn公司

%O 1,1号机组

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