A330972 -id:A330972 - cp's OEIS frontend

A347437 Number of factorizations of n with integer alternating product.

1, 1, 1, 2, 1, 1, 1, 2, 2, 1, 1, 2, 1, 1, 1, 4, 1, 2, 1, 2, 1, 1, 1, 2, 2, 1, 2, 2, 1, 1, 1, 4, 1, 1, 1, 6, 1, 1, 1, 2, 1, 1, 1, 2, 2, 1, 1, 5, 2, 2, 1, 2, 1, 3, 1, 2, 1, 1, 1, 2, 1, 1, 2, 8, 1, 1, 1, 2, 1, 1, 1, 6, 1, 1, 2, 2, 1, 1, 1, 5, 4, 1, 1, 2, 1, 1, 1, 2, 1, 3, 1, 2, 1, 1, 1, 6, 1, 2, 2, 6, 1, 1, 1, 2, 1, 1, 1, 7

Offset: 1

Gus Wiseman, Sep 06 2021

nonn

A factorization of n is a weakly increasing sequence of positive integers > 1 with product n.

We define the alternating product of a sequence (y_1,...,y_k) to be Product_i y_i^((-1)^(i-1)).

			The factorizations for n = 4, 16, 36, 48, 54, 64, 108:
  (4)   (16)      (36)      (48)        (54)    (64)          (108)
  (2*2) (4*4)     (6*6)     (2*4*6)     (2*3*9) (8*8)         (2*6*9)
        (2*2*4)   (2*2*9)   (3*4*4)     (3*3*6) (2*4*8)       (3*6*6)
        (2*2*2*2) (2*3*6)   (2*2*12)            (4*4*4)       (2*2*27)
                  (3*3*4)   (2*2*2*2*3)         (2*2*16)      (2*3*18)
                  (2*2*3*3)                     (2*2*4*4)     (3*3*12)
                                                (2*2*2*2*4)   (2*2*3*3*3)
                                                (2*2*2*2*2*2)

Antti Karttunen, Table of n, a(n) for n = 1..65537
PlanetMath, alternating sum

Positions of 1's are A005117, complement A013929.
Allowing any alternating product <= 1 gives A339846.
Allowing any alternating product > 1 gives A339890.
The restriction to powers of 2 is A344607.
The even-length case is A347438, also the case of alternating product 1.
The reciprocal version is A347439.
Allowing any alternating product < 1 gives A347440.
The odd-length case is A347441.
The reverse version is A347442.
The additive version is A347446, ranked by A347457.
Allowing any alternating product >= 1 gives A347456.
The restriction to perfect squares is A347458, reciprocal A347459.
The ordered version is A347463.
A001055 counts factorizations.
A046099 counts factorizations with no alternating permutations.
A071321 gives the alternating sum of prime factors of n (reverse: A071322).
A273013 counts ordered factorizations of n^2 with alternating product 1.
A347460 counts possible alternating products of factorizations.
Cf. A025047, A038548, A062312, A088218, A119620, A316523, A330972, A332269, A347445, A347447, A347451, A347454.

facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
altprod[q_]:=Product[q[[i]]^(-1)^(i-1),{i,Length[q]}];
Table[Length[Select[facs[n],IntegerQ@*altprod]],{n,100}]

A347437(n, m=n, ap=1, e=0) = if(1==n, if(e%2, 1==denominator(ap), 1==numerator(ap)), sumdiv(n, d, if((d>1)&&(d<=m), A347437(n/d, d, ap * d^((-1)^e), 1-e)))); \\ Antti Karttunen, Oct 22 2023

a(2^n) = A344607(n).

a(n^2) = A347458(n).

Data section extended up to a(108) by Antti Karttunen, Oct 22 2023

A033833 Highly factorable numbers: numbers with a record number of proper factorizations.

Original entry on oeis.org

1, 4, 8, 12, 16, 24, 36, 48, 72, 96, 120, 144, 192, 216, 240, 288, 360, 432, 480, 576, 720, 960, 1080, 1152, 1440, 2160, 2880, 4320, 5040, 5760, 7200, 8640, 10080, 11520, 12960, 14400, 15120, 17280, 20160, 25920, 28800, 30240, 34560

