I think it depends on what kind of calculations you perform.
For example, in a very modest laptop:
Clear["Global`*"];
k = 2000;
Timing[a = Table[i j + i - j, {i, k}, {j, k}];
MatrixPlot@a]
It takes 20 seconds.
Matrix times 1000x1000:
f[n_] := Table[RandomInteger[{1, n}], {n}, {n}];
ListLinePlot[
Table[{n, First@AbsoluteTiming@(

So it depends a lot on what you are trying to calculate.
source
share