A385548 E.g.f. A(x) satisfies A(x) = 1 + Sum_{k>=1} k * x^k/k! * A(k*x).

1, 1, 4, 27, 340, 7185, 254046, 14579341, 1345796824, 196990674705, 45358607173690, 16288829003062341, 9064769868554283060, 7771093242706161635449, 10211642577081863563621990, 20477419392449457003138477885, 62420691099194078521450782932656

Offset

0,3

Links

Table of n, a(n) for n=0..16.

Formula

a(0) = 1; a(n) = Sum_{k=0..n-1} (n-k)^(k+1) * binomial(n,k) * a(k).

Prog

(PARI) a_vector(n) = my(v=vector(n+1)); v[1]=1; for(i=1, n, v[i+1]=sum(j=0, i-1, (i-j)^(j+1)*binomial(i, j)*v[j+1])); v;

Crossrefs

Cf. A385544.

Sequence in context: A304654 A203202 A392532 * A320961 A239726 A058155

Adjacent sequences: A385545 A385546 A385547 * A385549 A385550 A385551

Keyword

nonn

Author

Seiichi Manyama, Jul 03 2025

Status

approved