num = 1;
primepi = 1;
res = Table[
   If[EvenQ[num],
    num /= 2;
    ,
    num += Prime[primepi];
    primepi++;
    ];
   num
   ,
   {99}
   ];
PrependTo[res, 1];
Partition[res, 10] // Grid

Table[
 num = 1;
 primepi = 1;
 Do[
  If[EvenQ[num],
    num /= 2;
    ,
    num += Prime[primepi];
    primepi++;
    ];
  ,
  {j}
  ];
 {num, Prime[primepi - 1]}
 ,
 {j, {999, 9999, 99999, 999999, 9999999, 99999999}}
]