[go: up one dir, main page]

login
A079210
Positive divisors of n!, listed in increasing order for each n, a new row for each n.
41
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,4
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.
LINKS
Andrew Howroyd, Table of n, a(n) for n = 0..1979 (rows 0..12)
EXAMPLE
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;
...
MATHEMATICA
Flatten[Table[Divisors[n!], {n, 6}]] (* Harvey P. Dale, Mar 13 2011 *)
PROG
(Magma) [Divisors(Factorial(n)): n in [0..10]]; // Vincenzo Librandi, Jun 19 2015
(PARI) tabf(nn) = for (n=0, nn, print(divisors(n!))); \\ Michel Marcus, Jun 19 2015
CROSSREFS
Cf. A027423 (row lengths), A062569 (row sums), A070861.
Sequence in context: A057192 A078777 A135938 * A070861 A277566 A261144
KEYWORD
nonn,tabf
AUTHOR
Christian van den Bosch (cjb(AT)cjb.ie), Jan 03 2003
EXTENSIONS
a(0)=1 prepended by Andrew Howroyd, Jan 26 2022
STATUS
approved