Grid@Table[{"primorial(10^" <> ToString[n] <> ") has ",
   {timing,answer}=AbsoluteTiming[IntegerLength@primorial[10^n]];answer,
   " digits in "<>ToString@timing<>" seconds"}, {n,6}]