%I#16 2021年8月18日00:10:32
%电话:485125692407424698606378311384269111781140914146213180137,
%电话:181837215737217597232252606262673304226305329306434,
%电话:307541310874311989315346316469313341557741815742074542334125945
%N数k,使得sqrt(k)的连分式具有奇数周期,如果删除周期部分的最后一项,则两个中心项都是44。
%t cf44Q[n_]:=模块[{s=Sqrt[n],cf,len},cf=If[IntegerQ[s],{1,1},ContinuedFraction[s][2];len=长度[cf];奇数Q[len]&&cf[[(len+1)/2]]==44];选择[范围[426000],cf44Q](*_哈维P.Dale_,2020年5月10日*)
%K nonn公司
%O 1,1号机组
%A·热心的W·威尔逊_
%E乔治·菲舍尔于2019年6月16日删除1937年第一任期
%E添加第一个术语(485),并由_Harvey P.Dale_澄清定义,2020年5月10日
|