Sum[Exp[I*n]^p, {n, -Infinity, Infinity}]