main=mapM putStrLn[show m++',':show n|n@(m+2)<-[5..2000],all((0<).mod(n*m))[2..m-1]]