A379681 -id:A379681 - cp's OEIS frontend

A379721 Numbers whose prime indices have sum <= product.

1, 2, 3, 5, 7, 9, 11, 13, 15, 17, 19, 21, 23, 25, 27, 29, 30, 31, 33, 35, 37, 39, 41, 42, 43, 45, 47, 49, 50, 51, 53, 54, 55, 57, 59, 61, 63, 65, 66, 67, 69, 70, 71, 73, 75, 77, 78, 79, 81, 83, 84, 85, 87, 89, 90, 91, 93, 95, 97, 98, 99, 100, 101, 102, 103

Offset: 1

Gus Wiseman, Jan 05 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.
Partitions of this type are counted by A319005.
The complement is A325038.

			The terms together with their prime indices begin:
    1: {}
    2: {1}
    3: {2}
    5: {3}
    7: {4}
    9: {2,2}
   11: {5}
   13: {6}
   15: {2,3}
   17: {7}
   19: {8}
   21: {2,4}
   23: {9}
   25: {3,3}
   27: {2,2,2}
   29: {10}
   30: {1,2,3}

The case of equality is A301987, inequality A325037.
Nonpositive positions in A325036.
A000040 lists the primes, differences A001223.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798, counted by A001222.
A379681 gives sum plus product of prime indices, firsts A379682.
Counting and ranking multisets by comparing sum and product:
- same: A001055 (strict A045778), ranks A301987
- divisible: A057567, ranks A326155
- divisor: A057568, ranks A326149, see A326156, A326172, A379733
- greater: A096276 shifted right, ranks A325038
- greater or equal: A096276, ranks A325044
- less: A114324, ranks A325037, see A318029
- less or equal: A319005, ranks A379721 (this)
- different: A379736, ranks A379722, see A111133
Cf. A000720, A003963, A046022, A075254, A075255, A178503, A175508, A319000, A325034, A325035, A379720.

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

Number k such that A056239(k) <= A003963(k).

A379722 Numbers whose prime indices do not have the same sum as product.

Original entry on oeis.org

1, 4, 6, 8, 10, 12, 14, 15, 16, 18, 20, 21, 22, 24, 25, 26, 27, 28, 32, 33, 34, 35, 36, 38, 39, 40, 42, 44, 45, 46, 48, 49, 50, 51, 52, 54, 55, 56, 57, 58, 60, 62, 63, 64, 65, 66, 68, 69, 70, 72, 74, 75, 76, 77, 78, 80, 81, 82, 85, 86, 87, 88, 90, 91, 92, 93

Offset: 1

Gus Wiseman, Jan 08 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.
Partitions of this type are counted by A379736.
The complement is A301987, counted by A001055.

			The terms together with their prime indices begin:
    1: {}
    4: {1,1}
    6: {1,2}
    8: {1,1,1}
   10: {1,3}
   12: {1,1,2}
   14: {1,4}
   15: {2,3}
   16: {1,1,1,1}
   18: {1,2,2}
   20: {1,1,3}
   21: {2,4}
   22: {1,5}
   24: {1,1,1,2}
   25: {3,3}
   26: {1,6}
   27: {2,2,2}
   28: {1,1,4}
   32: {1,1,1,1,1}

Nonzeros of A325036.
A000040 lists the primes, differences A001223.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798, counted by A001222.
A324851 finds numbers > 1 divisible by the sum of their prime indices.
A379666 counts partitions by sum and product, without 1's A379668.
A379681 gives sum plus product of prime indices, firsts A379682.
Counting and ranking multisets by comparing sum and product:
- same: A001055 (strict A045778), ranks A301987
- divisible: A057567, ranks A326155
- divisor: A057568, ranks A326149, see A379733
- greater: A096276 shifted right, ranks A325038
- greater or equal: A096276, ranks A325044
- less: A114324, ranks A325037, see A318029
- less or equal: A319005, ranks A379721
- different: A379736, ranks A379722 (this)
Cf. A000720, A003963, A025147, A075254, A111133, A178503, A319000, A325041.

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

A075254 a(n) = n + (sum of prime factors of n taken with repetition).

Original entry on oeis.org

1, 4, 6, 8, 10, 11, 14, 14, 15, 17, 22, 19, 26, 23, 23, 24, 34, 26, 38, 29, 31, 35, 46, 33, 35, 41, 36, 39, 58, 40, 62, 42, 47, 53, 47, 46, 74, 59, 55, 51, 82, 54, 86, 59, 56, 71, 94, 59, 63, 62, 71, 69, 106, 65, 71, 69, 79, 89, 118, 72, 122, 95, 76, 76, 83, 82, 134, 89, 95, 84, 142

Offset: 1

Zak Seidov, Sep 10 2002

a(n) = n + A001414(n).

