|
%I #15 Jul 10 2021 19:35:04
%S 31,44,69,71,91,92,108,135,153,158,160,177,188,204,205,206,207,209,
%T 234,238,279,282,316,332,348,352,378,383,384,413,414,416,423,432,450,
%U 468,476,492,503,539,540,555,585,608,612,638,658,668,684,693,695,696,704,706,707
%N Numbers k such that the continued fraction for sqrt(k) has period 8.
%H Vincenzo Librandi, <a href="/A020348/b020348.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Range[1000], Length[Last[ContinuedFraction[Sqrt[#]]]] == 8 &] (* _Alonso del Arte_, Mar 04 2018 *)
%K nonn
%O 1,1
%A _David W. Wilson_
|
