k=13;
t1={Table[a[i],{i,1,k}]};
t2=Table[{a[i],0,1},{i,1,k}];
t=Join[t1,t2];
t=Apply[Table,t];
tt=Flatten[t,k-1];
b=1+1.05 I;
bb=Table[b^i,{i,0,k-1}];
w=Table[Sum[bb[[i]] tt[[j,i]],{i,1,k}],{j,1,2^k}];
ww=Transpose[{Re[w],Im[w]}];
bild=ListPlot[ww,ImageSize->{400,300}];