A380955 -id:A380955 - cp's OEIS frontend

A380958 Number of prime factors of n (with multiplicity) minus sum of distinct prime exponents of n.

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

Offset: 1

Gus Wiseman, Feb 13 2025

nonn

			The prime factors of 2100 are {2,2,3,5,5,7}, with distinct multiplicities {1,2}, so a(2100) = 6 - (1+2) = 3.

Positions of 0's are A130091, complement A130092.
The RHS (sum of distinct prime exponents) is A136565.
For prime factors instead of exponents see A280292, firsts A280286, sorted A381075.
For prime indices instead of exponents see A380955, firsts A380956, sorted A380957.
Position of first appearance of n is A380989(n).
A000040 lists the primes, differences A001223.
A005117 lists squarefree numbers, complement A013929.
A005361 gives product of prime signature.
A055396 gives least prime index, greatest A061395.
A056239 (reverse A296150) adds up prime indices, row sums of A112798, counted by A001222.
A124010 lists prime exponents (signature); see A001222, A001221, A051903, A051904.
Cf. A000720, A046660, A071625, A075254, A075255, A076694, A081770, A116861, A178503, A290106, A380986.

Table[PrimeOmega[n]-Total[Union[Last/@If[n==1,{},FactorInteger[n]]]],{n,100}]

a(n) = A001222(n) - A136565(n).

A380989 Position of first appearance of n in A380958 (number of prime factors minus sum of distinct prime exponents).

Original entry on oeis.org

1, 6, 30, 210, 900, 7776, 27000, 279936, 810000, 9261000, 24300000, 362797056, 729000000, 13060694016, 21870000000, 408410100000, 656100000000, 16926659444736, 19683000000000, 609359740010496, 590490000000000, 18010885410000000, 17714700000000000

Offset: 0

Gus Wiseman, Feb 18 2025

nonn

Is this sequence strictly increasing?
From David Consiglio, Jr., Feb 20 2025: (Start)
The answer to the question above is: no, a(21) < a(20). And all subsequent odd indexed terms are lower than their even predecessors.
All terms must be a product of x primes (with multiplicity) to the y power where x-y = n and x mod y = 0. There are very few combinations of numbers that meet these criteria, so checking all of them to find the minimum outcome is quite fast.
Example --> n=5
6 primes to the 1 power --> 6 distinct primes
  2*3*5*7*11*13 = 30030
7 primes to the 2 power -- disallowed (5 mod 2 = 1)
8 primes to the 3 power -- disallowed (4 mod 3 = 1)
9 primes to the 4 power -- disallowed (9 mod 4 = 1)
10 primes to the 5 power --> 2 distinct primes
  2*2*2*2*2*3*3*3*3*3 = 7776
The minimum value is 7776 and thus a(5) = 7776. (End)

			The terms together with their prime indices begin:
        1: {}
        6: {1,2}
       30: {1,2,3}
      210: {1,2,3,4}
      900: {1,1,2,2,3,3}
     7776: {1,1,1,1,1,2,2,2,2,2}
    27000: {1,1,1,2,2,2,3,3,3}
   279936: {1,1,1,1,1,1,1,2,2,2,2,2,2,2}
   810000: {1,1,1,1,2,2,2,2,3,3,3,3}
  9261000: {1,1,1,2,2,2,3,3,3,4,4,4}

David Consiglio, Jr., Table of n, a(n) for n = 0..100
David Consiglio, Jr., Python program

Position of first appearance of n in A001222 - A136565.
For factors instead of exponents we have A280286 (sorted A381075), firsts of A280292.
For indices instead of exponents we have A380956 (sorted A380957), firsts of A380955.
A000040 lists the primes, differences A001223.
A005361 gives product of prime exponents.
A055396 gives least prime index, greatest A061395.
A056239 (reverse A296150) adds up prime indices, row sums of A112798.
A124010 lists prime exponents (signature); A001221, A051903, A051904.
Cf. A046660, A071625, A075254, A075255, A076694, A130091, A130092, A290106, A380986.

prisig[n_]:=If[n==1,{},Last/@FactorInteger[n]];
q=Table[Total[prisig[n]]-Total[Union[prisig[n]]],{n,10000}];
mnrm[s_]:=If[Min@@s==1,mnrm[DeleteCases[s-1,0]]+1,0];
Table[Position[q,k][[1,1]],{k,0,mnrm[q+1]-1}]

