Program gt;
var n,q,i:longint;
begin
read(n);
read(q);
{q-начальное значение числа а в твоем примере q=2}
{n-в общем случае; n- количество последовательностей}
write(q,' ');
for i:=2 to n do
begin
q:=q*2;
write(q,' ');
end;
end.
А если придумать то так как каждое число равно привидушему числу умноженному на 2 то просто возмем любое число и будем умножат ее на 2
пример:
2 4 6 8 ...
3 6 12 24..
4 8 16 32 ...