p = 68068810283234182907; Ceiling[Log[p]^2 - 1.65 Log[p] Log[Log[p]] + 2 Log[p] + 3 Log[Log[p]]^2]