a(10)-a(11) from Michel Marcus, Feb 20 2025

a(12) and beyond from David Consiglio, Jr., Feb 20 2025

A380987 Position of first appearance of n in A290106 (product of prime indices divided by product of distinct prime indices).

Original entry on oeis.org

1, 9, 25, 27, 121, 169, 289, 81, 125, 841, 961, 675, 1681, 1849, 2209, 243, 3481, 1125, 4489, 3267, 5329, 6241, 6889, 2025, 1331, 10201, 625, 7803, 11881, 12769, 16129, 729, 18769, 19321, 22201, 2197, 24649, 26569, 27889, 9801, 32041, 32761, 36481, 25947

Offset: 1

Gus Wiseman, Feb 14 2025

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.

All terms are odd.

			The first position of 12 in A290106 is 675, with prime indices {2,2,2,3,3}, so a(12) = 675.
The terms together with their prime indices begin:
      1: {}
      9: {2,2}
     25: {3,3}
     27: {2,2,2}
    121: {5,5}
    169: {6,6}
    289: {7,7}
     81: {2,2,2,2}
    125: {3,3,3}
    841: {10,10}
    961: {11,11}
    675: {2,2,2,3,3}
   1681: {13,13}
   1849: {14,14}
   2209: {15,15}
    243: {2,2,2,2,2}
   3481: {17,17}
   1125: {2,2,3,3,3}

For factors instead of indices we have A064549 (sorted A001694), firsts of A003557.
The additive version for factors is A280286 (sorted A381075), firsts of A280292.
Position of first appearance of n in A290106.
The additive version is A380956 (sorted A380957), firsts of A380955.
For difference instead of quotient see A380986.
The sorted version is A380988.
A000040 lists the primes, differences A001223.
A003963 gives product of prime indices, distinct A156061.
A005117 lists squarefree numbers, complement A013929.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798, length A001222.
A304038 lists distinct prime indices, sum A066328, length A001221.
Cf. A000720, A007947, A046660, A066503, A071625, A136565, A178503, A175508, A325034, A379681.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
mnrm[s_]:=If[Min@@s==1,mnrm[DeleteCases[s-1,0]]+1,0];
q=Table[Times@@prix[n]/Times@@Union[prix[n]],{n,10000}];
Table[Position[q,k][[1,1]],{k,mnrm[q]}]

A380988 Sorted positions of first appearances in A290106 (product of prime indices divided by product of distinct prime indices).

Original entry on oeis.org

1, 9, 25, 27, 81, 121, 125, 169, 243, 289, 625, 675, 729, 841, 961, 1125, 1331, 1681, 1849, 2025, 2187, 2197, 2209, 3125, 3267, 3481, 4489, 4913, 5329, 5625, 6075, 6241, 6561, 6889, 7803, 9801, 10125, 10201, 11881, 11979, 12769, 14641, 15125, 15625, 16129

Offset: 1

Gus Wiseman, Feb 18 2025

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.

All terms are odd.

			The prime indices of 225 are {2,2,3,3}, with image A290106(225) = 6. The prime indices of 169 are {6,6}, also with image 6. Since the latter is the first with image 6, 169 is in the sequence, and 225 is not.
The terms together with their prime indices begin:
     1: {}
     9: {2,2}
    25: {3,3}
    27: {2,2,2}
    81: {2,2,2,2}
   121: {5,5}
   125: {3,3,3}
   169: {6,6}
   243: {2,2,2,2,2}
   289: {7,7}
   625: {3,3,3,3}
   675: {2,2,2,3,3}
   729: {2,2,2,2,2,2}
   841: {10,10}
   961: {11,11}
  1125: {2,2,3,3,3}
  1331: {5,5,5}
  1681: {13,13}
  1849: {14,14}
  2025: {2,2,2,2,3,3}

