|
|
A361828
|
|
a(0) = 1; a(n+1) = Sum_{k=0..n} k^k * a(n-k).
|
|
0
|
|
|
1, 1, 2, 7, 40, 338, 3841, 54821, 939335, 18744832, 426390069, 10881017916, 307686450208, 9546443638409, 322375619648549, 11769010007246745, 461834905502223078, 19384809864763869231, 866564718107731746860, 41102477939620052536314
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
FORMULA
|
G.f.: 1 / (1 - x * Sum_{k>=0} (k*x)^k).
|
|
MATHEMATICA
|
nmax = 20; CoefficientList[Series[1/(1 - x - x*Sum[(k*x)^k, {k, 1, nmax}]), {x, 0, nmax}], x] (* Vaclav Kotesovec, Mar 26 2023 *)
|
|
PROG
|
(PARI) my(N=20, x='x+O('x^N)); Vec(1/(1-x*(sum(k=0, N, (k*x)^k))))
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|