Table[D[x*Log[2+x],{x,n}],{n,1,5}]