ReplaceAll[Table[D[x^x,{x,n}],{n,1,8}],x->1]