%I #10 Oct 31 2013 12:17:13
%S 91,304,319,432,539,555,595,671,696,703,760,891,935,1175,1512,1643,
%T 1695,1971,2075,2088,2223,2295,2299,2507,2552,2555,2679,2727,3219,
%U 3240,3344,3416,3471,3611,4023,4075,4331,4347,4371,5291,5320,5355,5616,5712,6016
%N Period of continued fraction for sqrt(n) contains exactly five 1's.
%t Select[ Range@ 6100, !IntegerQ[ Sqrt@ #] && Count[ ContinuedFraction[ Sqrt@ #][[2]], 1] == 5 &] (* _Robert G. Wilson v_, Jul 03 2011 *)
%K nonn
%O 1,1
%A _David W. Wilson_
|