Numerical results give random picture. 

ListPlot[Table[FractionalPart[Sqrt[PartitionsP[i]]], {i, 1, 5000}]]

[![enter image description here][1]][1]


  [1]: https://i.sstatic.net/qw3b8.jpg