OFFSET
1,1
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000 (first 1000 from Vincenzo Librandi)
MATHEMATICA
Select[Range[3000], !IntegerQ[Sqrt[#]] && Min[ContinuedFraction[Sqrt[#]][[2]]] == 3&] (* Vincenzo Librandi, Feb 06 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved