login
Write n! partition(n) times.
2

%I #17 Jul 09 2023 18:15:35

%S 1,1,2,2,6,6,6,24,24,24,24,24,120,120,120,120,120,120,120,720,720,720,

%T 720,720,720,720,720,720,720,720,5040,5040,5040,5040,5040,5040,5040,

%U 5040,5040,5040,5040,5040,5040,5040,5040,40320,40320,40320,40320,40320,40320

%N Write n! partition(n) times.

%e for n = 0, 1, 2, 3, ... partition(n) (A000041) begins 1,1,2,3,5,7,11,15,... therefore Triangle begins:

%e 1;

%e 1;

%e 2, 2;

%e 6, 6, 6;

%e 24, 24, 24, 24, 24;

%e ...

%t Table[PadRight[{},PartitionsP[n],n!],{n,10}]//Flatten (* _Harvey P. Dale_, Apr 05 2020 *)

%Y Cf. A000041 (shape sequence), A000142, A053529 (row sums), A066186, A036042 (write n partition(n) times).

%K easy,tabf,nonn

%O 0,3

%A _Alford Arnold_, Jun 15 2010

%E More terms from _R. J. Mathar_, Jun 19 2010

%E Name clarified by _N. J. A. Sloane_, Apr 05 2020