OFFSET
0,1
COMMENTS
Denominators are powers of 2 since EllipticK(x) = Pi * Sum_{n>=0} 2^(-4*n-1) * binomial(2*n,n)^2 * x^n and EllipticE(x) = Pi * Sum_{n>=0} 2^(-4*n-1) (-1)^(2*n) * binomial(2*n,n)^2 /(-2*n+1) * x^n.
LINKS
David P. Roberts and Fernando Rodriguez Villegas, Hypergeometric Motives, Notices of the American Mathematical Society, Vol. 69, No. 6 (2022), pp. 914-929; arXiv preprint, arXiv:2109.00027 [math.AG], 2021. See eq. (1.2), p. 914.
FORMULA
a(n) = 2^(1+4*n-2*w(n)) with w(n) = A000120(n) = number of 1's in binary expansion of n.
MATHEMATICA
a[n_] := 2^(4*n - 2*DigitCount[n, 2, 1] + 1); Array[a, 20, 0] (* Amiram Eldar, Aug 03 2023 *)
PROG
(PARI) a(n)=my(s=n); while(n>>=1, s+=n); 2<<(2*s) \\ Charles R Greathouse IV, Apr 07 2012
CROSSREFS
KEYWORD
nonn,frac
AUTHOR
Wouter Meeussen, revised Jan 03 2001
STATUS
approved