STATUS
editing
approved
editing
approved
Charles R Greathouse IV, <a href="/A031434/b031434.txt">Table of n, a(n) for n = 1..10000</a>
approved
editing
Select[Range[30000], !IntegerQ[Sqrt[#]]&&Min[ContinuedFraction[Sqrt[#]][[2]]]==10&] (* _Vincenzo Librandi, _, Jan 27 2012 *)
_David W. Wilson (davidwwilson(AT)comcast.net)_
reviewed
approved
proposed
reviewed
editing
proposed
Select[Range[30000], !IntegerQ[Sqrt[#]]&&Min[ContinuedFraction[Sqrt[#]][[2]]]==10&] (* Vincenzo Librandi, Jan 27 2012 *)
approved
editing
reviewed
approved
proposed
reviewed