[go: up one dir, main page]

login
A341185
a(n) = Sum_{k=0..n} k^n * k! * binomial(n,k)^2.
1
1, 1, 12, 315, 15088, 1141625, 124989156, 18659050795, 3638892086208, 897534389449809, 272981684150035300, 100316132701760094251, 43802068733570039425776, 22409162143775383385763913, 13274030650412266312507931652
OFFSET
0,3
MATHEMATICA
a[0] = 1; a[n_] := Sum[k^n * k! * Binomial[n, k]^2, {k, 0, n}]; Array[a, 15, 0] (* Amiram Eldar, Feb 06 2021 *)
PROG
(PARI) a(n) = sum(k=0, n, k^n*k!*binomial(n, k)^2);
CROSSREFS
KEYWORD
nonn
AUTHOR
Seiichi Manyama, Feb 06 2021
STATUS
approved