Return to Revisions

6 of 8

added 88 characters in body

edited Oct 22, 2017 at 20:47

Haskell, 61 60 50 48 46 bytes

-2 bytes thanks to xnor

f n=maximum[a*|k<-[2..n],a<-[1..n],n`mod`k^a<1]

###45 bytes with an import:

import NumberTheory maximum.map snd.factorize

answered Oct 21, 2017 at 17:50