Aha! Very interesting results. I have taught number theory but never studied the primes in depth.
Your series is quite different than Fermat’s. His grows much faster:
Your series is quite different than Fermat’s. His grows much faster:
In[]:=
d=1;ListPlot[Table[(-1)-(-d+),{n,2,50}]]
n
2
8
n
4
n
Out[]=
... and in further comparison, I wonder if this ever occurs:
(n∈) ∧ (n>1) ∧ (m∈) ∧ (m>1) ∧ (d ∈ {1,3,7,9}) :-1 +-d ??
(n∈) ∧ (n>1) ∧ (m∈) ∧ (m>1) ∧ (d ∈ {1,3,7,9}) :
n
2
8
m
4
m
I was also curious about your function f[n]. It contains the 2 lines
I was also curious about your function f[n]. It contains the 2 lines
In[]:=
y=x;a=((x+y/2+x-y-1)/(x-y-1))-((x+y))/(x+y)/2;
which simplify to
a=(1-3x);
1
2
Is there a reason to keep the formula containing y?