Collect[Plus @@ looplogs[[{1, 4}]] /. Log -> log // Expand, {_DecayConstant, Pi, _log}]

1/(π^2 (f _ ϕ^(ó  ))^2) (log((m _ π^(ó  ))^2/μ^2) (5/6 c _ 5^( ) (m _ K^(ó  ))^2 (!, _ 0^( ))^2 (m _ π^(ó  ))^4 - 5/6 c _ 5^( ) p _ 1^2 (!, _ 0^( ))^2 (m _ π^(ó  ))^4 - 5/6 c _ 5^( ) (m _ K^(ó  ))^4 (!, _ 0^( ))^2 (m _ π^(ó  ))^2 + 5/6 c _ 5^( ) p _ 1^2 (m _ K^(ó  ))^2 (!, _ 0^( ))^2 (m _ π^(ó  ))^2) + log((m _ K^(ó  ))^2/μ^2) (-2/3 c _ 5^( ) (!, _ 0^( ))^2 (m _ K^(ó  ))^6 + 2/3 c _ 5^( ) (m _ π^(ó  ))^2 (!, _ 0^( ))^2 (m _ K^(ó  ))^4 + 2/3 c _ 5^( ) p _ 1^2 (!, _ 0^( ))^2 (m _ K^(ó  ))^4 - 2/3 c _ 5^( ) p _ 1^2 (m _ π^(ó  ))^2 (!, _ 0^( ))^2 (m _ K^(ó  ))^2) + log((m _ η^(ó  ))^2/μ^2) (-2/9 c _ 5^( ) (!, _ 0^( ))^2 (m _ K^(ó  ))^6 + 5/18 c _ 5^( ) (m _ π^(ó  ))^2 (!, _ 0^( ))^2 (m _ K^(ó  ))^4 + 2/9 c _ 5^( ) p _ 1^2 (!, _ 0^( ))^2 (m _ K^(ó  ))^4 - 1/18 c _ 5^( ) (m _ π^(ó  ))^4 (!, _ 0^( ))^2 (m _ K^(ó  ))^2 - 5/18 c _ 5^( ) p _ 1^2 (m _ π^(ó  ))^2 (!, _ 0^( ))^2 (m _ K^(ó  ))^2 + 1/18 c _ 5^( ) p _ 1^2 (m _ π^(ó  ))^4 (!, _ 0^( ))^2))

Converted by Mathematica  (July 10, 2003)