Akm[k_,m_]:=Piecewise[{{0, k != 5 || (m != -5 && m != 5)}}, I*B[5, 5]]