Count[Table[FractionalPart[Sqrt[n]],{n,#}],0]&/@{100}