Skip to main content
Post Closed as "Not suitable for this site" by Wolfgang, András Bátkai, Chris Godsil, Alexey Ustinov, Myshkin
edited tags
Source Link
Mats Granvik
  • 1.2k
  • 1
  • 12
  • 21

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?

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?

I am trying to find solutions to the well known equation: $$\sum\limits_{n=1}^{n=k} \frac{1}{n^s}=0$$

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?

Source Link
Mats Granvik
  • 1.2k
  • 1
  • 12
  • 21

For which integer values of $k$ can we find one solution to the equation $\sum\limits_{n=1}^{n=k} \frac{1}{n^s}=0$ by iteration?

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?