A174725 -id:A174725 - cp's OEIS frontend

A323912 Dirichlet inverse of A083254(n), where A083254(n) = 2*phi(n) - n.

1, 0, -1, 0, -3, 2, -5, 0, -2, 2, -9, 4, -11, 2, 5, 0, -15, 2, -17, 4, 7, 2, -21, 8, -6, 2, -4, 4, -27, -2, -29, 0, 11, 2, 17, 8, -35, 2, 13, 8, -39, -6, -41, 4, 8, 2, -45, 16, -10, -2, 17, 4, -51, 0, 29, 8, 19, 2, -57, 4, -59, 2, 12, 0, 35, -14, -65, 4, 23, -10, -69, 24, -71, 2, 4, 4, 47, -18, -77, 16, -8, 2, -81, -4, 47, 2, 29, 8, -87, 4

Offset: 1

Antti Karttunen, Feb 12 2019

sign

Antti Karttunen, Table of n, a(n) for n = 1..20000
Jon Maiga, Computer-generated formulas for A323912, Sequence Machine.
Wikipedia, Dirichlet convolution.

Cf. A083254, A323913.

Sequences that appear in the convolution formulas: A002033, A023900, A046692, A055615, A067824, A074206, A101035, A130054, A174725, A191161, A253249, A323910 (Möbius transform), A328722, A330575.