Offset: 1

Jeff Burch

nonn

First differs from A045783 and A330972 in lacking 60.

Indices of records in A028422 or A001055.

			From _Gus Wiseman_, Jan 13 2020: (Start)
Factorizations of the initial terms:
  ()  (4)    (8)      (12)     (16)       (24)       (36)       (48)
      (2*2)  (2*4)    (2*6)    (2*8)      (3*8)      (4*9)      (6*8)
             (2*2*2)  (3*4)    (4*4)      (4*6)      (6*6)      (2*24)
                      (2*2*3)  (2*2*4)    (2*12)     (2*18)     (3*16)
                               (2*2*2*2)  (2*2*6)    (3*12)     (4*12)
                                          (2*3*4)    (2*2*9)    (2*3*8)
                                          (2*2*2*3)  (2*3*6)    (2*4*6)
                                                     (3*3*4)    (3*4*4)
                                                     (2*2*3*3)  (2*2*12)
                                                                (2*2*2*6)
                                                                (2*2*3*4)
                                                                (2*2*2*2*3)
(End)

Amiram Eldar, Table of n, a(n) for n = 1..235 (terms 1..118 from E. R. Canfield et al.)
E. R. Canfield, P. Erdős, C. Pomerance, On a problem of Oppenheim concerning Factorisatio Numerorum, J. Number Theory 17 (1983) 1-28, Table 1, column "n".
Jun Kyo Kim, On highly factorable numbers, Journal Of Number Theory, Vol. 72, No. 1 (1998), pp. 76-91.
Arnold Knopfmacher and Michael Mays, Ordered and unordered factorizations of integers, Mathematica Journal, Vol. 10, No. 1 (2006), pp. 72-89.

All terms belong to A025487 as well as to A330972.
The corresponding records are A272691.
The strict version is A331200.
Factorizations are A001055, with image A045782 and complement A330976.
Cf. A028422, A033834, A045778, A045783, A330973, A330998, A331049, A331050.

