%I
%S 5,18,39,52,68,85,105,126,149,150,175,202,203,232,263,264,296,297,332,
%T 333,369,370,409,410,450,451,493,494,495,539,540,586,587,588,636,637,
%U 687,688,689,740,741,742,796,797,798,853,854,855,913,914,915,974,975
%N Integers for which the periodic part of the continued fraction for the square root of n begins with 4.
%e The continued fraction for the square root of 39 is 6, {4, 12}.
%t Select[ Range[1000], First[ Last[ ContinuedFraction[ Sqrt[ # ]]]] == 4 & ]
%K cofr,easy,nonn
%O 1,1
%A _Robert G. Wilson v_, Nov 01 2001
