A047816 Erroneous version of A095845.
1, 2, 10, 5, 230, 46, 35
Offset: 0
This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
1, 1/2, 3/10, 1/5, 33/230, 5/46, 75/874, 611/8740, 97653/1673710, ...
seq(numer(1/(n+1)-sum(binomial(n,2*k)*(2^(2*k-1)-1)*bernoulli(2*k)/(3*2^(2*k-1)-1)/(n-2*k+1),k = 1 .. floor(1/2*n))),n=1..18); # Emeric Deutsch, Feb 22 2005
a[n_] := Numerator[ 1/(n+1) - Sum[Binomial[n, 2 k]*Floor[2^(2k - 1) - 1]*BernoulliB[2k]/Floor[(3*2^(2k - 1) - 1)*(n - 2k + 1)], {k, 1, Floor[n/2]}]]; Table[a[n], {n, 0, 18}] (* Jean-François Alcover, Oct 23 2012, after Emeric Deutsch *) f[0] = 1; f[1] = 1/2; f[n_] := f[n] = (1/(3*2^n - 2))*(2 + Sum[Binomial[n, k]*f[k], {k, 1, n - 1}]); Numerator[Array[f, 20, 0]] (* Amiram Eldar, Jan 26 2024 *)
I(0) is obviously 1/2 by symmetry.
for n from 0 to 20 do CI[n] := 1/(2*(n+1)) + 1/(2*(3^(n+1)-1)) * add(binomial(n,i)*2^(n-i)*CI[i],i=0..n-1); end do;
I(0) is obviously 1/2 by symmetry.
0.750387082164198514795...
3.36465072810092516083893496289...