nn=100;
facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
qv=Table[Length[facs[n]],{n,nn}];
Table[Position[qv,i][[1,1]],{i,qv//.{foe___,x_,y_,afe___}/;x>=y:>{foe,x,afe}}] (* Gus Wiseman, Jan 13 2020 *)

A001055(a(n)) = A272691(n). - Gus Wiseman, Jan 13 2020

A347438 Number of unordered factorizations of n with alternating product 1.

Original entry on oeis.org

1, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0

Offset: 1

Gus Wiseman, Sep 06 2021

nonn

Also the number of unordered factorizations of n with alternating sum 0.
Also the number of unordered factorizations of n with all even multiplicities.
This is the even-length case of A347437, the odd-length case being A347441.
An unordered factorization of n is a weakly increasing sequence of positive integers > 1 with product n.
We define the alternating product of a sequence (y_1,...,y_k) to be Product_i y_i^((-1)^(i-1)).

			The a(n) factorizations for n = 16, 64, 144, 256, 576:
  4*4      8*8          12*12        16*16            24*24
  2*2*2*2  2*2*4*4      2*2*6*6      2*2*8*8          3*3*8*8
           2*2*2*2*2*2  3*3*4*4      4*4*4*4          4*4*6*6
                        2*2*2*2*3*3  2*2*2*2*4*4      2*2*12*12
                                     2*2*2*2*2*2*2*2  2*2*2*2*6*6
                                                      2*2*3*3*4*4
                                                      2*2*2*2*2*2*3*3

Antti Karttunen, Table of n, a(n) for n = 1..65537
PlanetMath, alternating sum

Positions of zeros are A000037.
Positions of nonzero terms are A000290.
The restriction to perfect squares is A001055 (ordered: A273013).
The restriction to powers of 2 is A035363.
The additive version is A119620, ranked by A028982.
Positions of non-1's are A213367 \ {1}.
Positions of 1's are A280076 = {1} \/ A001248.
Sorted first positions are 1, 2, and all terms of A330972 squared.
Allowing any alternating product <= 1 gives A339846.
Allowing any alternating product > 1 gives A339890.
Allowing any integer alternating product gives A347437.
Allowing any integer reciprocal alternating product gives A347439.
Allowing any alternating product < 1 gives A347440.
Allowing any alternating product >= 1 gives A347456.
A046099 counts factorizations with no alternating permutations.
A071321 gives the alternating sum of prime factors (reverse: A071322).
A316524 gives the alternating sum of prime indices (reverse: A344616).
A344606 counts alternating permutations of prime factors.
A347441 counts odd-length factorizations with integer alternating product.
A347460 counts possible alternating products of factorizations.
Cf. A000041, A005117, A025047, A038548, A062312, A088218, A316523, A332269, A344607, A347442, A347446, A347463.

facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
altprod[q_]:=Product[q[[i]]^(-1)^(i-1),{i,Length[q]}];
Table[Length[Select[facs[n],altprod[#]==1&]],{n,100}]

A347438(n, m=n, k=0, t=1) = if(1==n, (1==t), my(s=0); fordiv(n, d, if((d>1)&&(d<=m), s += A347438(n/d, d, 1-k, t*(d^((-1)^k))))); (s)); \\ Antti Karttunen, Oct 30 2021

a(2^n) = A035363(n).

a(n^2) = A001055(n).

Name and comments clarified (with unordered) by Jacob Sprittulla, Oct 05 2021

A347439 Number of factorizations of n with integer reciprocal alternating product.

Original entry on oeis.org

1, 0, 0, 1, 0, 0, 0, 1, 1, 0, 0, 1, 0, 0, 0, 3, 0, 1, 0, 1, 0, 0, 0, 1, 1, 0, 1, 1, 0, 0, 0, 3, 0, 0, 0, 4, 0, 0, 0, 1, 0, 0, 0, 1, 1, 0, 0, 3, 1, 1, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 1, 6, 0, 0, 0, 1, 0, 0, 0, 5, 0, 0, 1, 1, 0, 0, 0, 3, 3, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 1, 0, 0, 0, 3, 0, 1, 1, 4, 0, 0, 0, 1, 0, 0, 0, 5

Offset: 1

Gus Wiseman, Sep 07 2021

nonn

All of these factorizations have an even number of factors, so their reverse-alternating product is also an integer.
A factorization of n is a weakly increasing sequence of positive integers > 1 with product n.
We define the reciprocal alternating product of a sequence (y_1,...,y_k) to be Product_i y_i^((-1)^i).
The value of a(n) does not depend solely on the prime signature of n. See the example comparing a(144) and a(400). - Antti Karttunen, Jul 28 2024

			The a(n) factorizations for
n    = 16,       36,       64,           72,       128,          144:
a(n) = 3,        4,        6,            5,        7,            11
--------------------------------------------------------------------------------
       2*8       6*6       8*8           2*36      2*64          2*72
       4*4       2*18      2*32          3*24      4*32          3*48
       2*2*2*2   3*12      4*16          6*12      8*16          4*36
                 2*2*3*3   2*2*2*8       2*2*3*6   2*2*4*8       6*24
                           2*2*4*4       2*3*3*4   2*4*4*4       12*12
                           2*2*2*2*2*2             2*2*2*16      2*2*6*6
                                                   2*2*2*2*2*4   2*3*3*8
                                                                 3*3*4*4
                                                                 2*2*2*18
                                                                 2*2*3*12
                                                                 2*2*2*2*3*3
From _Antti Karttunen_, Jul 28 2024 (Start)
For n=400, there are 12 such factorizations:
  2*200
  4*100
  5*80
  10*40
  20*20
  2*2*2*50
  2*2*5*20
  2*2*10*10
  2*4*5*10
  2*5*5*8
  4*4*5*5
  2*2*2*2*5*5.
Note that 400 = 2^4 * 5^2 has the same prime signature as 144 = 2^4 * 3^2. 400 = 2*4*5*10 is the factorization for which there is no analogous factorization of 144, as 2*3*4*6 doesn't satisfy the condition of having an integer reciprocal alternating product.
(End)

Antti Karttunen, Table of n, a(n) for n = 1..65537

Positions of 0's are A005117 \ {1}.
Positions of non-0's are 1 and A013929.
The restriction to powers of 2 is A027187, reverse A035363.
Positions of 1's are 1 and A082293.
The additive version is A119620, ranked by A347451 and A028982.
Allowing any alternating product <= 1 gives A339846.
Allowing any alternating product > 1 gives A339890.
The non-reciprocal version is A347437.
The reverse version is A347438.
Allowing any alternating product < 1 gives A347440.
The non-reciprocal reverse version is A347442.
Allowing any alternating product >= 1 gives A347456.
The restriction to perfect squares is A347459, non-reciprocal A347458.
A038548 counts possible reverse-alternating products of factorizations.
A046099 counts factorizations with no alternating permutations.
A071321 gives the alternating sum of prime factors (reverse: A071322).
A316524 gives the alternating sum of prime indices (reverse: A344616).
A273013 counts ordered factorizations of n^2 with alternating product 1.
A347441 counts odd-length factorizations with integer alternating product.
A347460 counts possible alternating products of factorizations.
Cf. A236913, A316523, A330972, A332269, A344606, A344607, A347445, A347446, A347454, A347457, A347463.

facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
recaltprod[q_]:=Product[q[[i]]^(-1)^i,{i,Length[q]}];
Table[Length[Select[facs[n],IntegerQ[recaltprod[#]]&]],{n,100}]

A347439(n, m=n, ap=1, e=0) = if(1==n, !(e%2) && 1==denominator(ap), sumdiv(n, d, if(d>1 && d<=m, A347439(n/d, d, ap * d^((-1)^e), 1-e)))); \\ Antti Karttunen, Jul 28 2024

A347439(n, m=0, ap=1, e=1) = if(1==n, 1==denominator(ap), sumdiv(n, d, if(d>1 && d>=m, A347439(n/d, d, ap * d^((-1)^e), 1-e)))); \\ Antti Karttunen, Jul 28 2024

a(2^n) = A027187(n).

a(n^2) = A347459(n).

Data section extended up to a(108) by Antti Karttunen, Jul 28 2024

A347442 Number of factorizations of n with integer reverse-alternating product.

Original entry on oeis.org

1, 1, 1, 2, 1, 1, 1, 3, 2, 1, 1, 3, 1, 1, 1, 5, 1, 3, 1, 3, 1, 1, 1, 3, 2, 1, 3, 3, 1, 1, 1, 7, 1, 1, 1, 8, 1, 1, 1, 3, 1, 1, 1, 3, 3, 1, 1, 8, 2, 3, 1, 3, 1, 4, 1, 3, 1, 1, 1, 3, 1, 1, 3, 11, 1, 1, 1, 3, 1, 1, 1, 11, 1, 1, 3, 3, 1, 1, 1, 8, 5, 1, 1, 3, 1, 1, 1, 3, 1, 4, 1, 3, 1, 1, 1, 9, 1, 3, 3, 8, 1, 1, 1, 3, 1, 1, 1, 12

Offset: 1

Gus Wiseman, Sep 08 2021

nonn

A factorization of n is a weakly increasing sequence of positive integers > 1 with product n.

We define the alternating product of a sequence (y_1,...,y_k) to be Product_i y_i^((-1)^(i-1)). The reverse-alternating product is the alternating product of the reversed sequence.

			The a(n) factorizations for n = 4, 8, 16, 32, 36, 54, 64:
  (4)    (8)      (16)       (32)         (36)       (54)     (64)
  (2*2)  (2*4)    (2*8)      (4*8)        (6*6)      (3*18)   (8*8)
         (2*2*2)  (4*4)      (2*16)       (2*18)     (2*3*9)  (2*32)
                  (2*2*4)    (2*2*8)      (3*12)     (3*3*6)  (4*16)
                  (2*2*2*2)  (2*4*4)      (2*2*9)             (2*4*8)
                             (2*2*2*4)    (2*3*6)             (4*4*4)
                             (2*2*2*2*2)  (3*3*4)             (2*2*16)
                                          (2*2*3*3)           (2*2*2*8)
                                                              (2*2*4*4)
                                                              (2*2*2*2*4)
                                                              (2*2*2*2*2*2)

Antti Karttunen, Table of n, a(n) for n = 1..65537

The restriction to powers of 2 is A000041, reverse A344607.
Positions of 2's are A001248.
Positions of 1's are A005117.
Positions of non-1's are A013929.
Allowing any alternating product <= 1 gives A339846.
Allowing any alternating product > 1 gives A339890.
The non-reverse version is A347437.
The reciprocal version is A347438.
The even-length case is A347439.
Allowing any alternating product < 1 gives A347440.
The odd-length case is A347441, ranked by A347453.
The additive version is A347445, ranked by A347457.
The non-reverse additive version is A347446, ranked by A347454.
Allowing any alternating product >= 1 gives A347456.
The ordered version is A347463.
A038548 counts possible reverse-alternating products of factorizations.
A071321 gives the alternating sum of prime factors (reverse: A071322).
A236913 counts partitions of 2n with reverse-alternating sum <= 0.
A273013 counts ordered factorizations of n^2 with alternating product 1.
Cf. A000290, A025047, A330972, A347443, A347449, A347451, A347458, A347459, A347460, A347462.

facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
revaltprod[q_]:=Product[Reverse[q][[i]]^(-1)^(i-1),{i,Length[q]}];
Table[Length[Select[facs[n],IntegerQ@*revaltprod]],{n,100}]

A347442(n, m=n, ap=1, e=0) = if(1==n, 1==denominator(ap), sumdiv(n, d, if((d>1)&&(d<=m), A347442(n/d, d, ap * d^((-1)^e), 1-e)))); \\ Antti Karttunen, Oct 22 2023

a(2^n) = A000041(n).

Data section extended up to a(108) by Antti Karttunen, Oct 22 2023

A045783 Least value with A045782(n) factorizations.

Original entry on oeis.org

1, 4, 8, 12, 16, 24, 36, 60, 48, 128, 72, 96, 120, 256, 180, 144, 192, 216, 420, 240, 1024, 384, 288, 360, 2048, 432, 480, 900, 768, 840, 576, 1260, 864, 720, 8192, 960, 1080, 1152, 4620, 1800, 3072, 1680, 1728, 1920, 1440, 32768, 2304, 2592, 6144

Offset: 1

David W. Wilson

nonn

			From _Gus Wiseman_, Jan 11 2020: (Start)
Factorizations of n = 1, 4, 8, 12, 16, 24, 36, 60, 48:
  {}  4    8      12     16       24       36       60       48
      2*2  2*4    2*6    2*8      3*8      4*9      2*30     6*8
           2*2*2  3*4    4*4      4*6      6*6      3*20     2*24
                  2*2*3  2*2*4    2*12     2*18     4*15     3*16
                         2*2*2*2  2*2*6    3*12     5*12     4*12
                                  2*3*4    2*2*9    6*10     2*3*8
                                  2*2*2*3  2*3*6    2*5*6    2*4*6
                                           3*3*4    3*4*5    3*4*4
                                           2*2*3*3  2*2*15   2*2*12
                                                    2*3*10   2*2*2*6
                                                    2*2*3*5  2*2*3*4
                                                             2*2*2*2*3
(End)

Wikipedia, Multiplicative partition
R. E. Canfield, P. Erdős and C. Pomerance, On a Problem of Oppenheim concerning "Factorisatio Numerorum", J. Number Theory 17 (1983), 1-28.

All terms belong to A025487.
The strict version is A045780.
The sorted version is A330972.
Includes all highly factorable numbers A033833.
The least number with exactly n factorizations is A330973(n).
Factorizations are A001055 with image A045782 and complement A330976.
Strict factorizations are A045778 with image A045779 and complement A330975.
Cf. A070175, A318284, A325238, A330974, A330989, A330992, A330998.

A330973 Least positive integer with exactly n factorizations into factors > 1, and 0 if no such number exists.

Original entry on oeis.org

1, 4, 8, 12, 16, 0, 24, 0, 36, 0, 60, 48, 0, 0, 128, 72, 0, 0, 96, 0, 120, 256, 0, 0, 0, 180, 0, 0, 144, 192, 216, 0, 0, 0, 0, 420, 0, 240, 0, 0, 0, 1024, 0, 0, 384, 0, 288, 0, 0, 0, 0, 360, 0, 0, 0, 2048, 432, 0, 0, 0, 0, 0, 0, 480, 0, 900, 768, 0, 0, 0, 0, 0

Offset: 1

Gus Wiseman, Jan 06 2020

nonn

Robert G. Wilson v, Table of n, a(n) for n = 1..10000
R. E. Canfield, P. Erdős and C. Pomerance, On a Problem of Oppenheim concerning "Factorisatio Numerorum", J. Number Theory 17 (1983), 1-28.

All nonzero terms belong to A025487.
Includes all highly factorable numbers A033833.
Factorizations are A001055, with image A045782.
The version without zeros is A045783.
The sorted version is A330972.
The strict version is A330974.
Positions of zeros are A330976.
Cf. A001055, A001222, A002033, A007716, A045778, A045779, A330935, A330992, A330997, A330998, A346426.

nn=10;
fam[n_]:=fam[n]=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[fam[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
nds=Length/@Array[fam[#]&,2^nn];
Table[If[#=={},0,#[[1,1]]]&[Position[nds,i]],{i,nn}]

More terms from Jinyuan Wang, Jul 07 2021

A330976 Numbers that are not the number of factorizations into factors > 1 of any positive integer.

Original entry on oeis.org

6, 8, 10, 13, 14, 17, 18, 20, 23, 24, 25, 27, 28, 32, 33, 34, 35, 37, 39, 40, 41, 43, 44, 46, 48, 49, 50, 51, 53, 54, 55, 58, 59, 60, 61, 62, 63, 65, 68, 69, 70, 71, 72, 73, 75, 76, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 93, 94, 95, 96, 99

Offset: 1

Gus Wiseman, Jan 07 2020

nonn

Warning: I have only confirmed the first eight terms. The rest are derived from A045782. - Gus Wiseman, Jan 07 2020

R. E. Canfield, P. Erdős and C. Pomerance, On a Problem of Oppenheim concerning "Factorisatio Numerorum", J. Number Theory 17 (1983), 1-28.

Complement of A045782.
The strict version is A330975.
Factorizations are A001055, with image A045782.
Strict factorizations are A045778, with image A045779.
The least number with n factorizations is A330973(n).
Cf. A033833, A045779, A045783, A317145, A330935, A330972, A330974, A330977, A330991.

nn=15;
fam[n_]:=fam[n]=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[fam[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
nds=Length/@Array[fam[#]&,2^nn];
Complement[Range[nn],nds]

A347440 Number of factorizations of n with alternating product < 1.

Original entry on oeis.org

0, 0, 0, 0, 0, 1, 0, 1, 0, 1, 0, 2, 0, 1, 1, 1, 0, 2, 0, 2, 1, 1, 0, 4, 0, 1, 1, 2, 0, 3, 0, 3, 1, 1, 1, 3, 0, 1, 1, 4, 0, 3, 0, 2, 2, 1, 0, 6, 0, 2, 1, 2, 0, 4, 1, 4, 1, 1, 0, 6, 0, 1, 2, 3, 1, 3, 0, 2, 1, 3, 0, 8, 0, 1, 2, 2, 1, 3, 0, 6, 1, 1, 0, 6, 1, 1, 1

Offset: 1

Gus Wiseman, Sep 07 2021

nonn

All such factorizations have even length and alternating sum < 0, so partitions of this type are counted by A344608.
Also the number of factorizations of n with alternating sum < 0.
A factorization of n is a weakly increasing sequence of positive integers > 1 with product n.
We define the alternating product of a sequence (y_1,...,y_k) to be Product_i y_i^((-1)^(i-1)).

			The a(n) factorizations for n = 6, 12, 24, 30, 48, 72, 96, 120:
  2*3  2*6  3*8      5*6   6*8      8*9      2*48         2*60
       3*4  4*6      2*15  2*24     2*36     3*32         3*40
            2*12     3*10  3*16     3*24     4*24         4*30
            2*2*2*3        4*12     4*18     6*16         5*24
                           2*2*2*6  6*12     8*12         6*20
                           2*2*3*4  2*2*2*9  2*2*3*8      8*15
                                    2*2*3*6  2*2*4*6      10*12
                                    2*3*3*4  2*3*4*4      2*2*5*6
                                             2*2*2*12     2*3*4*5
                                             2*2*2*2*2*3  2*2*2*15
                                                          2*2*3*10

PlanetMath, alternating sum

Positions of 0's are A000430.
Positions of 2's are A054753.
Positions of non-0's are A080257.
Positions of 1's are A332269.
The weak version (<= 1 instead of < 1) is A339846, ranked by A028982.
The reciprocal version is A339890.
The additive version is A344608, ranked by A119899.
The even-sum additive version is A344743, ranked by A119899 /\ A300061.
Allowing any integer alternating product gives A347437, additive A347446.
The equal version (= 1 instead of < 1) is A347438.
Allowing any integer reciprocal alternating product gives A347439.
The complement (>= 1 instead of < 1) is counted by A347456.
A038548 counts possible reverse-alternating products of factorizations.
A046099 counts factorizations with no alternating permutations.
A071321 gives the alternating sum of prime factors (reverse: A071322).
A236913 counts partitions of 2n with reverse-alternating sum <= 0.
A273013 counts ordered factorizations of n^2 with alternating product 1.
A347460 counts possible alternating products of factorizations.
Cf. A008549, A058622, A119620, A294175, A330972, A347442, A347447, A347454.

facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
altprod[q_]:=Product[q[[i]]^(-1)^(i-1),{i,Length[q]}];
Table[Length[Select[facs[n],altprod[#]<1&]],{n,100}]

a(2^n) = A344608(n).

a(n) = A339846(n) - A347438(n).

A045779 Number of factorizations of n into distinct factors for some n (image of A045778).

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 12, 14, 15, 16, 17, 18, 19, 21, 22, 25, 27, 31, 32, 33, 34, 38, 40, 42, 43, 44, 46, 52, 54, 55, 56, 57, 59, 61, 64, 67, 70, 74, 76, 80, 83, 88, 89, 91, 93, 100, 104, 110, 111, 112, 116, 117, 120, 122, 123, 132, 137, 140, 141, 142, 143, 148

Offset: 1

David W. Wilson

nonn

We may use A045778(k*m) >= A045778(k) for any k, m >= 1 to disprove presence of some positive integer in this sequence. - David A. Corneth, Oct 24 2024

			From _David A. Corneth_, Oct 24 2024: (Start)
5 is a term as 24 has five factorizations into distinct divisors of 24 namely 24 = 2 * 12 = 3 * 8 = 4 * 6 = 2 * 3 * 4 which is five such factorizations.
11 is not a term. From terms in A025487 only the numbers 2, 4, 6, 8, 12, 16, 24, 30, 32, 36, 48, 60, 64, 72, 96, 128, 256, 512, 1024 have no more than 11 such factorizations. Any multiple of these numbers in A025487 that is not already listed has more than 11 such factorizations which proves 11 is not in this sequence. (End)

David A. Corneth, Table of n, a(n) for n = 1..953 (terms <= 10^5)
Wikipedia, Multiplicative partition
R. E. Canfield, P. Erdős and C. Pomerance, On a Problem of Oppenheim concerning "Factorisatio Numerorum", J. Number Theory 17 (1983), 1-28.

Factorizations are A001055, with image A045782, with complement A330976.
Strict factorizations are A045778 with image A045779 and complement A330975.
The least number with A045779(n) strict factorizations is A045780(n).
The least number with n strict factorizations is A330974(n).
Cf. A001222, A025487, A033833, A045783, A318286, A328966, A330972, A330973, A330997.

Name edited by Gus Wiseman, Jan 11 2020

cp's OEIS Frontend

A347437 Number of factorizations of n with integer alternating product.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

A033833 Highly factorable numbers: numbers with a record number of proper factorizations.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A347438 Number of unordered factorizations of n with alternating product 1.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

A347439 Number of factorizations of n with integer reciprocal alternating product.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

PARI

Formula

Extensions

A347442 Number of factorizations of n with integer reverse-alternating product.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

A045783 Least value with A045782(n) factorizations.

Views

Author

Keywords

Examples

Links

Crossrefs

A330973 Least positive integer with exactly n factorizations into factors > 1, and 0 if no such number exists.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica