k = 2;
l = 1;
m = 4;
CoefficientList[Normal[Series[u^k*(Log[u])^l,{u,1,m}]],u]