A276507 E.g.f.: exp(10*(exp(x)-1)).

1, 10, 110, 1310, 16710, 226510, 3243110, 48807310, 768988710, 12641850510, 216229931110, 3838516103310, 70569453740710, 1341065189434510, 26298323383739110, 531365183231239310, 11047184452086972710, 236029124143560378510, 5176602413033115467110

Offset: 0

Author

Vincenzo Librandi, Sep 19 2016

Keywords

• nonn

Comments

Number of ways of placing n labeled balls into n unlabeled (but 10-colored) boxes.

Links

• Alois P. Heinz, Table of n, a(n) for n = 0..510

Crossrefs

Cf. similar sequences listed in A276506.

Programs

Maple

a:= proc(n) option remember; `if`(n=0, 1,
      (1+add(binomial(n-1, k-1)*a(n-k), k=1..n-1))*10)
    end:
seq(a(n), n=0..25);  # Alois P. Heinz, Sep 25 2017

Mathematica

Table[BellB[n, 10], {n, 0, 30}]

PARI

my(x='x+O('x^99)); Vec(serlaplace(exp(10*(exp(x)-1)))) \\ Altug Alkan, Sep 19 2016

Formula

G.f.: A(x) satisfies 10*(x/(1-x))*A(x/(1-x)) = A(x)-1; ten times the binomial transform equals this sequence shifted one place left.