OFFSET
0,2
COMMENTS
Row sums of A127749.
Conjecture: a(n) mod 2 gives Fredholm-Rueppel sequence A036987.
The conjecture is true at least up to n=2048. - Antti Karttunen, Sep 29 2018
LINKS
Antti Karttunen, Table of n, a(n) for n = 0..2048
MATHEMATICA
A[n_, k_] := If[k <= n <= 2k, 1/(2n+1), 0];
Total /@ Inverse[Array[A, {128, 128}, {0, 0}]] (* Jean-François Alcover, Feb 10 2021 *)
PROG
(PARI)
up_to = 128;
A127750aux(n, k) = if(k<=n, if(n<=(2*k), 1/(n+n+1), 0), 0);
A127750list(up_to) = { my(m1=matrix(up_to, up_to, n, k, A127750aux(n-1, k-1)), m2 = matsolve(m1, matid(up_to)), v = vector(up_to)); for(n=1, up_to, v[n] = vecsum(m2[n, ])); (v); };
v127750 = A127750list(1+up_to);
A127750(n) = v127750[1+n]; \\ Antti Karttunen, Sep 29 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Paul Barry, Jan 28 2007
EXTENSIONS
More terms from Antti Karttunen, Sep 29 2018
STATUS
approved