Erlang (escript), 79 bytes
Filters out all factors, and selects the ones in the middle.
f(X)->Y=lists:last([I||I<-lists:seq(1,ceil(math:sqrt(X))),X rem I==0]),[Y,X/Y].
1 of 2
user92069