For factors instead of indices we have A001694 (unsorted A064549), firsts of A003557.
Sorted firsts of A290106.
The additive version is A380957 (sorted A380956), firsts of A380955.
For difference instead of quotient see A380986.
The unsorted version is A380987.
The additive version for factors is A381075 (unsorted A280286), firsts of A280292.
A000040 lists the primes, differences A001223.
A003963 gives product of prime indices, distinct A156061.
A005117 lists squarefree numbers, complement A013929.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798, length A001222.
A304038 lists distinct prime indices, sum A066328, length A001221.
Cf. A000720, A007947, A046660, A066503, A071625, A136565, A178503, A175508, A325034, A379681.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
q=Table[Times@@prix[n]/Times@@Union[prix[n]],{n,1000}];
Select[Range[Length[q]],FreeQ[Take[q,#-1],q[[#]]]&]

A381439 Numbers whose exponent of 2 in their canonical prime factorization is not larger than all the other exponents.

Original entry on oeis.org

3, 5, 6, 7, 9, 10, 11, 13, 14, 15, 17, 18, 19, 21, 22, 23, 25, 26, 27, 29, 30, 31, 33, 34, 35, 36, 37, 38, 39, 41, 42, 43, 45, 46, 47, 49, 50, 51, 53, 54, 55, 57, 58, 59, 61, 62, 63, 65, 66, 67, 69, 70, 71, 73, 74, 75, 77, 78, 79, 81, 82, 83, 85, 86, 87, 89

Offset: 1

Gus Wiseman, Mar 02 2025

nonn

First differs from A335740 in lacking 72, which has prime indices {1,1,1,2,2} and section-sum partition (3,3,1).
Also numbers whose section-sum partition of prime indices (A381436) ends with a number > 1.
Includes all squarefree numbers (A005117) except 2.

			The terms together with their prime indices begin:
     3: {2}        25: {3,3}        45: {2,2,3}
     5: {3}        26: {1,6}        46: {1,9}
     6: {1,2}      27: {2,2,2}      47: {15}
     7: {4}        29: {10}         49: {4,4}
     9: {2,2}      30: {1,2,3}      50: {1,3,3}
    10: {1,3}      31: {11}         51: {2,7}
    11: {5}        33: {2,5}        53: {16}
    13: {6}        34: {1,7}        54: {1,2,2,2}
    14: {1,4}      35: {3,4}        55: {3,5}
    15: {2,3}      36: {1,1,2,2}    57: {2,8}
    17: {7}        37: {12}         58: {1,10}
    18: {1,2,2}    38: {1,8}        59: {17}
    19: {8}        39: {2,6}        61: {18}
    21: {2,4}      41: {13}         62: {1,11}
    22: {1,5}      42: {1,2,4}      63: {2,2,4}
    23: {9}        43: {14}         65: {3,6}

The LHS (exponent of 2) is A007814.
The complement is A360013 = 2*A360015 (if we prepend 1), counted by A241131 (shifted right and starting with 1 instead of 0).
The case of equality is A360014, inclusive A360015.
The RHS (greatest exponent of an odd prime factor) is A375669.
These are positions of terms > 1 in A381437.
Partitions of this type are counted by A381544.
A000040 lists the primes, differences A001223.
A051903 gives greatest prime exponent, least A051904.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798.
A122111 represents conjugation in terms of Heinz numbers.
A239455 counts Look-and-Say partitions, complement A351293.
A381436 gives section-sum partition of prime indices, Heinz number A381431.
A381438 counts partitions by last part part of section-sum partition.
Cf. A000720, A001221, A001222, A001694, A003557, A005117, A066328, A130091, A181819, A212166, A380955.

Select[Range[100],FactorInteger[2*#][[1,2]]-1<=Max@@Last/@Rest[FactorInteger[2*#]]&]

Positive integers n such that A007814(n) <= A375669(n).

A381543 Numbers > 1 whose greatest prime index (A061395), number of distinct prime factors (A001221), and greatest prime multiplicity (A051903) are all equal.

Original entry on oeis.org

2, 12, 18, 36, 120, 270, 360, 540, 600, 750, 1080, 1350, 1500, 1680, 1800, 2250, 2700, 3000, 4500, 5040, 5400, 5670, 6750, 8400, 9000, 11340, 11760, 13500, 15120, 22680, 25200, 26250, 27000, 28350, 35280, 36960, 39690, 42000, 45360, 52500, 56700, 58800, 72030

Offset: 1

Gus Wiseman, Mar 24 2025

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, sum A056239.

			The terms together with their prime indices begin:
      2: {1}
     12: {1,1,2}
     18: {1,2,2}
     36: {1,1,2,2}
    120: {1,1,1,2,3}
    270: {1,2,2,2,3}
    360: {1,1,1,2,2,3}
    540: {1,1,2,2,2,3}
    600: {1,1,1,2,3,3}
    750: {1,2,3,3,3}
   1080: {1,1,1,2,2,2,3}
   1350: {1,2,2,2,3,3}
   1500: {1,1,2,3,3,3}
   1680: {1,1,1,1,2,3,4}
   1800: {1,1,1,2,2,3,3}

Counting partitions by the LHS gives A008284, rank statistic A061395.
Without the RHS we have A055932, counted by A000009.
Counting partitions by the RHS gives A091602, rank statistic A051903.
Counting partitions by the middle statistic gives A116608/A365676, rank stat A001221.
Without the LHS we have A212166, counted by A239964.
Without the middle statistic we have A381542, counted by A240312.
Partitions of this type are counted by A382302.
A000040 lists the primes, differences A001223.
A001222 counts prime factors, distinct A001221.
A047993 counts balanced partitions, ranks A106529.
A051903 gives greatest prime exponent, least A051904.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798.
A122111 represents partition conjugation in terms of Heinz numbers.
Cf. A000720, A048767, A062457, A066328, A130091, A317090, A363719, A363740, A380955, A381632.

Select[Range[2,1000],PrimePi[FactorInteger[#][[-1,1]]]==PrimeNu[#]==Max@@FactorInteger[#][[All,2]]&]

A061395(a(n)) = A001221(a(n)) = A051903(a(n)).

A381076 Sorted positions of first appearances in A066503 (n minus squarefree kernel of n).

Original entry on oeis.org

1, 4, 8, 16, 18, 20, 24, 25, 27, 32, 44, 48, 50, 52, 54, 64, 68, 72, 75, 76, 80, 81, 92, 96, 98, 108, 112, 116, 121, 125, 128, 144, 148, 152, 160, 162, 164, 172, 175, 176, 188, 189, 192, 196, 198, 200, 212, 216, 232, 236, 242, 243, 244, 256, 260, 264, 268, 272

Offset: 1

Gus Wiseman, Feb 18 2025

nonn

In A066503, each value appears for the first time at one of these positions.

For quotient instead of difference we have A001694, sorted firsts of A003557.
Sorted positions of first appearances in A066503.
For indices and sum we have A380957 (unsorted A380956), firsts of A380955.
For indices and quotient we have A380988 (unsorted A380987), firsts of A290106.
For sum instead of product we have A381075, sorted firsts of A280292, see A280286.
For indices instead of factors we have A381077, sorted firsts of A380986.
A000040 lists the primes, differences A001223.
A001414 adds up prime factors (indices A056239), row sums of A027746 (indices A112798).
A003963 gives product of prime indices, distinct A156061.
A005117 lists squarefree numbers, complement A013929.
A007947 gives squarefree kernel.
A020639 gives least prime factor (index A055396), greatest A061395 (index A006530).
Cf. A001221, A001222, A038838, A046660, A075255, A081770, A116861, A136565, A178503, A175508, A304038, A380989.

prifacs[n_]:=If[n==1,{},Flatten[Apply[ConstantArray,FactorInteger[n],{1}]]];
q=Table[Times@@prifacs[n]-Times@@Union[prifacs[n]],{n,1000}];
Select[Range[Length[q]],FreeQ[Take[q,#-1],q[[#]]]&]

A381632 Numbers such that (greatest prime exponent) = (sum of distinct prime indices).

Original entry on oeis.org

2, 9, 24, 54, 72, 80, 108, 125, 216, 224, 400, 704, 960, 1215, 1250, 1568, 1664, 2000, 2401, 2500, 2688, 2880, 4352, 4800, 5000, 5103, 6075, 7290, 7744, 8064, 8448, 8640, 8960, 9375, 9728, 10000, 10976, 14400, 14580, 18816, 19968, 21632, 23552, 24000, 24057

Offset: 1

Gus Wiseman, Mar 24 2025

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, sum A056239.

			The terms together with their prime indices begin:
      2: {1}
      9: {2,2}
     24: {1,1,1,2}
     54: {1,2,2,2}
     72: {1,1,1,2,2}
     80: {1,1,1,1,3}
    108: {1,1,2,2,2}
    125: {3,3,3}
    216: {1,1,1,2,2,2}
    224: {1,1,1,1,1,4}
    400: {1,1,1,1,3,3}
    704: {1,1,1,1,1,1,5}
    960: {1,1,1,1,1,1,2,3}

For (length) instead of (sum of distinct) we have A000961.
Including number of parts gives A062457 (degenerate).
Counting partitions by the LHS gives A091602, rank statistic A051903.
Counting partitions by the RHS gives A116861, rank statistic A066328.
Partitions of this type are counted by A381079.
A001222 counts prime factors, distinct A001221.
A047993 counts partitions with max part = length, ranks A106529.
A051903 gives greatest prime exponent, least A051904.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798.
A239455 counts Look-and-Say partitions, complement A351293.
A239964 counts partitions with max multiplicity = length, ranks A212166.
A240312 counts partitions with max = max multiplicity, ranks A381542.
A382302 counts partitions with max = max multiplicity = distinct length, ranks A381543.
Cf. A000720, A048767, A130091, A246655, A317090, A380955, A381437, A381439.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],Max@@Last/@FactorInteger[#]==Total[Union[prix[#]]]&]

A051903(a(n)) = A066328(a(n)).

A381077 Sorted positions of first appearances in A380986 (product of prime indices minus product of distinct prime indices).

Original entry on oeis.org

1, 9, 25, 49, 63, 81, 99, 121, 125, 135, 169, 171, 245, 279, 289, 343, 361, 363, 369, 375, 387, 477, 529, 531, 575, 603, 625, 675, 711, 729, 747, 833, 841, 847, 873, 875, 891, 909, 961, 981, 1029, 1083, 1125, 1127, 1179, 1225, 1251, 1377, 1413, 1445, 1467

Offset: 1

Gus Wiseman, Feb 20 2025

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 position of first appearance in a sequence q is an index k such that q(k) is different from q(j) for all j < k.

All terms are odd.

			The terms together with their prime indices begin:
     1: {}
     9: {2,2}
    25: {3,3}
    49: {4,4}
    63: {2,2,4}
    81: {2,2,2,2}
    99: {2,2,5}
   121: {5,5}
   125: {3,3,3}
   135: {2,2,2,3}
   169: {6,6}
   171: {2,2,8}
   245: {3,4,4}
   279: {2,2,11}

For length instead of product we have A151821, firsts of A046660.
For factors instead of indices we have A381076, sorted firsts of A066503.
For sum of factors instead of product of indices we have A381075 (unsorted A280286), A280292.
For quotient instead of difference we have A380988 (unsorted A380987), firsts of A290106.
For quotient and factors we have A001694 (unsorted A064549), firsts of A003557.
For sum instead of product we have A380957 (unsorted A380956), firsts of A380955.
Sorted firsts of A380986, which has nonzero terms at positions A038838.
A000040 lists the primes, differences A001223.
A003963 gives product of prime indices, distinct A156061.
A005117 lists the squarefree numbers, complement A013929.
A007947 gives squarefree kernel.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798, length A001222.
A304038 lists distinct prime indices, sum A066328, length A001221.
Cf. A000079, A000720, A001222, A081770, A075255, A116861, A178503, A374248, A379681, A380958.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
q=Table[Times@@prix[n]-Times@@Union[prix[n]],{n,10000}];
Select[Range[Length[q]],FreeQ[Take[q,#-1],q[[#]]]&]

cp's OEIS Frontend

A380958 Number of prime factors of n (with multiplicity) minus sum of distinct prime exponents of n.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

Formula

A380989 Position of first appearance of n in A380958 (number of prime factors minus sum of distinct prime exponents).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Extensions

A380987 Position of first appearance of n in A290106 (product of prime indices divided by product of distinct prime indices).

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A380988 Sorted positions of first appearances in A290106 (product of prime indices divided by product of distinct prime indices).

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A381439 Numbers whose exponent of 2 in their canonical prime factorization is not larger than all the other exponents.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A381543 Numbers > 1 whose greatest prime index (A061395), number of distinct prime factors (A001221), and greatest prime multiplicity (A051903) are all equal.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A381076 Sorted positions of first appearances in A066503 (n minus squarefree kernel of n).

Views

Author

Keywords

Comments

Crossrefs

Programs

Mathematica

A381632 Numbers such that (greatest prime exponent) = (sum of distinct prime indices).

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A381077 Sorted positions of first appearances in A380986 (product of prime indices minus product of distinct prime indices).

Views

Author