OFFSET
0,3
COMMENTS
The next term (a(9)) has 218 digits. - Harvey P. Dale, Sep 12 2016
FORMULA
a(n) = Denominator[2^n*Sum[1/k,{k,1,2^n}]]. a(n) = A027611[2^n].
MATHEMATICA
Denominator[Table[2^n*Sum[1/k, {k, 1, 2^n}], {n, 0, 10}]]
With[{nn=300}, Select[Denominator[Times@@@Thread[{Range[nn], HarmonicNumber[Range[nn]]}]], OddQ]] (* Harvey P. Dale, Sep 12 2016 *)
CROSSREFS
KEYWORD
frac,nonn
AUTHOR
Alexander Adamchuk, Jul 27 2006
STATUS
approved