OFFSET
1,2
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..500
MATHEMATICA
With[{nn = 100}, t = Denominator[CoefficientList[Series[x/Log[1 + x], {x, 0, nn}], x] Range[0, nn]!]]; Take[t, {3, -1, 2}]/6 (* T. D. Noe, Mar 28 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Takao Komatsu, Mar 28 2013
EXTENSIONS
More terms from T. D. Noe, Mar 28 2013
STATUS
approved