|
|
A331335
|
|
L.g.f.: log(Sum_{k>=0} k! * x^k / Product_{j=1..k} (1 - j*x)).
|
|
1
|
|
|
1, 5, 31, 241, 2231, 23825, 287687, 3872961, 57514423, 934197425, 16480953127, 313919262625, 6422468800151, 140496324183185, 3273117681693191, 80916019512168321, 2115854823935820151, 58351931794643315825, 1692782510862560536807, 51533053881743794186081
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
FORMULA
|
exp(Sum_{n>=1} a(n) * x^n / n) = g.f. of A000670.
|
|
MATHEMATICA
|
nmax = 20; CoefficientList[Series[Log[Sum[k! x^k/Product[1 - j x, {j, 1, k}], {k, 0, nmax}]], {x, 0, nmax}], x] Range[0, nmax] // Rest
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|