%I #5 Mar 30 2012 17:23:03
%S 0,1,3,4,6,8,10,12,18,20,24,26,30,42,46,50,52,56,60,70,72,74,78,86,92,
%T 98,102,106,112,116,124,128,132,136,156,158,170,178,188,192,196,202,
%U 204,212,236,242,250,266,272,274,276,278,286,292,294,312,318
%N Number of ones in the periodic part of the continued fraction of sqrt(n) for n in A206579.
%t t = {{2, 0}}; Do[If[! IntegerQ[Sqrt[k]], cnt = Count[ContinuedFraction[Sqrt[k]][[2]], 1]; If[cnt > t[[-1, 2]], AppendTo[t, {k, cnt}]]], {k, 3, 50000}]; Transpose[t][[2]]
%K nonn
%O 1,3
%A _T. D. Noe_, Feb 29 2012