%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