%I #2 Mar 30 2012 17:30:36
%S 27,67,104,125,174,201,231,262,295,331,368,407,408,449,492,537,538,
%T 585,634,635,685,686,739,794,795,851,852,911,912,972,973,1035,1036,
%U 1101,1102,1168,1169,1237,1238,1239,1309,1310,1382,1383,1457,1458,1459
%N Integers for which the periodic part of the continued fraction for the square root of n begins with 5.
%e The continued fraction for the square root of 104 is 10, {5, 20}.
%t Select[ Range[1500], First[ Last[ ContinuedFraction[ Sqrt[ # ]]]] == 5 & ]
%K cofr,easy,nonn
%O 1,1
%A _Robert G. Wilson v_, Nov 01 2001
|