pTiming[n_] := With[{comp = Timing@pythag@(10^n)}, {HoldForm[10^n], comp[[2, 1]], comp[[2, 2]], Round@comp[[1]]}]; {{"n", "Triples", "Primitives", "Timing(s)"}}~Join~(pTiming /@ Range@5) // Grid