Post History

# AppleScript, 178 bytes

```
set n to text returned of (display dialog "" default answer "") as number
set k to 0
set h to 0
repeat
set k to k + 1
set h to h + (1 / k)
if h >= n then exit repeat
end repeat
k
```

It's really a shame that AppleScript doesn't support explicit stdin.