A353398 -id:A353398 - cp's OEIS frontend

A353394 Product of prime shadows of prime indices of n (with multiplicity).

1, 1, 2, 1, 2, 2, 3, 1, 4, 2, 2, 2, 4, 3, 4, 1, 2, 4, 5, 2, 6, 2, 3, 2, 4, 4, 8, 3, 4, 4, 2, 1, 4, 2, 6, 4, 6, 5, 8, 2, 2, 6, 4, 2, 8, 3, 4, 2, 9, 4, 4, 4, 7, 8, 4, 3, 10, 4, 2, 4, 6, 2, 12, 1, 8, 4, 2, 2, 6, 6, 6, 4, 4, 6, 8, 5, 6, 8, 4, 2, 16, 2, 2, 6, 4, 4

Offset: 1

Gus Wiseman, May 17 2022

nonn

A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798.

We define the prime shadow A181819(n) to be the product of primes indexed by the exponents in the prime factorization of n. For example, 90 = prime(1)*prime(2)^2*prime(3) has prime shadow prime(1)*prime(2)*prime(1) = 12.

			We have 42 = prime(1)*prime(2)*prime(4), so a(42) = 1*2*3 = 6.

Positions of first appearances are A353397.
A001222 counts prime factors with multiplicity, distinct A001221.
A003963 gives product of prime indices.
A056239 adds up prime indices, row sums of A112798 and A296150.
A124010 gives prime signature, sorted A118914, product A005361.
A181819 gives prime shadow, with an inverse A181821.
A324850 lists numbers divisible by the product of their prime indices.
A325131 lists numbers relatively prime to their prime shadow.
A325755 lists numbers divisible by their prime shadow, quotient also A325756, with recursion A353393.
Cf. A003586, A005117, A008480, A182850, A266477, A289509, A316428, A320325, A325702, A353389, A353395, A353399.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
red[n_]:=If[n==1,1,Times@@Prime/@Last/@FactorInteger[n]];
Table[Times@@red/@primeMS[n],{n,100}]

a(n) = Product_i A181819(A112798(n,i)).
Positions where a(n) = A003963(n) are A003586.
Positions where a(n) = A005361(n) are A353399, counted by A353398.
Positions where a(n) = A181819(n) are A353395, counted by A353396.

A353399 Numbers whose product of prime exponents equals the product of prime shadows of its prime indices.

Original entry on oeis.org

1, 2, 12, 20, 36, 44, 56, 68, 100, 124, 164, 184, 208, 236, 240, 268, 332, 436, 464, 484, 508, 528, 608, 628, 688, 716, 720, 752, 764, 776, 816, 844, 880, 964, 1108, 1132, 1156, 1168, 1200, 1264, 1296, 1324, 1344, 1360, 1412, 1468, 1488, 1584, 1604, 1616, 1724

Offset: 1

Gus Wiseman, May 17 2022

nonn

A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798.

We define the prime shadow A181819(n) to be the product of primes indexed by the exponents in the prime factorization of n. For example, 90 = prime(1)*prime(2)^2*prime(3) has prime shadow prime(1)*prime(2)*prime(1) = 12.

			The terms together with their prime indices begin:
     1: {}
     2: {1}
    12: {1,1,2}
    20: {1,1,3}
    36: {1,1,2,2}
    44: {1,1,5}
    56: {1,1,1,4}
    68: {1,1,7}
   100: {1,1,3,3}
   124: {1,1,11}
   164: {1,1,13}
   184: {1,1,1,9}
   208: {1,1,1,1,6}
   236: {1,1,17}
   240: {1,1,1,1,2,3}

