A357479 a(n) = (n!/6) * Sum_{k=0..n-3} 1/k!.

0, 0, 0, 1, 8, 50, 320, 2275, 18256, 164388, 1644000, 18084165, 217010200, 2821132886, 39495860768, 592437911975, 9479006592160, 161143112067400, 2900576017214016, 55110944327067273, 1102218886541346600, 23146596617368279930, 509225125582102160000

Offset

0,5

Links

Seiichi Manyama, Table of n, a(n) for n = 0..450

Formula

a(n) = n! * Sum_{k=0..n} binomial(k,3)/k!.

a(0) = 0; a(n) = n * a(n-1) + binomial(n,3).

E.g.f.: x^3/6 * exp(x)/(1-x).

G.f.: (1/6) * Sum_{k>=3} k! * x^k/(1-x)^(k+1).

Mathematica

Table[n!/6 Sum[1/k!, {k, 0, n-3}], {n, 0, 30}] (* Harvey P. Dale, Apr 02 2023 *)

Prog

(PARI) a(n) = n!/6*sum(k=0, n-3, 1/k!);
(PARI) a(n) = n!*sum(k=0, n, binomial(k, 3)/k!);
(PARI) my(N=30, x='x+O('x^N)); concat([0, 0, 0], Vec(serlaplace(x^3/6*exp(x)/(1-x))))
(PARI) my(N=30, x='x+O('x^N)); concat([0, 0, 0], Vec(sum(k=3, N, k!*x^k/(1-x)^(k+1))/6))

Crossrefs

Column k=3 of A073107.

Cf. A000522, A007526, A038155, A357480.

Cf. A000292, A000449.

Sequence in context: A221478 A287812 A180029 * A133129 A103458 A339687

Adjacent sequences: A357476 A357477 A357478 * A357480 A357481 A357482

Keyword

nonn,easy

Author

Seiichi Manyama, Sep 30 2022

Status

approved