smartBound number
    = ceiling $ (l number) ** (1 / sqrt 2)
    where l x = exp (sqrt $ log x_ * log (log x_))
              where x_ = sqrt $ fromIntegral x
smartBound number
    = ceiling $ (l number) ** (1 / sqrt 2)
    where l x = exp (sqrt $ log x_ * log (log x_))
              where x_ = sqrt $ fromIntegral x
smartBound number
    = ceiling $ (l number) ** (1 / sqrt 2)
    where l x = exp (sqrt $ log x_ * log (log x_))
              where x_ = sqrt $ fromIntegral x