Table[FindRoot[1+1/2^(s)==0,{s,5*n*I}], {n, 1, 30}]