This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A178801 #17 Jul 09 2023 18:15:35 %S A178801 1,1,2,2,6,6,6,24,24,24,24,24,120,120,120,120,120,120,120,720,720,720, %T A178801 720,720,720,720,720,720,720,720,5040,5040,5040,5040,5040,5040,5040, %U A178801 5040,5040,5040,5040,5040,5040,5040,5040,40320,40320,40320,40320,40320,40320 %N A178801 Write n! partition(n) times. %e A178801 for n = 0, 1, 2, 3, ... partition(n) (A000041) begins 1,1,2,3,5,7,11,15,... therefore Triangle begins: %e A178801 1; %e A178801 1; %e A178801 2, 2; %e A178801 6, 6, 6; %e A178801 24, 24, 24, 24, 24; %e A178801 ... %t A178801 Table[PadRight[{},PartitionsP[n],n!],{n,10}]//Flatten (* _Harvey P. Dale_, Apr 05 2020 *) %Y A178801 Cf. A000041 (shape sequence), A000142, A053529 (row sums), A066186, A036042 (write n partition(n) times). %K A178801 easy,tabf,nonn %O A178801 0,3 %A A178801 _Alford Arnold_, Jun 15 2010 %E A178801 More terms from _R. J. Mathar_, Jun 19 2010 %E A178801 Name clarified by _N. J. A. Sloane_, Apr 05 2020