Product of prime indices is A003963, counted by A339095.
The LHS (product of exponents) is A005361, counted by A266477.
The RHS (product of shadows) is A353394, first appearances A353397.
A related comparison is A353395, counted by A353396.
The partitions are counted by A353398.
Taking indices instead of exponents on the LHS gives A353503.
A001222 counts prime factors with multiplicity, distinct A001221.
A056239 adds up prime indices, row sums of A112798 and A296150.
A124010 gives prime signature, sorted A118914.
A130091 lists numbers with distinct prime exponents, counted by A098859.
A181819 gives prime shadow, with an inverse A181821.
A325131 lists numbers relatively prime to their prime shadow.
Numbers divisible by their prime shadow:
- counted by A325702
- listed by A325755
- co-recursive version A325756
- nonprime recursive version A353389
- recursive version A353393
- recursive version counted by A353426
Cf. A000720, A003586, A005117, A143773, A182850, A316428, A320325, A324850.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
red[n_]:=If[n==1,1,Times@@Prime/@Last/@FactorInteger[n]];
Select[Range[100],Times@@red/@primeMS[#]==Times@@Last/@FactorInteger[#]&]

A005361(a(n)) = A353394(a(n)).

A353503 Numbers whose product of prime indices equals their product of prime exponents (prime signature).

Original entry on oeis.org

1, 2, 12, 36, 40, 112, 352, 832, 960, 1296, 2176, 2880, 4864, 5376, 11776, 12544, 16128, 29696, 33792, 34560, 38400, 63488, 64000, 101376, 115200, 143360, 151552, 159744, 335872, 479232, 704512, 835584, 1540096, 1658880, 1802240

Offset: 1

Gus Wiseman, May 17 2022

nonn

A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798. A number's prime signature (row n A124010) is the sequence of positive exponents in its prime factorization.

			The terms together with their prime indices begin:
     1: {}
     2: {1}
    12: {1,1,2}
    36: {1,1,2,2}
    40: {1,1,1,3}
   112: {1,1,1,1,4}
   352: {1,1,1,1,1,5}
   832: {1,1,1,1,1,1,6}
   960: {1,1,1,1,1,1,2,3}
  1296: {1,1,1,1,2,2,2,2}
  2176: {1,1,1,1,1,1,1,7}
  2880: {1,1,1,1,1,1,2,2,3}
  4864: {1,1,1,1,1,1,1,1,8}
  5376: {1,1,1,1,1,1,1,1,2,4}

For shadows instead of exponents we get A003586, counted by A008619.
The LHS (product of prime indices) is A003963, counted by A339095.
The RHS (product of prime exponents) is A005361, counted by A266477.
The version for shadows instead of indices is A353399, counted by A353398.
These partitions are counted by A353506.
A001222 counts prime factors with multiplicity, distinct A001221.
A056239 adds up prime indices, row sums of A112798 and A296150.
A130091 lists numbers with distinct prime exponents, counted by A098859.
A124010 gives prime signature, sorted A118914.
A181819 gives prime shadow, with an inverse A181821.
A353394 gives product of shadows of prime indices, firsts A353397.
Cf. A000720, A008480, A085629, A097318, A109297, A304678, A318871, A320325, A325131, A325755, A353500, A353507.

Select[Range[1000],Times@@Cases[If[#==1,{},FactorInteger[#]],{p_,k_}:>PrimePi[p]^k]==Times@@Last/@FactorInteger[#]&]

from itertools import count, islice
from math import prod
from sympy import primepi, factorint
def A353503_gen(startvalue=1): # generator of terms >= startvalue
    return filter(lambda n: n == 1 or prod((f:=factorint(n)).values()) == prod(primepi(p)**e for p,e in f.items()), count(max(startvalue,1)))
A353503_list = list(islice(A353503_gen(),20)) # Chai Wah Wu, May 20 2022

A003963(a(n)) = A005361(a(n)).

A353395 Numbers k such that the prime shadow of k equals the product of prime shadows of the prime indices of k.

Original entry on oeis.org

1, 3, 5, 11, 15, 17, 26, 31, 33, 41, 51, 55, 58, 59, 67, 78, 83, 85, 86, 93, 94, 109, 123, 126, 127, 130, 146, 148, 155, 157, 158, 165, 174, 177, 179, 187, 191, 196, 201, 202, 205, 211, 241, 244, 249, 255, 258, 274, 277, 278, 282, 283, 284, 286, 290, 295, 298

Offset: 1

Gus Wiseman, May 17 2022

nonn

A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798.

We define the prime shadow A181819(n) to be the product of primes indexed by the exponents in the prime factorization of n. For example, 90 = prime(1)*prime(2)^2*prime(3) has prime shadow prime(1)*prime(2)*prime(1) = 12.

			The terms together with their prime indices begin:
      1: {}         78: {1,2,6}      158: {1,22}
      3: {2}        83: {23}         165: {2,3,5}
      5: {3}        85: {3,7}        174: {1,2,10}
     11: {5}        86: {1,14}       177: {2,17}
     15: {2,3}      93: {2,11}       179: {41}
     17: {7}        94: {1,15}       187: {5,7}
     26: {1,6}     109: {29}         191: {43}
     31: {11}      123: {2,13}       196: {1,1,4,4}
     33: {2,5}     126: {1,2,2,4}    201: {2,19}
     41: {13}      127: {31}         202: {1,26}
     51: {2,7}     130: {1,3,6}      205: {3,13}
     55: {3,5}     146: {1,21}       211: {47}
     58: {1,10}    148: {1,1,12}     241: {53}
     59: {17}      155: {3,11}       244: {1,1,18}
     67: {19}      157: {37}         249: {2,23}
For example, 126 is in the sequence because its prime indices {1,2,2,4} have shadows {1,2,2,3}, with product 12, which is also the prime shadow of 126.

The prime terms are A006450.
The LHS (prime shadow) is A181819, with an inverse A181821.
The RHS (product of shadows) is A353394, first appearances A353397.
This is a ranking of the partitions counted by A353396.
Another related comparison is A353399, counted by A353398.
A001222 counts prime factors with multiplicity, distinct A001221.
A003963 gives product of prime indices.
A056239 adds up prime indices, row sums of A112798 and A296150.
A124010 gives prime signature, sorted A118914, product A005361.
A130091 lists numbers with distinct prime exponents, counted by A098859.
A324850 lists numbers divisible by the product of their prime indices.
Numbers divisible by their prime shadow:
- counted by A325702
- listed by A325755
- co-recursive version A325756
- nonprime recursive version A353389
- recursive version A353393, counted by A353426
Cf. A000005, A000961, A003586, A005117, A143773, A182850, A316428, A316438, A320325, A325131, A339095.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
red[n_]:=If[n==1,1,Times@@Prime/@Last/@FactorInteger[n]];
Select[Range[100],Times@@red/@primeMS[#]==red[#]&]

A181819(a(n)) = A353394(a(n)) = Product_i A181819(A112798(a(n),i)).

A353506 Number of integer partitions of n whose parts have the same product as their multiplicities.

Original entry on oeis.org

1, 1, 0, 0, 1, 0, 2, 0, 1, 0, 1, 1, 2, 1, 2, 0, 3, 3, 2, 3, 2, 0, 2, 3, 2, 1, 3, 1, 6, 3, 2, 3, 3, 2, 3, 4, 1, 2, 3, 6, 3, 2, 2, 3, 3, 1, 2, 6, 6, 4, 7, 2, 3, 6, 4, 3, 3, 0, 4, 5, 3, 5, 5, 6, 5, 3, 3, 3, 6, 5, 5, 6, 6, 3, 3, 3, 4, 4, 4, 6, 7, 2, 5, 7, 6, 2, 3, 4, 6, 11, 9, 4, 4, 1, 5, 6, 4, 7, 9, 6, 4

Offset: 0

Gus Wiseman, May 17 2022

nonn

			The a(0) = 1 through a(18) = 2 partitions:
  n= 0: ()
  n= 1: (1)
  n= 2:
  n= 3:
  n= 4: (211)
  n= 5:
  n= 6: (3111) (2211)
  n= 7:
  n= 8: (41111)
  n= 9:
  n=10: (511111)
  n=11: (32111111)
  n=12: (6111111) (22221111)
  n=13: (322111111)
  n=14: (71111111) (4211111111)
  n=15:
  n=16: (811111111) (4411111111) (42211111111)
  n=17: (521111111111) (332111111111) (322211111111)
  n=18: (9111111111) (333111111111)
For example, the partition y = (322111111) has multiplicities (1,2,6) with product 12, and the product of parts is also 3*2*2*1*1*1*1*1*1 = 12, so y is counted under a(13).

LHS (product of parts) is ranked by A003963, counted by A339095.
RHS (product of multiplicities) is ranked by A005361, counted by A266477.
For shadows instead of prime exponents we have A008619, ranked by A003586.
Taking sum instead of product of parts gives A266499.
For shadows instead of prime indices we have A353398, ranked by A353399.
These partitions are ranked by A353503.
Taking sum instead of product of multiplicities gives A353698.
A008284 counts partitions by length.
A098859 counts partitions with distinct multiplicities, ranked by A130091.
A353507 gives product of multiplicities (of exponents) in prime signature.
Cf. A085629, A114640, A116608, A118914, A124010, A319000, A325702, A353394, A353500.
Cf. A000792, A266480.

Table[Length[Select[IntegerPartitions[n], Times@@#==Times@@Length/@Split[#]&]],{n,0,30}]

a(n) = {my(nb=0); forpart(p=n, my(s=Set(p), v=Vec(p)); if (vecprod(vector(#s, i, #select(x->(x==s[i]), v))) == vecprod(v), nb++);); nb;} \\ Michel Marcus, May 20 2022

a(71)-a(100) from Alois P. Heinz, May 20 2022

A353396 Number of integer partitions of n whose Heinz number has prime shadow equal to the product of prime shadows of its parts.

Original entry on oeis.org

1, 0, 1, 1, 0, 2, 0, 3, 1, 3, 4, 3, 7, 5, 9, 8, 12, 15, 15, 20, 21, 25, 31, 33, 38, 42, 46, 56, 61, 67, 78, 76, 96, 100, 114, 131, 130, 157, 157, 185, 200, 214, 236, 253, 275, 302, 333, 351, 386, 408, 440, 486, 515, 564, 596, 633, 691, 734, 800, 854, 899, 964

Offset: 0

Gus Wiseman, May 15 2022

nonn

The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k). This gives a bijective correspondence between positive integers and integer partitions.

We define the prime shadow A181819(n) to be the product of primes indexed by the exponents in the prime factorization of n. For example, 90 = prime(1)*prime(2)^2*prime(3) has prime shadow prime(1)*prime(2)*prime(1) = 12.

			The a(8) = 1 through a(14) = 9 partitions (A..D = 10..13):
  (53)  (72)    (73)    (B)     (75)     (D)      (B3)
        (621)   (532)   (A1)    (651)    (B2)     (752)
        (4221)  (631)   (4331)  (732)    (A21)    (761)
                (4411)          (6321)   (43321)  (A31)
                                (6411)   (44311)  (C11)
                                (43221)           (6521)
                                (44211)           (9221)
                                                  (54221)
                                                  (64211)

The LHS (prime shadow) is A181819, with an inverse A181821.
The RHS (product of prime shadows) is A353394, first appearances A353397.
These partitions are ranked by A353395.
A related comparison is A353398, ranked by A353399.
A001222 counts prime factors with multiplicity, distinct A001221.
A003963 gives product of prime indices.
A056239 adds up prime indices, row sums of A112798 and A296150.
A124010 gives prime signature, sorted A118914, product A005361.
A239455 counts Look-and-Say partitions, ranked by A351294.
A324850 lists numbers divisible by the product of their prime indices.
Cf. A000005, A002033, A143773, A182850, A316428, A325131, A325702, A325755, A353389, A353426.

red[n_]:=If[n==1,1,Times@@Prime/@Last/@FactorInteger[n]];
Table[Length[Select[IntegerPartitions[n],Times@@red/@#==red[Times@@Prime/@#]&]],{n,0,15}]

A353698 Number of integer partitions of n whose product equals their length.

Original entry on oeis.org

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

Offset: 0

Gus Wiseman, May 19 2022

nonn

			The a(n) partitions for selected n (A..H = 10..17):
n=9:    n=21:             n=27:                 n=33:
---------------------------------------------------------------------------
51111   B1111111111       E1111111111111        H1111111111111111
321111  72111111111111    921111111111111111    B211111111111111111111
        531111111111111   54111111111111111111  831111111111111111111111
        4221111111111111                        5511111111111111111111111
                                                333111111111111111111111111

Andrew Howroyd, Table of n, a(n) for n = 0..10000

The LHS (product of parts) is counted by A339095, rank statistic A003963.
The RHS (length) is counted by A008284, rank statistic A001222.
These partitions are ranked by A353699.
A266477 counts partitions by product of multiplicities, rank stat A005361.
A353504 counts partitions w/ product less than product of multiplicities.
A353505 counts partitions w/ product greater than product of multiplicities.
A353506 counts partitions w/ prod equal to prod of mults, ranked by A353503.
Cf. A000041, A002033, A098859, A114640, A181819, A225485, A266499, A319000, A325280, A353398, A353507.

Table[Length[Select[IntegerPartitions[n],Times@@#==Length[#]&]],{n,0,30}]

a(r,m=r,p=1,k=0) = {(p==k+r) + sum(m=2, min(m, (k+r)\p),  self()(r-m, min(m,r-m), p*m, k+1))} \\ Andrew Howroyd, Jan 02 2023

Terms a(61) and beyond from Andrew Howroyd, Jan 02 2023

A353504 Number of integer partitions of n whose product is less than the product of their multiplicities.

Original entry on oeis.org

0, 0, 1, 1, 1, 2, 2, 4, 4, 6, 6, 8, 9, 11, 12, 14, 14, 18, 21, 23, 26, 29, 29, 33, 36, 39, 40, 43, 44, 50, 53, 55, 59, 65, 69, 72, 78, 79, 81, 85, 92, 95, 97, 100, 103, 108, 109, 112, 118, 124, 129, 137, 139, 142, 149, 155, 159, 165, 166, 173, 178, 181, 187

Offset: 0

Gus Wiseman, May 19 2022

nonn

			The a(2) = 1 through a(9) = 6 partitions:
  11   111   1111   2111    21111    22111     221111     222111
                    11111   111111   31111     311111     411111
                                     211111    2111111    2211111
                                     1111111   11111111   3111111
                                                          21111111
                                                          111111111

LHS (product of parts) is counted by A339095, ranked by A003963.
RHS (product of multiplicities) is counted by A266477, ranked by A005361.
The version for greater instead of less is A353505.
The version for equal instead of less is A353506, ranked by A353503.
A181819 gives prime shadow, with an inverse A181821.
A353398 counts partitions with the same product of multiplicities as of shadows, ranked by A353399.
Cf. A002033, A008284, A085629, A097318, A098859, A114640, A116608, A118914, A124010, A304678, A353394, A353500, A353507.

Table[Length[Select[IntegerPartitions[n],Times@@#

A353505 Number of integer partitions of n whose product is greater than the product of their multiplicities.

Original entry on oeis.org

0, 0, 1, 2, 3, 5, 7, 11, 17, 24, 35, 47, 66, 89, 121, 162, 214, 276, 362, 464, 599, 763, 971, 1219, 1537, 1918, 2393, 2966, 3668, 4512, 5549, 6784, 8287, 10076, 12238, 14807, 17898, 21556, 25931, 31094, 37243, 44486, 53075, 63158, 75069, 89025, 105447, 124636

Offset: 0

Gus Wiseman, May 19 2022

nonn

			The a(0) = 0 through a(7) = 11 partitions:
  .  .  (2)  (3)   (4)   (5)    (6)    (7)
             (21)  (22)  (32)   (33)   (43)
                   (31)  (41)   (42)   (52)
                         (221)  (51)   (61)
                         (311)  (222)  (322)
                                (321)  (331)
                                (411)  (421)
                                       (511)
                                       (2221)
                                       (3211)
                                       (4111)

RHS (product of multiplicities) is counted by A266477, ranked by A005361.
LHS (product of parts) is counted by A339095, ranked by A003963.
The version for less instead of greater is A353504.
The version for equality is A353506, ranked by A353503.
A124010 gives prime signature, sorted A118914.
A181819 gives prime shadow, with an inverse A181821.
A353398 counts partitions with the same products of multiplicities as of shadows, ranked by A353399.
Cf. A002033, A008284, A008619, A085629, A097318, A098859, A114640, A116608, A130091, A304678, A353394, A353507.

Table[Length[Select[IntegerPartitions[n],Times@@#>Times@@Length/@Split[#]&]],{n,0,30}]

cp's OEIS Frontend

A353394 Product of prime shadows of prime indices of n (with multiplicity).

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A353399 Numbers whose product of prime exponents equals the product of prime shadows of its prime indices.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A353503 Numbers whose product of prime indices equals their product of prime exponents (prime signature).

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Python

Formula

A353395 Numbers k such that the prime shadow of k equals the product of prime shadows of the prime indices of k.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A353506 Number of integer partitions of n whose parts have the same product as their multiplicities.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

PARI

Extensions

A353396 Number of integer partitions of n whose Heinz number has prime shadow equal to the product of prime shadows of its parts.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A353698 Number of integer partitions of n whose product equals their length.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Extensions

A353504 Number of integer partitions of n whose product is less than the product of their multiplicities.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica