OFFSET
1,3
FORMULA
G.f. for fractions: x / (1 + log(1 - x) / (1 - x)). - Ilya Gutkovskiy, Sep 01 2021
EXAMPLE
1, 1, 5/2, 35/6, 27/2, 156/5, 25951/360, 419681/2520, 646379/1680, 13439609/15120, 5544403/2700, 56359019/11880, ...
MATHEMATICA
f[l_List] := Block[{n = Length[l] + 1}, Append[l, Sum[l[[n - k]]*HarmonicNumber[k], {k, n - 1}]]]; Numerator[Nest[f, {1}, 20]] (* Ray Chandler, Feb 12 2007 *)
CROSSREFS
KEYWORD
nonn,frac
AUTHOR
Leroy Quet, Feb 11 2007
EXTENSIONS
Extended by Ray Chandler, Feb 12 2007
STATUS
approved