OFFSET
0,2
LINKS
J. Arias de Reyna, An infinitely differentiable function with compact support:Definition and properties, arXiv:1702.05442 [math.CA], 2017.
J. Arias de Reyna, Arithmetic of the Fabius function, arXiv:1702.06487 [math.NT], 2017.
FORMULA
Recurrence c(0)=1, c(n)=Sum_{k=0..n-1}(binomial(2n+1,2k) c_k)/((2n+1)*(2^(2n)-1)), where c(n)=A287936(n)/a(n).
EXAMPLE
A287936(n)/a(n) = 1/1, 1/9, 19/675, 583/59535, ...
MATHEMATICA
c[0] = 1;
c[n_] := c[n] =
Sum[Binomial[2 n + 1, 2 k] c[k], {k, 0, n - 1}]/((2 n + 1) (2^(2 n) - 1));
Table[Denominator[c[n]], {n, 0, 30}]
CROSSREFS
KEYWORD
nonn,frac
AUTHOR
Juan Arias-de-Reyna, Jun 03 2017
STATUS
approved