%I #2 Mar 30 2012 17:30:36
%S 26,102,228,259,404,445,630,681,734,906,967,1030,1232,1303,1376,1451,
%T 1608,1689,1772,1857,2034,2125,2218,2313,2410,2510,2611,2714,2819,
%U 2926,3036,3147,3260,3375,3492,3611,3612,3733,3856,3981,4108,4237,4238,4369
%N Integers for which the periodic part of the continued fraction for the square root of n begins with 10.
%e The continued fraction for the square root of 102 is 10, {10, 20}.
%t Select[ Range[5000], First[ Last[ ContinuedFraction[ Sqrt[ # ]]]] == 10 & ]
%K cofr,easy,nonn
%O 1,1
%A _Robert G. Wilson v_, Nov 01 2001
|