A020442 - OEIS

%I #10 Oct 31 2013 12:17:13

%S 43,44,46,58,76,86,93,103,113,160,172,179,184,186,191,199,213,233,242,

%T 245,268,281,284,307,313,337,344,345,348,366,376,389,391,409,411,415,

%U 419,422,425,426,430,431,446,468,469,477,496,500,512,516,517,522,550,554,561

%N Period of continued fraction for sqrt(n) contains exactly six 1's.

%t Select[ Range@ 565, !IntegerQ[ Sqrt@ #] && Count[ ContinuedFraction[ Sqrt@ #][[2]], 1] == 6 &] (* _Robert G. Wilson v_, Jul 03 2011 *)

%K nonn

%O 1,1

%A _David W. Wilson_