Untitled

How to remove the Null symbol in a Table in Mathematica?
Table[If[i < 3, i, ## &[]], {i, 5}]

{1, 2, ## &[], 3, 4}

----> {1, 2, 3, 4}

DeleteCases[list, Null]

list /. Null -> Sequence[]

list = Table[If[i < 3, i], {i, 5}]

list = Select[Table[i, {i, 5}], # < 3 &]

Reap@Do[If[i < 3, Sow[i]], {i, 5}]
list = %[[2, 1]]

In[12]:= tableGenAltMD[i,{i,5},#<3&]
Out[12]= {1,2}

Table[If[i < 3, i, Hold[Sequence[]]] // ReleaseHold, {i, 5}]

Unprotect[If];
SetAttributes[If, SequenceHold];

Table[If[i < 3, i, Sequence[]], {i, 5}]