A337107 -id:A337107 - cp's OEIS frontend

A251683 Irregular triangular array: T(n,k) is the number of ordered factorizations of n with exactly k factors, n >= 1, 1 <= k <= A086436(n).

1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 2, 1, 1, 1, 1, 2, 1, 1, 4, 3, 1, 1, 2, 1, 2, 1, 3, 3, 1, 1, 1, 4, 3, 1, 1, 4, 3, 1, 2, 1, 2, 1, 1, 6, 9, 4, 1, 1, 1, 2, 1, 2, 1, 1, 4, 3, 1, 1, 6, 6, 1, 1, 4, 6, 4, 1, 1, 2, 1, 2, 1, 2, 1, 7, 12, 6, 1, 1, 2, 1, 2, 1, 6, 9, 4

Offset: 1

Geoffrey Critzer, Dec 06 2014

Row sums = A074206.
Row lengths give A086436.
T(n,2) = A070824(n).
T(n,3) = A200221(n).
Sum_{k>=1} k*T(n,k) = A254577.
For all n > 1,  Sum_{k=1..A086436(n)} (-1)^k*T(n,k) = A008683(n). - Geoffrey Critzer, May 25 2018
From Gus Wiseman, Aug 21 2020: (Start)
Also the number of strict length k + 1 chains of divisors from n to 1. For example, row n = 24 counts the following chains:
  24/1  24/2/1   24/4/2/1   24/8/4/2/1
        24/3/1   24/6/2/1   24/12/4/2/1
        24/4/1   24/6/3/1   24/12/6/2/1
        24/6/1   24/8/2/1   24/12/6/3/1
        24/8/1   24/8/4/1
        24/12/1  24/12/2/1
                 24/12/3/1
                 24/12/4/1
                 24/12/6/1
(End)

			Triangle T(n,k) begins:
  1;
  1;
  1;
  1, 1;
  1;
  1, 2;
  1;
  1, 2, 1;
  1, 1;
  1, 2;
  1;
  1, 4, 3;
  1;
  1, 2;
  1, 2;
  ...
There are 8 ordered factorizations of the integer 12: 12, 6*2, 4*3, 3*4, 2*6, 3*2*2, 2*3*2, 2*2*3.  So T(12,1)=1, T(12,2)=4, and T(12,3)=3.

Alois P. Heinz, Rows n = 1..4000, flattened
Jeffery Kline, On the eigenstructure of sparse matrices related to the prime number theorem, Linear Algebra and its Applications (2020) Vol. 584, 409-430.
Arnold Knopfmacher and Michael Mays, Ordered and Unordered Factorizations of Integers, The Mathematica Journal, Vol 10 (1).
Eric Weisstein's World of Mathematics, Ordered Factorization

Cf. A008683, A070824, A200221, A254577.
A008480 gives rows ends.
A086436 gives row lengths.
A124433 is the same except for signs and zeros.
A334996 is the same except for zeros.
A337107 is the restriction to factorial numbers (but with zeros).
A000005 counts divisors.
A001055 counts factorizations.
A001222 counts prime factors with multiplicity.
A074206 counts strict chains of divisors from n to 1.
A067824 counts strict chains of divisors starting with n.
A122651 counts strict chains of divisors summing to n.
A167865 counts strict chains of divisors > 1 summing to n.
A253249 counts strict nonempty chains of divisors of n.
A337071 counts strict chains of divisors starting with n!.
A337256 counts strict chains of divisors of n.
Cf. A001221, A002033, A124010, A167865, A337070, A337105.

with(numtheory):
b:= proc(n) option remember; expand(x*(1+
      add(b(n/d), d=divisors(n) minus {1, n})))
    end:
T:= n-> (p-> seq(coeff(p, x, i), i=1..degree(p)))(b(n)):
seq(T(n), n=1..100);  # Alois P. Heinz, Dec 07 2014

