|
| |
|
| A031417号 |
| 对k进行编号，使sqrt（k）的连分式具有奇数周期，如果周期部分的最后一项被删除，则会有一对中心项都等于4。 |
|
1
|
|
|
|
274, 370, 481, 797, 953, 1069, 1249, 1313, 1378, 1381, 1514, 1657, 1658, 1733, 1889, 2125, 2297, 2377, 2554, 2557, 2833, 2834, 2929, 2941, 3226, 3329, 3338, 3433, 3541, 3761, 3874, 3989, 4093, 4106, 4441, 4442, 4561, 4682, 4685, 4933, 4937, 5197, 5450
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,1
|
|
|
链接
|
|
|
|
例子
|
sqrt（274）=[16；1,1,4,4,1,1,32，…]的单连分式，带奇数周期7和中心项4。另一个例子是sqrt（481）=[21；1，13，1，1，4，4，1，1,1，1、13，1、42，…]，带有奇数句点13和中心项4-迈克尔·索莫斯2014年4月3日
|
|
|
数学
|
n=1；t={}；当[长度[t]<50时，n++；如果[！IntegerQ[Sqrt[n]]，c=ContinuedFraction[Sqrt[n]】；len=长度[c[[2]]]；如果[OddQ[len]&&c[[2，（len+1）/2]]==4，追加到[t，n]]]；t吨(*T.D.诺伊2014年4月3日*）
cf4Q[n_]：=模块[{s=Sqrt[n]，cf，len}，cf=If[IntegerQ[s]，{1，1}，ContinuedFraction[s][2]]]；len=长度[cf]；奇数Q[len]&&cf[[（len+1）/2]]==cf[[[（len-1）/2]]==4]；选择[Range[5500]，cf4Q](*哈维·P·戴尔2021年7月28日*）
|
|
|
交叉参考
|
|
|
|
关键词
|
非n
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
|
