%I #2 Mar 30 2012 17:30:36
%S 83,199,328,365,534,581,735,790,847,1031,1096,1163,1304,1377,1452,
%T 1529,1690,1773,1858,1945,2035,2126,2219,2314,2411,2511,2612,2715,
%U 2820,2927,2928,3037,3148,3261,3376,3493,3494,3613,3734,3857,3982,3983,4109,4110
%N Integers for which the periodic part of the continued fraction for the square root of n begins with 9.
%e The continued fraction for the square root of 83 is 9, {9, 18}.
%t Select[ Range[5000], First[ Last[ ContinuedFraction[ Sqrt[ # ]]]] == 9 & ]
%K cofr,easy,nonn
%O 1,1
%A _Robert G. Wilson v_, Nov 01 2001
|