|
%I #13 Nov 18 2023 22:24:24
%S 2,3,6,10,12,17,34,35,51,58,68,70,99,102,136,198,204,338,396,408,495,
%T 577,693,990,1154,1189,1386,1731,1970,1980,2308,2378,2772,3363,3462,
%U 3465,4616,6726,6895,6924,6930,9232,9809,11482,13452,13790,13848,13860
%N Numbers k such that the period of the continued fraction for sqrt(2)*k (A064848) is 2.
%H Chai Wah Wu, <a href="/A065029/b065029.txt">Table of n, a(n) for n = 1..390</a>
%t Select[ Range[ 25000], Length[ Last[ ContinuedFraction[ Sqrt[2] *# ]]] == 2 & ]
%Y Cf. A064848, A064933.
%K nonn
%O 1,1
%A _Robert G. Wilson v_, Nov 02 2001
|
