Manipulate[
sol = Solve[N[BernoulliB[x, z] == 0, 10]];
ListPlot[{{Re@z, Im@z} /. sol}] , {{x, 10}, 1, 100, 1}]
george2079
- 39.1k
- 1
- 44
- 111