|
%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_
|
