Skip to main content
3 of 8
deleted 14 characters in body
H.PWiz
  • 11.7k
  • 2
  • 23
  • 57

Haskell, 61 60 50 bytes

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

Try it online!

###45 bytes with an import:

import NumberTheory maximum.map snd.factorize 

Try it Online!

H.PWiz
  • 11.7k
  • 2
  • 23
  • 57