%I #2 Mar 30 2012 17:30:36
%S 11,28,40,53,69,86,87,106,127,128,151,152,176,177,204,205,233,234,235,
%T 265,266,298,299,300,334,335,336,371,372,373,411,412,413,452,453,454,
%U 455,496,497,498,541,542,543,544,589,590,591,592,638,639,640,641,690
%N Integers for which the periodic part of the continued fraction for the square root of n begins with 3.
%e The continued fraction for the square root of 11 is 3, {3, 6}.
%t Select[ Range[800], First[ Last[ ContinuedFraction[ Sqrt[ # ]]]] == 3 & ]
%K cofr,easy,nonn
%O 1,1
%A _Robert G. Wilson v_, Nov 01 2001
|