f = ConstantArray[" ", #] <> "" &;
, Thies Heidecke,, , Sjoerd's.
n . , Sjoerd n > 10000:
f2ss = " "~ConstantArray~499 <> "";
f2[n_ /; n < 500] := StringTake[f2ss, n]
f2[n_ /; n < 5000] := StringTake[ConstantArray[" ", ⌈n/10⌉] <> "", n]
f2[n_] := StringTake[ConstantArray[f2@400, ⌈n/400⌉] <> "", n]