Amazing how times have changed. Took just over 15s inside Mathematica on an old Intel MacBook Air with dozens of other apps running. Didn't even spin the fans up.

  In[*]:= Timing@FactorInteger[RandomInteger[{10^70,10^71}]]
  Out[*]= {15.2956,{{2,1},{7,1},{37515320305457999,1},{326028473853489650357,1},{311862636985416087931035845158981,1}}}