I am trying to find solutions to the well known equation: $$\sum\limits_{n=1}^{n=k} \frac{1}{n^s}=0$$
studied by Borwein et alia in the paper: http://www.cecm.sfu.ca/personal/pborwein/PAPERS/P172.pdf I don't understand much of the paper but I understood what equation they studied.
Now with this program below I have found that for certain values of the integer $k$ one can find one of the solutions to partial Riemann zeta function.
(*Mathematica 8 start*)Clear[nn, cc, s, x, y];
Print["k can be varied to any integer greater than or equal to 2:"]
k = 16;
cc = 4000;
s = 0;
Do[s = (2 I \[Pi]*(k - 1))/Log[k] +
N[Round[Log[1/(-Sum[1/n^s, {n, 1, k - 1}])]/Log[k]*10^120]/10^120,
120], {i, 1, cc}]
Print["s"]
s
Print["If the result below is zero, then s is a solution to the \
equation in the question."]
sumx = Sum[1/n^(s), {n, 1, k}]
(*end*)
So in the program if you read it I have put $k=16$. What is the pattern in the sequence of different values of $k$? For some values of $k$ it works, for others it does not.
The values:
$$k=4, k=5, k=7, k=8, k=10, k=11, k=16$$
work.
But the values:
$$k=3, k=6, k=9, k=12$$
don't work.
What is the pattern?