OFFSET
0,2
COMMENTS
The numerators are given in A274345, where also details and the first rationals are given.
The Mathematica program below gives the rationals r(n-1), n = 1..50.
FORMULA
MATHEMATICA
Table[SeriesCoefficient[Log[EllipticNomeQ[16 x]/x]/8, {x, 0, n}], {n, 1, 50}] // Denominator (* Vaclav Kotesovec, Jun 30 2016 *)
CROSSREFS
KEYWORD
nonn,easy,frac
AUTHOR
Wolfdieter Lang, Jun 30 2016
EXTENSIONS
More terms from Vaclav Kotesovec, Jun 30 2016
STATUS
approved