f[1] = {{}};
f[n_] := f[n] =
  Level[Table[
    Map[Prepend[#, d] &, f[n/d]], {d, Rest[Divisors[n]]}], {2}];
Prepend[Map[Select[#, # > 0 &] &,
  Drop[Transpose[
    Table[Map[Count[#, k] &,
      Map[Length, Table[f[n], {n, 1, 40}], {2}]], {k, 1, 10}]],
   1]],{1}] // Grid
(* Second program: *)
b[n_] := b[n] = x(1+Sum[b[n/d], {d, Divisors[n]~Complement~{1, n}}]);
T[n_] := CoefficientList[b[n]/x, x];
Array[T, 100] // Flatten (* Jean-François Alcover, Nov 17 2020, after Alois P. Heinz *)

Dirichlet g.f.: 1/(1 - y*(zeta(x)-1)).

A334996 Irregular triangle read by rows: T(n, m) is the number of ways to distribute Omega(n) objects into precisely m distinct boxes, with no box empty (Omega(n) >= m).

Original entry on oeis.org

0, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 2, 0, 1, 0, 1, 2, 1, 0, 1, 1, 0, 1, 2, 0, 1, 0, 1, 4, 3, 0, 1, 0, 1, 2, 0, 1, 2, 0, 1, 3, 3, 1, 0, 1, 0, 1, 4, 3, 0, 1, 0, 1, 4, 3, 0, 1, 2, 0, 1, 2, 0, 1, 0, 1, 6, 9, 4, 0, 1, 1, 0, 1, 2, 0, 1, 2, 1, 0, 1, 4, 3, 0, 1, 0, 1, 6, 6

Offset: 1

Stefano Spezia, May 19 2020

n is the specification number for a set of Omega(n) objects (see Theorem 3 in Beekman's article).
The specification number of a multiset is also called its Heinz number. - Gus Wiseman, Aug 25 2020
From Gus Wiseman, Aug 25 2020: (Start)
For n > 1, T(n,k) is also the number of ordered factorizations of n into k factors > 1. For example, row n = 24 counts the following ordered factorizations (the first column is empty):
  24  3*8   2*2*6  2*2*2*3
      4*6   2*3*4  2*2*3*2
      6*4   2*4*3  2*3*2*2
      8*3   2*6*2  3*2*2*2
      12*2  3*2*4
      2*12  3*4*2
            4*2*3
            4*3*2
            6*2*2
For n > 1, T(n,k) is also the number of strict length-k chains of divisors from n to 1. For example, row n = 36 counts the following chains (the first column is empty):
  36/1  36/2/1   36/4/2/1   36/12/4/2/1
        36/3/1   36/6/2/1   36/12/6/2/1
        36/4/1   36/6/3/1   36/12/6/3/1
        36/6/1   36/9/3/1   36/18/6/2/1
        36/9/1   36/12/2/1  36/18/6/3/1
        36/12/1  36/12/3/1  36/18/9/3/1
        36/18/1  36/12/4/1
                 36/12/6/1
                 36/18/2/1
                 36/18/3/1
                 36/18/6/1
                 36/18/9/1
(End)

			The triangle T(n, m) begins
  n\m| 0     1     2     3     4
  ---+--------------------------
   1 | 0
   2 | 0     1
   3 | 0     1
   4 | 0     1     1
   5 | 0     1
   6 | 0     1     2
   7 | 0     1
   8 | 0     1     2     1
   9 | 0     1     1
  10 | 0     1     2
  11 | 0     1
  12 | 0     1     4     3
  13 | 0     1
  14 | 0     1     2
  15 | 0     1     2
  16 | 0     1     3     3     1
  ...
From _Gus Wiseman_, Aug 25 2020: (Start)
Row n = 36 counts the following distributions of {1,1,2,2} (the first column is empty):
  {1122}  {1}{122}  {1}{1}{22}  {1}{1}{2}{2}
          {11}{22}  {1}{12}{2}  {1}{2}{1}{2}
          {112}{2}  {11}{2}{2}  {1}{2}{2}{1}
          {12}{12}  {1}{2}{12}  {2}{1}{1}{2}
          {122}{1}  {12}{1}{2}  {2}{1}{2}{1}
          {2}{112}  {1}{22}{1}  {2}{2}{1}{1}
          {22}{11}  {12}{2}{1}
                    {2}{1}{12}
                    {2}{11}{2}
                    {2}{12}{1}
                    {2}{2}{11}
                    {22}{1}{1}
(End)

Richard Beekman, An Introduction to Number-Theoretic Combinatorics, Lulu Press 2017.

Stefano Spezia, First 3000 rows of the table, flattened
Richard Beekman, A General Solution of the Ferris Wheel Problem.

Cf. A000007 (1st column), A000012 (2nd column), A001222 (Omega function), A002033 (row sums shifted left), A007318.
A008480 gives rows ends.
A073093 gives row lengths.
A074206 gives row sums.
A112798 constructs the multiset with each specification number.
A124433 is a signed version.
A251683 is the version with zeros removed.
A334997 is the non-strict version.
A337107 is the restriction to factorial numbers.
A001055 counts factorizations.
A067824 counts strict chains of divisors starting with n.
A122651 counts strict chains of divisors summing to n.
A167865 counts strict chains of divisors > 1 summing to n.
A253249 counts strict chains of divisors.
A337105 counts strict chains of divisors from n! to 1.
Cf. A007425, A008683, A056239, A124010, A167865, A317144, A319001.

tau[n_,k_]:=If[n==1,1,Product[Binomial[Extract[Extract[FactorInteger[n],i],2]+k,k],{i,1,Length[FactorInteger[n]]}]]; (* A334997 *)
T[n_,m_]:=Sum[(-1)^k*Binomial[m,k]*tau[n,m-k-1],{k,0,m-1}]; Table[T[n,m],{n,1,30},{m,0,PrimeOmega[n]}]//Flatten
(* second program *)
chc[n_]:=If[n==1,{{}},Prepend[Join@@Table[Prepend[#,n]&/@chc[d],{d,DeleteCases[Divisors[n],1|n]}],{n}]]; (* change {{}} to {} if a(1) = 0 *)
Table[Length[Select[chc[n],Length[#]==k&]],{n,30},{k,0,PrimeOmega[n]}] (* Gus Wiseman, Aug 25 2020 *)

TT(n, k) = if (k==0, 1, sumdiv(n, d, TT(d, k-1))); \\ A334997
T(n, m) = sum(k=0, m-1, (-1)^k*binomial(m, k)*TT(n, m-k-1));
tabf(nn) = {for (n=1, nn, print(vector(bigomega(n)+1, k, T(n, k-1))););} \\ Michel Marcus, May 20 2020

T(n, m) = Sum_{k=0..m-1} (-1)^k*binomial(m,k)*tau_{m-k-1}(n), where tau_s(r) = A334997(r, s) (see Theorem 3, Lemma 1 and Lemma 2 in Beekman's article).
Conjecture: Sum_{m=0..Omega(n)} T(n, m) = A002033(n-1) for n > 1.
The above conjecture is true since T(n, m) is also the number of ordered factorizations of n into m factors (see Comments) and A002033(n-1) is the number of ordered factorizations of n. - Stefano Spezia, Aug 21 2025

A163767 a(n) = tau_{n}(n) = number of ordered n-factorizations of n.

Original entry on oeis.org

1, 2, 3, 10, 5, 36, 7, 120, 45, 100, 11, 936, 13, 196, 225, 3876, 17, 3078, 19, 4200, 441, 484, 23, 62400, 325, 676, 3654, 11368, 29, 27000, 31, 376992, 1089, 1156, 1225, 443556, 37, 1444, 1521, 459200, 41, 74088, 43, 43560, 46575, 2116, 47, 11995200, 1225

Offset: 1

Paul D. Hanna, Aug 04 2009

nonn

Also the number of length n - 1 chains of divisors of n. - Gus Wiseman, May 07 2021

			Successive Dirichlet self-convolutions of the all 1's sequence begin:
(1),1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,... (A000012)
1,(2),2,3,2,4,2,4,3,4,2,6,2,4,4,5,... (A000005)
1,3,(3),6,3,9,3,10,6,9,3,18,3,9,9,15,... (A007425)
1,4,4,(10),4,16,4,20,10,16,4,40,4,16,16,35,... (A007426)
1,5,5,15,(5),25,5,35,15,25,5,75,5,25,25,70,... (A061200)
1,6,6,21,6,(36),6,56,21,36,6,126,6,36,36,126,... (A034695)
1,7,7,28,7,49,(7),84,28,49,7,196,7,49,49,210,... (A111217)
1,8,8,36,8,64,8,(120),36,64,8,288,8,64,64,330,... (A111218)
1,9,9,45,9,81,9,165,(45),81,9,405,9,81,81,495,... (A111219)
1,10,10,55,10,100,10,220,55,(100),10,550,10,100,... (A111220)
1,11,11,66,11,121,11,286,66,121,(11),726,11,121,... (A111221)
1,12,12,78,12,144,12,364,78,144,12,(936),12,144,... (A111306)
...
where the main diagonal forms this sequence.
From _Gus Wiseman_, May 07 2021: (Start)
The a(1) = 1 through a(5) = 5 chains of divisors:
  ()  (1)  (1/1)  (1/1/1)  (1/1/1/1)
      (2)  (3/1)  (2/1/1)  (5/1/1/1)
           (3/3)  (2/2/1)  (5/5/1/1)
                  (2/2/2)  (5/5/5/1)
                  (4/1/1)  (5/5/5/5)
                  (4/2/1)
                  (4/2/2)
                  (4/4/1)
                  (4/4/2)
                  (4/4/4)
(End)

Alois P. Heinz, Table of n, a(n) for n = 1..10000 (first 1000 terms from Enrique Pérez Herrero)

Main diagonal of A077592.
Diagonal n = k + 1 of the array A334997.
The version counting all multisets of divisors (not just chains) is A343935.
A000005 counts divisors.
A001055 counts factorizations (strict: A045778, ordered: A074206).
A001221 counts distinct prime factors.
A001222 counts prime factors with multiplicity.
A067824 counts strict chains of divisors starting with n.
A122651 counts strict chains of divisors summing to n.
A146291 counts divisors of n with k prime factors (with multiplicity).
A167865 counts strict chains of divisors > 1 summing to n.
A253249 counts nonempty strict chains of divisors of n.
A251683/A334996 count strict nonempty length-k divisor chains from n to 1.
A337255 counts strict length-k chains of divisors starting with n.
A339564 counts factorizations with a selected factor.
A343662 counts strict length-k chains of divisors (row sums: A337256).
Cf. A002033, A007425, A008480, A018818, A062319, A066959, A186972, A327527, A337105, A337107, A343658.
Cf. A060690.

Table[Times@@(Binomial[#+n-1,n-1]&/@FactorInteger[n][[All,2]]),{n,1,50}] (* Enrique Pérez Herrero, Dec 25 2013 *)

{a(n,m=n)=if(n==1,1,if(m==1,1,sumdiv(n,d,a(d,1)*a(n/d,m-1))))}

from math import prod, comb
from sympy import factorint
def A163767(n): return prod(comb(n+e-1,e) for e in factorint(n).values()) # Chai Wah Wu, Jul 05 2024

a(p) = p for prime p.
a(n) = n^k when n is the product of k distinct primes (conjecture).
a(n) = n-th term of the n-th Dirichlet self-convolution of the all 1's sequence.
a(2^n) = A060690(n). - Alois P. Heinz, Jun 12 2024

A337256 Number of strict chains of divisors of n.

Original entry on oeis.org

2, 4, 4, 8, 4, 12, 4, 16, 8, 12, 4, 32, 4, 12, 12, 32, 4, 32, 4, 32, 12, 12, 4, 80, 8, 12, 16, 32, 4, 52, 4, 64, 12, 12, 12, 104, 4, 12, 12, 80, 4, 52, 4, 32, 32, 12, 4, 192, 8, 32, 12, 32, 4, 80, 12, 80, 12, 12, 4, 176, 4, 12, 32, 128, 12, 52, 4, 32, 12, 52

Offset: 1

Gus Wiseman, Aug 23 2020

nonn

			The a(n) chains for n = 1, 2, 4, 6, 8 (empty chains shown as 0):
  0  0    0      0      0
  1  1    1      1      1
     2    2      2      2
     2/1  4      3      4
          2/1    6      8
          4/1    2/1    2/1
          4/2    3/1    4/1
          4/2/1  6/1    4/2
                 6/2    8/1
                 6/3    8/2
                 6/2/1  8/4
                 6/3/1  4/2/1
                        8/2/1
                        8/4/1
                        8/4/2
                        8/4/2/1

A067824 is the case of chains starting with n (or ending with 1).
A074206 is the case of chains from n to 1.
A253249 is the nonempty case.
A000005 counts divisors.
A001055 counts factorizations.
A001222 counts prime factors with multiplicity.
A074206 counts chains of divisors from n to 1.
A122651 counts chains of divisors summing to n.
A167865 counts chains of divisors > 1 summing to n.
A334996 appears to count chains of divisors from n to 1 by length.
A337070 counts chains of divisors starting with A006939(n).
A337071 counts chains of divisors starting with n!.
A337255 counts chains of divisors starting with n by length.
Cf. A001221, A002033, A008480, A124010, A251683, A337105, A337107.

stableSets[u_,Q_]:=If[Length[u]==0,{{}},With[{w=First[u]},Join[stableSets[DeleteCases[u,w],Q],Prepend[#,w]&/@stableSets[DeleteCases[u,r_/;r==w||Q[r,w]||Q[w,r]],Q]]]];
Table[Length[stableSets[Divisors[n],!(Divisible[#1,#2]||Divisible[#2,#1])&]],{n,10}]

a(n) = A253249(n) + 1.

A337255 Irregular triangle read by rows where T(n,k) is the number of strict length-k chains of divisors starting with n.

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 3, 2, 1, 1, 1, 3, 3, 1, 1, 2, 1, 1, 3, 2, 1, 1, 1, 5, 7, 3, 1, 1, 1, 3, 2, 1, 3, 2, 1, 4, 6, 4, 1, 1, 1, 1, 5, 7, 3, 1, 1, 1, 5, 7, 3, 1, 3, 2, 1, 3, 2, 1, 1, 1, 7, 15, 13, 4, 1, 2, 1, 1, 3, 2, 1, 3, 3, 1, 1, 5, 7, 3, 1, 1, 1

Offset: 1

Gus Wiseman, Aug 23 2020

			Sequence of rows begins:
     1: {1}           16: {1,4,6,4,1}
     2: {1,1}         17: {1,1}
     3: {1,1}         18: {1,5,7,3}
     4: {1,2,1}       19: {1,1}
     5: {1,1}         20: {1,5,7,3}
     6: {1,3,2}       21: {1,3,2}
     7: {1,1}         22: {1,3,2}
     8: {1,3,3,1}     23: {1,1}
     9: {1,2,1}       24: {1,7,15,13,4}
    10: {1,3,2}       25: {1,2,1}
    11: {1,1}         26: {1,3,2}
    12: {1,5,7,3}     27: {1,3,3,1}
    13: {1,1}         28: {1,5,7,3}
    14: {1,3,2}       29: {1,1}
    15: {1,3,2}       30: {1,7,12,6}
Row n = 24 counts the following chains:
  24  24/1   24/2/1   24/4/2/1   24/8/4/2/1
      24/2   24/3/1   24/6/2/1   24/12/4/2/1
      24/3   24/4/1   24/6/3/1   24/12/6/2/1
      24/4   24/4/2   24/8/2/1   24/12/6/3/1
      24/6   24/6/1   24/8/4/1
      24/8   24/6/2   24/8/4/2
      24/12  24/6/3   24/12/2/1
             24/8/1   24/12/3/1
             24/8/2   24/12/4/1
             24/8/4   24/12/4/2
             24/12/1  24/12/6/1
             24/12/2  24/12/6/2
             24/12/3  24/12/6/3
             24/12/4
             24/12/6

Alois P. Heinz, Rows n = 1..5000, flattened

A008480 gives rows ends.
A067824 gives row sums.
A073093 gives row lengths.
A334996 appears to be the case of chains ending with 1.
A337071 is the sum of row n!.
A000005 counts divisors.
A001055 counts factorizations.
A001222 counts prime factors with multiplicity.
A067824 counts chains of divisors starting with n.
A074206 counts chains of divisors from n to 1.
A122651 counts chains of divisors summing to n.
A167865 counts chains of divisors > 1 summing to n.
A251683 counts chains of divisors from n to 1 by length.
A253249 counts nonempty chains of divisors.
A337070 counts chains of divisors starting with A006939(n).
A337256 counts chains of divisors.
Cf. A001221, A002033, A124010, A124433, A337074, A337105, A337107.

b:= proc(n) option remember; expand(x*(1 +
      add(b(d), d=numtheory[divisors](n) minus {n})))
    end:
T:= n-> (p-> seq(coeff(p, x, i), i=1..degree(p)))(b(n)):
seq(T(n), n=1..50);  # Alois P. Heinz, Aug 23 2020

chss[n_]:=Prepend[Join@@Table[Prepend[#,n]&/@chss[d],{d,Most[Divisors[n]]}],{n}];
Table[Length[Select[chss[n],Length[#]==k&]],{n,30},{k,1+PrimeOmega[n]}]

A343662 Irregular triangle read by rows where T(n,k) is the number of strict length k chains of divisors of n, 0 <= k <= Omega(n) + 1.

Original entry on oeis.org

1, 1, 1, 2, 1, 1, 2, 1, 1, 3, 3, 1, 1, 2, 1, 1, 4, 5, 2, 1, 2, 1, 1, 4, 6, 4, 1, 1, 3, 3, 1, 1, 4, 5, 2, 1, 2, 1, 1, 6, 12, 10, 3, 1, 2, 1, 1, 4, 5, 2, 1, 4, 5, 2, 1, 5, 10, 10, 5, 1, 1, 2, 1, 1, 6, 12, 10, 3, 1, 2, 1, 1, 6, 12, 10, 3, 1, 4, 5, 2, 1, 4, 5, 2

Offset: 1

Gus Wiseman, May 01 2021

			Triangle begins:
   1:  1  1
   2:  1  2  1
   3:  1  2  1
   4:  1  3  3  1
   5:  1  2  1
   6:  1  4  5  2
   7:  1  2  1
   8:  1  4  6  4  1
   9:  1  3  3  1
  10:  1  4  5  2
  11:  1  2  1
  12:  1  6 12 10  3
  13:  1  2  1
  14:  1  4  5  2
  15:  1  4  5  2
  16:  1  5 10 10  5  1
For example, row n = 12 counts the following chains:
  ()  (1)   (2/1)   (4/2/1)   (12/4/2/1)
      (2)   (3/1)   (6/2/1)   (12/6/2/1)
      (3)   (4/1)   (6/3/1)   (12/6/3/1)
      (4)   (4/2)   (12/2/1)
      (6)   (6/1)   (12/3/1)
      (12)  (6/2)   (12/4/1)
            (6/3)   (12/4/2)
            (12/1)  (12/6/1)
            (12/2)  (12/6/2)
            (12/3)  (12/6/3)
            (12/4)
            (12/6)

Column k = 1 is A000005.
Row ends are A008480.
Row lengths are A073093.
Column k = 2 is A238952.
The case from n to 1 is A334996 or A251683 (row sums: A074206).
A non-strict version is A334997 (transpose: A077592).
The case starting with n is A337255 (row sums: A067824).
Row sums are A337256 (nonempty: A253249).
A001055 counts factorizations.
A001221 counts distinct prime factors.
A001222 counts prime factors with multiplicity.
A097805 counts compositions by sum and length.
A122651 counts strict chains of divisors summing to n.
A146291 counts divisors of n with k prime factors (with multiplicity).
A163767 counts length n - 1 chains of divisors of n.
A167865 counts strict chains of divisors > 1 summing to n.
A337070 counts strict chains of divisors starting with superprimorials.
Cf. A002033, A007425, A007426, A051026, A062319, A143773, A186972, A327527, A337074, A337105, A337107, A343658.

Table[Length[Select[Reverse/@Subsets[Divisors[n],{k}],And@@Divisible@@@Partition[#,2,1]&]],{n,15},{k,0,PrimeOmega[n]+1}]

A124433 Irregular array {a(n,m)} read by rows where (sum{n>=1} sum{m=1 to A001222(n)+1} a(n,m)*y^m/n^x) = 1/(zeta(x)-1+1/y) for all x and y where the double sum converges.

Original entry on oeis.org

1, 0, -1, 0, -1, 0, -1, 1, 0, -1, 0, -1, 2, 0, -1, 0, -1, 2, -1, 0, -1, 1, 0, -1, 2, 0, -1, 0, -1, 4, -3, 0, -1, 0, -1, 2, 0, -1, 2, 0, -1, 3, -3, 1, 0, -1, 0, -1, 4, -3, 0, -1, 0, -1, 4, -3, 0, -1, 2, 0, -1, 2, 0, -1, 0, -1, 6, -9, 4, 0, -1, 1, 0, -1, 2, 0, -1, 2, -1, 0, -1, 4, -3, 0, -1, 0, -1, 6, -6, 0, -1, 0, -1, 4, -6, 4, -1, 0, -1, 2, 0, -1, 2, 0, -1

Offset: 1

Leroy Quet, Dec 15 2006

Row n has A001222(n)+1 terms. The polynomial P_n(y) = (sum{m=1 to A001222(n)+1} a(n,m)*y^m) is a generalization of the Mobius (Moebius) function, where P_n(1) = A008683(n).
From Gus Wiseman, Aug 24 2020: (Start)
Up to sign, also the number of strict length-k chains of divisors from n to 1, 1 <= k <= 1 + A001222(n). For example, row n = 36 counts the following chains (empty column indicated by dot):
  .  36/1  36/2/1   36/4/2/1   36/12/4/2/1
           36/3/1   36/6/2/1   36/12/6/2/1
           36/4/1   36/6/3/1   36/12/6/3/1
           36/6/1   36/9/3/1   36/18/6/2/1
           36/9/1   36/12/2/1  36/18/6/3/1
           36/12/1  36/12/3/1  36/18/9/3/1
           36/18/1  36/12/4/1
                    36/12/6/1
                    36/18/2/1
                    36/18/3/1
                    36/18/6/1
                    36/18/9/1
(End)

			1/(zeta(x) - 1 + 1/y) = y - y^2/2^x - y^2/3^x + ( - y^2 + y^3)/4^x - y^2/5^x + ( - y^2 + 2y^3)/6^x - y^2/7^x + ...
From _Gus Wiseman_, Aug 24 2020: (Start)
The sequence of rows begins:
     1: 1              16: 0 -1 3 -3 1     31: 0 -1
     2: 0 -1           17: 0 -1            32: 0 -1 4 -6 4 -1
     3: 0 -1           18: 0 -1 4 -3       33: 0 -1 2
     4: 0 -1 1         19: 0 -1            34: 0 -1 2
     5: 0 -1           20: 0 -1 4 -3       35: 0 -1 2
     6: 0 -1 2         21: 0 -1 2          36: 0 -1 7 -12 6
     7: 0 -1           22: 0 -1 2          37: 0 -1
     8: 0 -1 2 -1      23: 0 -1            38: 0 -1 2
     9: 0 -1 1         24: 0 -1 6 -9 4     39: 0 -1 2
    10: 0 -1 2         25: 0 -1 1          40: 0 -1 6 -9 4
    11: 0 -1           26: 0 -1 2          41: 0 -1
    12: 0 -1 4 -3      27: 0 -1 2 -1       42: 0 -1 6 -6
    13: 0 -1           28: 0 -1 4 -3       43: 0 -1
    14: 0 -1 2         29: 0 -1            44: 0 -1 4 -3
    15: 0 -1 2         30: 0 -1 6 -6       45: 0 -1 4 -3
(End)

Mohammad K. Azarian, A Double Sum, Problem 440, College Mathematics Journal, Vol. 21, No. 5, Nov. 1990, p. 424. Solution published in Vol. 22. No. 5, Nov. 1991, pp. 448-449.

A008480 gives rows ends (up to sign).
A008683 gives row sums (the Moebius function).
A073093 gives row lengths.
A074206 gives unsigned row sums.
A097805 is the restriction to powers of 2 (up to sign).
A251683 is the unsigned version with zeros removed.
A334996 is the unsigned version (except with a(1) = 0).
A334997 is an unsigned non-strict version.
A337107 is the restriction to factorial numbers.
A001055 counts factorizations.
A001222 counts prime factors with multiplicity.
A067824 counts strict chains of divisors starting with n.
A074206 counts strict chains of divisors from n to 1.
A122651 counts strict chains of divisors summing to n.
A167865 counts strict chains of divisors > 1 summing to n.
A253249 counts strict chains of divisors.
A337105 counts strict chains of divisors from n! to 1.
Cf. A000005, A001221, A002033, A124010, A167865.

f[l_List] := Block[{n = Length[l] + 1, c},c = Plus @@ Last /@ FactorInteger[n];Append[l, Prepend[ -Plus @@ Pick[PadRight[ #, c] & /@ l, Mod[n, Range[n - 1]], 0],0]]];Nest[f, {{1}}, 34] // Flatten(* Ray Chandler, Feb 13 2007 *)
chnsc[n_]:=If[n==1,{{}},Prepend[Join@@Table[Prepend[#,n]&/@chnsc[d],{d,DeleteCases[Divisors[n],1|n]}],{n}]];
Table[(-1)^k*Length[Select[chnsc[n],Length[#]==k&]],{n,30},{k,0,PrimeOmega[n]}] (* Gus Wiseman, Aug 24 2020 *)

a(1,1)=1. a(n,1) = 0 for n>=2. a(n,m+1) = -sum{k|n,k < n} a(k,m), where, for the purpose of this sum, a(k,m) = 0 if m > A001222(k)+1.

Extended by Ray Chandler, Feb 13 2007

A337106 Number of nontrivial divisors of n!.

Original entry on oeis.org

0, 0, 0, 2, 6, 14, 28, 58, 94, 158, 268, 538, 790, 1582, 2590, 4030, 5374, 10750, 14686, 29374, 41038, 60798, 95998, 191998, 242878, 340030, 532222, 677374, 917278, 1834558, 2332798, 4665598, 5529598, 7864318, 12165118, 16422910, 19595518, 39191038, 60466174

Offset: 0

Gus Wiseman, Aug 23 2020

nonn

A divisor of n is trivial if it is 1 or n.

			The a(3) = 2 through a(5) =14 nontrivial divisions:
  6/2  24/2   120/2
  6/3  24/3   120/3
       24/4   120/4
       24/6   120/5
       24/8   120/6
       24/12  120/8
              120/10
              120/12
              120/15
              120/20
              120/24
              120/30
              120/40
              120/60

A070824 counts nontrivial divisors.
A153823 counts proper divisors of n!.
A337107 has this sequence as column k = 3.
A000005 counts divisors.
A000142 lists factorial numbers.
A001055 counts factorizations.
A027423 counts divisors of factorial numbers.
A067824 counts chains of divisors starting with n.
A074206 counts chains of divisors from n to 1.
A076716 counts factorizations of factorial numbers.
A253249 counts chains of divisors.
A337071 counts chains of divisors starting with n!.
A337105 counts chains of divisors from n! to 1.
Cf. A022559, A124010, A251683, A325617, A336941.

Table[Length[DeleteCases[Divisors[n!],1|n!]],{n,10}]

from sympy import factorial, divisor_count
def A337106(n):
    return 0 if n <= 1 else divisor_count(factorial(n))-2 # Chai Wah Wu, Aug 24 2020

a(n) = A000005(n!) - 2 for n > 1.

a(n) = A070824(n!).

a(0) from Chai Wah Wu, Aug 24 2020

cp's OEIS Frontend

A251683 Irregular triangular array: T(n,k) is the number of ordered factorizations of n with exactly k factors, n >= 1, 1 <= k <= A086436(n).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Formula

A334996 Irregular triangle read by rows: T(n, m) is the number of ways to distribute Omega(n) objects into precisely m distinct boxes, with no box empty (Omega(n) >= m).

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A163767 a(n) = tau_{n}(n) = number of ordered n-factorizations of n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Python

Formula

A337256 Number of strict chains of divisors of n.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

Formula

A337255 Irregular triangle read by rows where T(n,k) is the number of strict length-k chains of divisors starting with n.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Maple

Mathematica

A343662 Irregular triangle read by rows where T(n,k) is the number of strict length k chains of divisors of n, 0 <= k <= Omega(n) + 1.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

A124433 Irregular array {a(n,m)} read by rows where (sum{n>=1} sum{m=1 to A001222(n)+1} a(n,m)*y^m/n^x) = 1/(zeta(x)-1+1/y) for all x and y where the double sum converges.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

Extensions

A337106 Number of nontrivial divisors of n!.

Views