tr[A^3]=Apply[Plus,Table[&lgr;[i]^3,{i,3}]]
     117