Improper ends

These ends are graphs and hence regular and embedded, but not proper.

n=4;
ω[z_]:={1,I,1/z^n/n^n}

f[r_,t_]=ComplexExpand[Re[Integrate[ω[z],z]/.z->r E^(I t)],TargetFunctions->{Re,Im}]

ParametricPlot3D[f[r,t],{r,.1,1},{t,0,2Pi},PlotRange->All,AxesLabel->{x,y,z}]