%I #2 Mar 30 2012 17:30:36
%S 17,66,147,172,260,293,405,446,489,582,631,682,791,848,907,968,1032,
%T 1097,1164,1233,1305,1378,1453,1530,1609,1610,1691,1774,1859,1946,
%U 1947,2036,2127,2220,2315,2316,2412,2413,2512,2613,2716,2717,2821,2822,2929
%N Integers for which the periodic part of the continued fraction for the square root of n begins with 8.
%e The continued fraction for the square root of 147 is 12, {8, 24}.
%t Select[ Range[3000], First[ Last[ ContinuedFraction[ Sqrt[ # ]]]] == 8 & ]
%K cofr,easy,nonn
%O 1,1
%A _Robert G. Wilson v_, Nov 01 2001
|