The function
Divisors should help, for example
Divisors[60]
(* Out[1]= {1, 2, 3, 4, 5, 6, 10, 12, 15, 20, 30, 60} *)
Using this list, we can form the pairs {60/k, k} and display them in any desired way:
fact[n_Integer] := Row[{n/#, "(", #, ")"}] & /@ Take[#, Ceiling[Length[#]/2]] & @ Divisors[n]
fact[60]
(* Out[3]= {60(1), 30(2), 20(3), 15(4), 12(5), 10(6)} *)
