A079210 Positive divisors of n!, listed in increasing order for each n, a new row for each n.

1, 1, 1, 2, 1, 2, 3, 6, 1, 2, 3, 4, 6, 8, 12, 24, 1, 2, 3, 4, 5, 6, 8, 10, 12, 15, 20, 24, 30, 40, 60, 120, 1, 2, 3, 4, 5, 6, 8, 9, 10, 12, 15, 16, 18, 20, 24, 30, 36, 40, 45, 48, 60, 72, 80, 90, 120, 144, 180, 240, 360, 720

Offset: 0

Author

Christian van den Bosch (cjb(AT)cjb.ie), Jan 03 2003

Keywords

• nonn
• tabf

Comments

Elements per row: 1,1,2,4,8,16,30,... (given by A027423, number of positive divisors of n!)

This sequence is the same as A070861 for the first 38 terms, but differs thereafter.

Examples

			First few rows are:
1;
1;
1,2;
1,2,3,6;
1,2,3,4,6,8,12,24;
1,2,3,4,5,6,8,10,12,15,20,24,30,40,60,120;
...
		

Links

• Andrew Howroyd, Table of n, a(n) for n = 0..1979 (rows 0..12)

Crossrefs

Cf. A027423 (row lengths), A062569 (row sums), A070861.

Programs

Magma

[Divisors(Factorial(n)): n in [0..10]]; // Vincenzo Librandi, Jun 19 2015

Mathematica

Flatten[Table[Divisors[n!],{n,6}]]  (* Harvey P. Dale, Mar 13 2011 *)

PARI

tabf(nn) = for (n=0, nn, print(divisors(n!))); \\ Michel Marcus, Jun 19 2015

Extensions

a(0)=1 prepended by Andrew Howroyd, Jan 26 2022