~$ perl -MData::Float=nextdown -E '$n=100; for(1..$n){say if $_-1 != int $n*nextdown $_/$n}'
5
10
17
20
23
34
40
46
67
68
80
81
92
93