编辑

经核准的

DeleteDuplicates[Table[If[IntegerQ[Sqrt[n]]，Nothing，Length[ContinuedFraction[Sqrt[n]][2]]]，{n，20000}]，GreaterEqual](*哈维·P·戴尔2023年12月28日*）

经核准的

编辑

提出

经核准的

编辑

提出

per[n_]：=连续分数[Sqrt[n]][2]]//长度；记录=0；t=Reap[对于[n=1，n<2*10^4，n++，如果[！IntegerQ[Sqrt[n]]，p=per[n]；如果[p>record，record=p；打印[{n，p}]；母猪[{n，p}]]]][[2，1]]；A020640型=t[[全部，2]](*Jean-François Alcover公司2012年12月27日*）

经核准的

编辑

编辑

经核准的

1, 2, 4, 5, 6, 8, 10, 12, 16, 18, 20, 22, 26, 34, 37, 40, 42, 44, 48, 52, 54, 60, 62, 64, 70, 76, 79, 88, 94, 96, 102, 104, 108, 114, 118, 122, 130, 136, 152, 156, 158, 170, 172, 174, 194, 196, 202, 207, 210, 217, 228, 234, 238, 239, 248, 262, 268, 280, 281,290,300,322,332

经核准的

编辑

提出

经核准的

编辑

提出

更多术语来自帕特里克·麦金利2012年8月21日

提出

编辑