Length[Gen[#]] & /@ Rg[4]

{3, 6, 12, 12}

Converted by Mathematica  (October 16, 2002)