det[A^3]=Apply[Times,Table[&lgr;[i]^3,{i,3}]]
     0