A160564 - OEIS

%I #11 Sep 03 2023 21:04:11

%S 1,1,4,16,80,420,2592,17352,132240,1117200,10559040,110276352,

%T 1268640000,15923168640,216767367936,3178157607936,49918919122944,

%U 835744605027840,14852897362759680,279172076525153280,5531978038112409600,115241366146485749760

%N Sum of products of factorials of parts times the factorial of the number of parts in all integer partitions of n.

%C Take each Ferrers diagram of the partitions of n, label the cells within each row and then linearly order the rows.

%H Alois P. Heinz, <a href="/A160564/b160564.txt">Table of n, a(n) for n = 0..450</a>

%e a(3) = 16 because the partitions of 3 can be so ordered in 16 ways: 3 (6); 2,1 (4); 1,1,1 (6).

%p b:= proc(n, i, p) option remember; `if`(n=0, p!, `if`(i<1, 0,

%p       add(b(n-i*j, i-1, p+j)*i!^j, j=0..n/i)))

%p     end:

%p a:= n-> b(n$2, 0):

%p seq(a(n), n=0..23);  # _Alois P. Heinz_, Oct 02 2017

%t p = Table[Map[Function[n, Apply[Times, n! ]], Partitions[i]], {i, 0, 20}]; q = Table[Map[Function[n, Length[n]! ], Partitions[i]], {i, 0, 20}]; Map[Function[n, Apply[Plus, n]], p*q]

%Y Cf. A101880, A077365, A126787.

%K nonn

%O 0,3

%A _Geoffrey Critzer_, May 19 2009