想定解は133回

> order(P,decreasing = TRUE)[1:20]
[1] 133 134 132 135 131 136 130 137 129 138 128 139 127 140 126 141 125 142 143 124

https://i.imgur.com/XD7J6aa.png