Sum[Exp[I*2Pi/n*2^k],{k,1,MultiplicativeOrder[2,n]}] for n=3