Product of prime factors plus sum of prime factors of n. For minus instead of plus we have A075255, zeros A175787. - Gus Wiseman, Jan 26 2025

			a(6)=11 because 6=2*3, sopfr(6)=2+3=5 and 6+5=11.

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

A000027 gives product of prime factors, indices A003963.
A000040 lists the primes, differences A001223.
A001414 gives sum of prime factors, indices A056239.
A027746 lists prime factors, indices A112798, count A001222.
A075255 gives product of prime factors minus sum of prime factors.
Cf. A000720, A001055, A001222, A008472, A090340, A096461 (iteration), A175508, A319000, A325036, A325037, A325038, A379681, A379682.

a075254 n = n + a001414 n  -- Reinhard Zumkeller, Feb 27 2012

[n eq 1 select 1 else (&+[p[1]*p[2]: p in Factorization(n)]) + n: n in [1..80]]; // G. C. Greubel, Jan 10 2019

A075254 := proc(n)
    n+A001414(n) ;
end proc: # R. J. Mathar, Jul 27 2015

Table[If[n==1,1, n +Plus@@Times@@@FactorInteger@n], {n, 80}] (* G. C. Greubel, Jan 10 2019 *)

a(n) = my(f = factor(n)); n + sum(k=1, #f~, f[k,1]*f[k,2]); \\ Michel Marcus, Feb 22 2017

[n + sum(factor(n)[j][0]*factor(n)[j][1] for j in range(0, len(factor(n)))) for n in range(1, 80)] # G. C. Greubel, Jan 10 2019

From Gus Wiseman, Jan 26 2025: (Start)
First differences are 1 - A090340(n).
a(n) = 2*n - A075255(n).
a(n) = 2*A001414(n) + A075255(n).
(End)

A380955 Sum of prime indices of n (with multiplicity) minus sum of distinct prime indices of n.

Original entry on oeis.org

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

Offset: 1

Gus Wiseman, Feb 11 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.

			The prime indices of 96 are {1,1,1,1,1,2}, with sum 7, and with distinct prime indices {1,2}, with sum 3, so a(96) = 7 - 3 = 4.

Positions of 0's are A005117, complement A013929.
For length instead of sum we have A046660.
Positions of 1's are A081770.
For factors instead of indices we have A280292, firsts A280286 (sorted A381075).
A multiplicative version is A290106.
Counting partitions by this statistic gives A364916.
Dominates A374248.
Positions of first appearances are A380956, sorted A380957.
For prime multiplicities instead of prime indices we have A380958.
For product instead of sum we have A380986.
A000040 lists the primes, differences A001223.
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, A071625, A075254, A075255, A116861, A124010, A136565, A178503, A325033, A325034, A366528, A366749, A379681.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Table[Total[prix[n]]-Total[Union[prix[n]]],{n,100}]

a(n) = A056239(n) - A066328(n).

Additive: a(m*n) = a(m) + a(n) if gcd(m,n) = 1.

A380986 Product of prime indices of n (with multiplicity) minus product of distinct prime indices of n.

Original entry on oeis.org

0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 6, 0, 6, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 6, 0, 0, 0, 12, 6, 0, 0, 0, 6, 0, 0, 0, 0, 0, 0, 0, 0, 8, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 12, 0, 0, 0, 0, 0, 14, 0, 0, 0, 0, 0

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.

			The prime indices of 300 are {1,1,2,3,3}, so a(300) = 18 - 6 = 12.

Positions of nonzeros are A038838.
For length instead of product we have A046660.
For factors instead of indices we have A066503, see A007947 (squarefree kernel).
For sum of factors instead of product of indices we have A280292, see A280286, A381075.
For quotient instead of difference we have A290106, for factors A003557.
For sum instead of product we have A380955 (firsts A380956, sorted A380957).
A000040 lists the primes, differences A001223.
A003963 gives product of prime indices, distinct A156061.
A005117 lists the 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, A081770, A075255, A116861, A178503, A374248, A379681, A380958.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Table[Times@@prix[n]-Times@@Union[prix[n]],{n,100}]

a(n) = A003963(n) - A156061(n).

A379682 Least number whose prime indices have sum + product = n.

Original entry on oeis.org

1, 2, 4, 3, 6, 5, 10, 7, 14, 11, 15, 13, 26, 17, 25, 19, 33, 23, 35, 29, 58, 31, 51, 37, 74, 41, 65, 43, 69, 47, 85, 53, 105, 59, 93, 61, 122, 67, 115, 71, 123, 73, 145, 79, 158, 83, 141, 89, 161, 97, 185, 101, 177, 103, 205, 107, 214, 109, 201, 113, 226, 127

Offset: 1

Gus Wiseman, Jan 05 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.

			The positions of 11 in A379681 are: 15, 22, 56, 72, 160, 384, 1024, so a(11) = 15.

Position of first appearance of n in A379681.
The subtraction A325036 takes the following values:
- zero: A301987, counted by A001055
- negative: A325037, counted by A114324
- positive: A325038, counted by A096276 shifted right
- negative one: A325041, counted by A028422
- one: A325042, counted by A001055 shifted right
- nonnegative: A325044, counted by A096276
- nonpositive: A379721, counted by A319005
A000040 lists the primes, differences A001223.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798, counted by A001222.
Cf. A000720, A003963, A075254, A178503, A175508, A319000, A325032, A325033, A325034, A325035, A325040.

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

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[[#]]]&]

A379841 Numbers that are the sum + product of some set of positive integers > 1. Positions of nonzeros in A379679.

Original entry on oeis.org

1, 4, 6, 8, 10, 11, 12, 14, 16, 17, 18, 19, 20, 22, 23, 24, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 38, 39, 40, 41, 42, 43, 44, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78

Offset: 1

Gus Wiseman, Jan 09 2025

nonn

			For sum + product = 14 we have two possibilities: {7} or {2,4}; so 14 is in the sequence.

The version allowing 1's is A326178.
Positions of nonzeros in A379679.
The complement is A379680.
The non-strict version is A379839, complement A379670.
For unique (instead of some) we have A379842.
Arrays counting multisets by sum and product: A379666, A379671, A379678.
Counting and ranking multisets by comparing sum and product:
- same: A001055 (strict A045778), ranks A301987
- divisible: A057567, ranks A326155
- divisor: A057568, ranks A326149, see A326156, A326172, A379733
- greater: A096276 shifted right, ranks A325038
- greater or equal: A096276, ranks A325044
- less: A114324, ranks A325037, see A318029
- less or equal: A319005, ranks A379721
- different: A379736, ranks A379722, see A111133
A002865 counts partitions into parts > 1, strict A025147.
A318950 counts factorizations by sum.
A379681 gives sum + product of prime indices.
Cf. A069016, A319000, A319057, A319916, A325036, A326152, A379720, A379840.

nn=100;
strfacs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[strfacs[n/d],Min@@#>d&]],{d,Rest[Divisors[n]]}]];
Intersection[Range[nn],Total[#]+Times@@#&/@Join@@Array[strfacs,nn]]

A380344 Product of prime indices minus sum of prime factors of n.

Original entry on oeis.org

1, -1, -1, -3, -2, -3, -3, -5, -2, -4, -6, -5, -7, -5, -2, -7, -10, -4, -11, -6, -2, -8, -14, -7, -1, -9, -1, -7, -19, -4, -20, -9, -4, -12, 0, -6, -25, -13, -4, -8, -28, -4, -29, -10, 1, -16, -32, -9, 2, -3, -6, -11, -37, -3, -1, -9, -6, -21, -42, -6, -43

Offset: 1

Gus Wiseman, Jan 24 2025

sign

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, with product A003963.

			72 has prime factors {2,2,2,3,3} and prime indices {1,1,1,2,2}, so a(72) = 4 - 12 = -8.

Positions of 0 are A331384.
For plus instead of minus we have A380409.
Positions of positives are A380410.
Triangles:
- A027746 = prime factors
- A112798 = prime indices
Statistics:
- A000027 = product of prime factors = row products of A027746
- A001414 = sum of prime factors = row sums of A027746
- A003963 = product of prime indices = row products of A112798
- A056239 = sum of prime indices = row sums of A112798
Combinations:
- A075254 = product of factors + sum of factors = A000027 + A001414
- A075255 = product of factors - sum of factors = A000027 - A001414
- A178503 = product of factors - sum of indices = A000027 - A056239
- A325036 = product of indices - sum of indices = A003963 - A056239
- A379681 = product of indices + sum of indices = A003963 + A056239
- A380344 = product of indices - sum of factors = A003963 - A001414
- A380345 = product of factors + sum of indices = A000027 + A056239
- A380409 = product of indices + sum of factors = A003963 + A001414
A000040 lists the primes, differences A001223.
A001222 counts prime factors with multiplicity.
A055396 gives least prime index, greatest A061395.
Cf. A000720, A175508, A319000, A325032, A325033, A325034, A325035, A325040, A379682, A380220.

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

a(n) = A003963(n) - A001414(n).

cp's OEIS Frontend

A379721 Numbers whose prime indices have sum <= product.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A379722 Numbers whose prime indices do not have the same sum as product.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A075254 a(n) = n + (sum of prime factors of n taken with repetition).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Haskell

Magma

Maple

Mathematica

PARI

Sage

Formula

A380955 Sum of prime indices of n (with multiplicity) minus sum of distinct prime indices of n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A380986 Product of prime indices of n (with multiplicity) minus product of distinct prime indices of n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A379682 Least number whose prime indices have sum + product = n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

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