(1,|unique @($_=grep &is-prime,^99+10**5)X*@$_).sort[get-1].say