Ab initio prediction of pressure-induced superconductivity in potassium