up_to = 16384;
DirInverse(v) = { my(u=vector(#v)); u[1] = (1/v[1]); for(n=2, #v, u[n] = (-u[1]*sumdiv(n, d, if(dA083254(n) = (2*eulerphi(n)-n);
v323912 = DirInverse(vector(up_to,n,A083254(n)));
A323912(n) = v323912[n];

A083254(n) = (2*eulerphi(n)-n);
memoA323912 = Map();
A323912(n) = if(1==n,1,my(v); if(mapisdefined(memoA323912,n,&v), v, v = -sumdiv(n,d,if(dA083254(n/d)*A323912(d),0)); mapput(memoA323912,n,v); (v))); \\ Antti Karttunen, Nov 22 2024

a(1) = 1, and for n > 1, a(n) = -Sum_{d|n, dA083254(n/d) * a(d).
From Antti Karttunen, Nov 22 2024: (Start)
Following convolution formulas were conjectured for this sequence by Sequence Machine, with each one giving the first 10000 terms correctly. The first one is certainly true, because A083254 is Möbius transform of A033879:
a(n) = Sum_{d|n} A323910(d).
a(n) = Sum_{d|n} A023900(d)*A074206(n/d) = Sum_{d|n} A002033(d-1)*A023900(n/d).
a(n) = Sum_{d|n} A055615(d)*A067824(n/d)
a(n) = Sum_{d|n} A046692(d)*A253249(n/d)
a(n) = Sum_{d|n} A130054(d)*A174725(n/d)
a(n) = Sum_{d|n} A101035(d)*A330575(n/d)
a(n) = Sum_{d|n} A191161(d)*A328722(n/d)
(End)

A347048 Number of even-length ordered factorizations of n with integer 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, 4, 0, 0, 0, 7, 0, 0, 0, 1, 0, 0, 0, 1, 1, 0, 0, 6, 1, 1, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 1, 11, 0, 0, 0, 1, 0, 0, 0, 11, 0, 0, 1, 1, 0, 0, 0, 6, 3, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 1, 0, 0, 0, 8, 0, 1, 1, 7, 0, 0, 0, 1, 0

Offset: 1

Gus Wiseman, Oct 10 2021

nonn

An ordered factorization of n is a 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) ordered factorizations for n = 16, 32, 36, 48, 64, 96:
  4*4       8*4       6*6       12*4      8*8           24*4
  8*2       16*2      12*3      24*2      16*4          48*2
  2*2*2*2   2*2*4*2   18*2      2*2*6*2   32*2          3*2*8*2
            4*2*2*2   2*2*3*3   3*2*4*2   2*2*4*4       4*2*6*2
                      2*3*3*2   4*2*3*2   2*2*8*2       6*2*4*2
                      3*2*2*3   6*2*2*2   2*4*4*2       8*2*3*2
                      3*3*2*2             4*2*2*4       12*2*2*2
                                          4*2*4*2       2*2*12*2
                                          4*4*2*2
                                          8*2*2*2
                                          2*2*2*2*2*2

Antti Karttunen, Table of n, a(n) for n = 1..65537
Index entries for sequences computed from exponents in factorization of n

Positions of 0's are A005117 \ {2}.
The restriction to powers of 2 is A027306.
Heinz numbers of partitions of this type are A028260 /\ A347457.
Positions of 3's appear to be A030514.
Positions of 1's are 1 and A082293.
Allowing non-integer alternating product gives A174725, unordered A339846.
The odd-length version is A347049.
The unordered version is A347438, reverse A347439.
Allowing any length gives A347463.
Partitions of this type are counted by A347704, reverse A035363.
A001055 counts factorizations (strict A045778, ordered A074206).
A103919 counts partitions by sum and alternating sum (reverse: A344612).
A119620 counts partitions with alternating product 1, ranked by A028982.
A273013 counts ordered factorizations of n^2 with alternating product 1.
A339890 counts odd-length factorizations, ordered A174726.
A347050 = factorizations with alternating permutation, complement A347706.
A347437 = factorizations with integer alternating product, reverse A347442.
A347446 = partitions with integer alternating product, reverse A347445.
A347460 counts possible alternating products of factorizations.
Cf. A025047, A038548, A116406, A138364, A347440, A347441, A347454, A347456, A347458, A347459, A347464.

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

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

a(n) = A347463(n) - A347049(n).

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

A347049 Number of odd-length ordered factorizations of n with integer alternating product.

Original entry on oeis.org

0, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 3, 1, 1, 1, 4, 1, 3, 1, 3, 1, 1, 1, 5, 1, 1, 2, 3, 1, 1, 1, 7, 1, 1, 1, 11, 1, 1, 1, 5, 1, 1, 1, 3, 3, 1, 1, 14, 1, 3, 1, 3, 1, 5, 1, 5, 1, 1, 1, 7, 1, 1, 3, 15, 1, 1, 1, 3, 1, 1, 1, 24, 1, 1, 3, 3, 1, 1, 1, 14, 4, 1, 1, 7, 1, 1, 1, 5, 1, 7, 1, 3, 1, 1, 1, 24, 1, 3, 3, 11

Offset: 1

Gus Wiseman, Oct 10 2021

nonn

An ordered factorization of n is a 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) ordered factorizations for n = 2, 8, 12, 16, 24, 32, 36, 48:
  2   8       12      16      24      32          36      48
      2*2*2   2*2*3   2*2*4   2*2*6   2*2*8       2*2*9   2*4*6
              3*2*2   2*4*2   3*2*4   2*4*4       2*3*6   3*2*8
                      4*2*2   4*2*3   4*2*4       2*6*3   3*4*4
                              6*2*2   4*4*2       3*2*6   4*2*6
                                      8*2*2       3*3*4   4*4*3
                                      2*2*2*2*2   3*6*2   6*2*4
                                                  4*3*3   6*4*2
                                                  6*2*3   8*2*3
                                                  6*3*2   12*2*2
                                                  9*2*2   2*2*12
                                                          2*2*2*2*3
                                                          2*2*3*2*2
                                                          3*2*2*2*2

Antti Karttunen, Table of n, a(n) for n = 1..65537
Index entries for sequences computed from exponents in factorization of n

Positions of 2's appear to be A030078.
Positions of 3's appear to be A054753.
Positions of 1's appear to be A167207.
Allowing non-integer alternating product gives A174726, unordered A339890.
The even-length version is A347048.
The unordered version is A347441, with same reverse version.
The case of partitions is A347444, ranked by A347453.
Allowing any length gives A347463.
A001055 counts factorizations (strict A045778, ordered A074206).
A103919 counts partitions by sum and alternating sum (reverse: A344612).
A119620 counts partitions with alternating product 1, ranked by A028982.
A339846 counts even-length factorizations, ordered A174725.
A347050 = factorizations with alternating permutation, complement A347706.
A347437 = factorizations with integer alternating product, reverse A347442.
A347438 = factorizations with alternating product 1, on squares A273013.
A347439 = factorizations with integer reciprocal alternating product.
A347446 = partitions with integer alternating product, reverse A347445.
A347457 lists Heinz numbers of partitions with integer alternating product.
A347460 counts possible alternating products of factorizations.
A347708 counts possible alternating products of odd-length factorizations.
Cf. A025047, A035363, A038548, A116406, A347440, A347454, A347456, A347458, A347459, A347464, A347704.

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

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

a(n) = A347463(n) - A347048(n).

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

A341448 Heinz numbers of integer partitions of type OO.

Original entry on oeis.org

6, 14, 15, 24, 26, 33, 35, 38, 51, 54, 56, 58, 60, 65, 69, 74, 77, 86, 93, 95, 96, 104, 106, 119, 122, 123, 126, 132, 135, 140, 141, 142, 143, 145, 150, 152, 158, 161, 177, 178, 185, 201, 202, 204, 209, 214, 215, 216, 217, 219, 221, 224, 226, 232, 234, 240

Offset: 1

Gus Wiseman, Feb 15 2021

nonn

These partitions are defined to have an odd number of odd parts and an odd number of even parts. They also have even length and odd sum.

			The sequence of partitions together with their Heinz numbers begins:
      6: (2,1)         74: (12,1)           141: (15,2)
     14: (4,1)         77: (5,4)            142: (20,1)
     15: (3,2)         86: (14,1)           143: (6,5)
     24: (2,1,1,1)     93: (11,2)           145: (10,3)
     26: (6,1)         95: (8,3)            150: (3,3,2,1)
     33: (5,2)         96: (2,1,1,1,1,1)    152: (8,1,1,1)
     35: (4,3)        104: (6,1,1,1)        158: (22,1)
     38: (8,1)        106: (16,1)           161: (9,4)
     51: (7,2)        119: (7,4)            177: (17,2)
     54: (2,2,2,1)    122: (18,1)           178: (24,1)
     56: (4,1,1,1)    123: (13,2)           185: (12,3)
     58: (10,1)       126: (4,2,2,1)        201: (19,2)
     60: (3,2,1,1)    132: (5,2,1,1)        202: (26,1)
     65: (6,3)        135: (3,2,2,2)        204: (7,2,1,1)
     69: (9,2)        140: (4,3,1,1)        209: (8,5)

Note: A-numbers of ranking sequences are in parentheses below.
The case of odd parts, length, and sum is counted by A078408 (A300272).
The type EE version is A236913 (A340784).
These partitions (for odd n) are counted by A236914.
A000009 counts partitions into odd parts (A066208).
A026804 counts partitions whose least part is odd (A340932).
A027193 counts partitions of odd length/maximum (A026424/A244991).
A058695 counts partitions of odd numbers (A300063).
A160786 counts odd-length partitions of odd numbers (A340931).
A340101 counts factorizations into odd factors.
A340385 counts partitions of odd length and maximum (A340386).
A340601 counts partitions of even rank (A340602).
A340692 counts partitions of odd rank (A340603).
Cf. A000700, A024429, A027187, A106529, A117409, A174725, A257541, A325134, A339890, A340102, A340604.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],OddQ[Count[primeMS[#],?EvenQ]]&&OddQ[Count[primeMS[#],?OddQ]]&]

cp's OEIS Frontend

A323912 Dirichlet inverse of A083254(n), where A083254(n) = 2*phi(n) - n.

Views

Author

Keywords

Links

Crossrefs

Programs

PARI

PARI

Formula

A347048 Number of even-length ordered factorizations of n with integer alternating product.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

A347049 Number of odd-length ordered factorizations of n with integer alternating product.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

A341448 Heinz numbers of integer partitions of type OO.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica