Akm[k_,m_]:=Piecewise[{{(Ea2 + 3*(Et1 + Et2))/7, k == 0 && m == 0}, {0, (k != 4 && k != 6) || (m != -4 && m != 0 && m != 4)}, {(-3*Sqrt[5/14]*(2*Ea2 + Et1 - 3*Et2))/4, k == 4 && (m == -4 || m == 4)}, {(-3*(2*Ea2 + Et1 - 3*Et2))/4, k == 4 && m == 0}, {(-39*(4*Ea2 - 9*Et1 + 5*Et2))/(40*Sqrt[14]), k == 6 && (m == -4 || m == 4)}}, (39*(4*Ea2 - 9*Et1 + 5*Et2))/280]