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