A324850 -id:A324850 - cp's OEIS frontend

A324849 Positive integers divisible by none of their prime indices > 1.

1, 2, 3, 4, 5, 7, 8, 9, 10, 11, 13, 14, 16, 17, 19, 20, 21, 22, 23, 25, 26, 27, 29, 31, 32, 33, 34, 35, 37, 38, 39, 40, 41, 43, 44, 46, 47, 49, 50, 51, 52, 53, 57, 58, 59, 61, 62, 63, 64, 65, 67, 68, 69, 70, 71, 73, 74, 76, 77, 79, 80, 81, 82, 83, 85, 86, 87

Offset: 1

Gus Wiseman, Mar 18 2019

nonn

A prime index of n is a number m such that prime(m) divides n.

			The sequence of terms together with their prime indices begins:
   1: {}
   2: {1}
   3: {2}
   4: {1,1}
   5: {3}
   7: {4}
   8: {1,1,1}
   9: {2,2}
  10: {1,3}
  11: {5}
  13: {6}
  14: {1,4}
  16: {1,1,1,1}
  17: {7}
  19: {8}
  20: {1,1,3}
  21: {2,4}
  22: {1,5}
  23: {9}
  25: {3,3}

Robert Israel, Table of n, a(n) for n = 1..10000

Complement of A324771.
Cf. A003963, A056239, A112798, A120383, A289509, A304360, A306844.
Cf. A324695, A324741, A324743, A324756, A324758, A324765, A324846, A324847, A324848, A324850, A324852, A324853, A324856.

filter:= proc(n) andmap(t -> not ((n/numtheory:-pi(t))::integer), numtheory:-factorset(n) minus {2}) end proc:
select(filter, [$1..200]); # Robert Israel, Mar 20 2019

Select[Range[100],!Or@@Cases[If[#==1,{},FactorInteger[#]],{p_,_}:>If[p==2,False,Divisible[#,PrimePi[p]]]]&]

is(n) = my(f=factor(n)[, 1]~, idc=[]); for(k=1, #f, idc=concat(idc, [primepi(f[k])])); for(t=1, #idc, if(idc[t]==1, next); if(n%idc[t]==0, return(0))); 1 \\ Felix Fröhlich, Mar 21 2019

A325032 Product of products of the multisets of prime indices of each prime index of n.

Original entry on oeis.org

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

Offset: 1

Gus Wiseman, Mar 25 2019

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.

			94 has prime indices {1,15} with prime indices {{},{2,3}} with product a(94) = 6.

Cf. A000720, A001055, A001222, A003963, A056239, A112798, A302242, A320325.

Cf. A324850, A324926, A324930, A325031, A325033, A325034, A325035.

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

Fully multiplicative with a(prime(n)) = A003963(n).

A324847 Numbers divisible by at least one of their prime indices.

Original entry on oeis.org

2, 4, 6, 8, 10, 12, 14, 15, 16, 18, 20, 22, 24, 26, 28, 30, 32, 34, 36, 38, 40, 42, 44, 45, 46, 48, 50, 52, 54, 55, 56, 58, 60, 62, 64, 66, 68, 70, 72, 74, 75, 76, 78, 80, 82, 84, 86, 88, 90, 92, 94, 96, 98, 100, 102, 104, 105, 106, 108, 110, 112, 114, 116

Offset: 1

Gus Wiseman, Mar 18 2019

nonn

A prime index of n is a number m such that prime(m) divides n.

If n is in the sequence, then so are all multiples of n. - Robert Israel, Mar 19 2019

			The sequence of terms together with their prime indices begins:
   2: {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}
  22: {1,5}
  24: {1,1,1,2}
  26: {1,6}
  28: {1,1,4}
  30: {1,2,3}
  32: {1,1,1,1,1}
  34: {1,7}
  36: {1,1,2,2}

Robert Israel, Table of n, a(n) for n = 1..10000

Complement of A324846.
Cf. A003963, A056239, A112798, A120383, A289509, A290822, A304360, A306844.
Cf. A324695, A324741, A324743, A324847, A324756, A324758, A324765, A324848, A324849, A324850, A324852, A324853.

filter:= proc(n) local F;
  F:= map(numtheory:-pi, numtheory:-factorset(n));
  ormap(t -> n mod t = 0, F);
end proc:
select(filter, [$1..200]); # Robert Israel, Mar 19 2019

Select[Range[100],Or@@Cases[If[#==1,{},FactorInteger[#]],{p_,_}:>Divisible[#,PrimePi[p]]]&]

isok(n) = {my(f = factor(n)[,1]); for (k=1, #f, if (!(n % primepi(f[k])), return (1));); return (0);} \\ Michel Marcus, Mar 19 2019

A331383 Number of integer partitions of n whose sum of primes of parts is equal to their product of parts.

Original entry on oeis.org

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

Offset: 1

Gus Wiseman, Jan 16 2020

nonn

			The a(n) partitions for n = 7, 9, 18, 24:
  (4,3)  (6,3)    (12,4,1,1)                 (19,4,1)
         (4,4,1)  (11,4,1,1,1)               (18,4,1,1)
                  (8,5,1,1,1,1,1)            (9,6,1,1,1,1,1,1,1,1,1)
                  (4,2,2,2,1,1,1,1,1,1,1,1)
For example, (4,4,1) has sum of primes of parts 7+7+2 = 16 and product of parts 4*4*1 = 16, so is counted under a(9).

The Heinz numbers of these partitions are given by A331384.
Numbers divisible by the sum of their prime factors are A036844.
Partitions whose product is divisible by their sum are A057568.
Numbers divisible by the sum of their prime indices are A324851.
Product of prime indices is divisible by sum of prime indices: A326149.
Partitions whose Heinz number is divisible by their sum are A330950.
Partitions whose Heinz number is divisible by their sum of primes: A330953.
Sum of prime factors is divisible by sum of prime indices: A331380
Partitions whose product divides their sum of primes are A331381.
Cf. A000040, A001414, A324850, A330954, A331378, A331379, A331382, A331415, A331416.

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

a(n) = my(c=0); forpart(v=n, if(vecprod(Vec(v))==sum(i=1, #v, prime(v[i])), c++)); c; \\ Jinyuan Wang, Feb 14 2025

a(71)-a(87) from Robert Price, Apr 10 2020

A324848 Number of prime indices of n (counted with multiplicity) that divide n.

Original entry on oeis.org

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

Offset: 1

Gus Wiseman, Mar 18 2019

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 6776 are {1,1,1,4,5,5}, four of which {1,1,1,4} divide 6776, so a(6776) = 4.

Amiram Eldar, Table of n, a(n) for n = 1..10000

The version for distinct prime indices is A324852.
Positions of zeros are A324846.
Positions of ones are A324856.
Cf. A003963, A056239, A112798, A120383, A323440, A324704, A324847, A324849, A324850, A324853.

Table[Total[Cases[If[n==1,{},FactorInteger[n]],{p_,k_}:>k/;Divisible[n,PrimePi[p]]]],{n,100}]

A324931 Integers in the list of quotients of positive integers by their product of prime indices.

Original entry on oeis.org

1, 2, 4, 3, 8, 6, 16, 12, 7, 5, 32, 9, 24, 14, 10, 64, 18, 48, 28, 20, 128, 36, 19, 13, 21, 15, 96, 27, 56, 40, 256, 72, 38, 26, 11, 42, 30, 192, 54, 112, 17, 80, 512, 144, 76, 52, 22, 84, 60, 384, 49, 23, 35, 53, 108, 37, 224, 25, 57, 39, 34, 160, 63, 1024

Offset: 1

Gus Wiseman, Mar 21 2019

nonn

These quotients are given by A324932(n)/A324933(n).

This is a permutation of the positive integers, with inverse A324934.

			The sequence of quotients n/A003963(n) begins: 1, 2, 3/2, 4, 5/3, 3, 7/4, 8, 9/4, 10/3, 11/5, 6, 13/6, 7/2, 5/2, 16, ...

Cf. A003963, A109129, A120383, A196050, A324846, A324849, A324850, A324922, A324923, A324924, A324925, A324934.

Select[Table[n/Times@@Cases[If[n==1,{},FactorInteger[n]],{p_,k_}:>PrimePi[p]^k],{n,100}],IntegerQ]

a(n) = A324850(n)/A003963(A324850(n)).

A330954 Number of integer partitions of n whose product is divisible by the sum of primes of their parts.

Original entry on oeis.org

0, 0, 0, 0, 0, 0, 1, 0, 2, 3, 4, 2, 3, 9, 8, 18, 15, 25, 35, 44, 50, 70, 71, 93, 141, 158, 226, 286, 337, 439, 532, 648, 789, 1013, 1261, 1454, 1776, 2176, 2701, 3258, 3823, 4606, 5521, 6613, 7810, 9202, 11074, 13145, 15498, 18413, 21818, 25774, 30481, 35718

Offset: 1

Gus Wiseman, Jan 15 2020

nonn

			The a(7) = 1 through a(15) = 8 partitions (empty column not shown):
  43  63   541     83     552   6322   4433       5532
      441  4222    3332   6411  7411   7322       6522
           222211  5222         62221  44321      84111
                   33221               63311      333222
                                       65111      432222
                                       72221      3322221
                                       433211     32222211
                                       4322111    333111111
                                       322211111
For example, the partition (3,3,2,2,1) has product 3 * 3 * 2 * 2 * 1 = 36 and sum of primes 5 + 5 + 3 + 3 + 2 = 18, and 36 is divisible by 18, so (3,3,2,2,1) is counted under a(11).

The Heinz numbers of these partitions are given by A331378.
Partitions whose product is divisible by their sum are A057568.
Numbers divisible by the sum of their prime indices are A324851.
Partitions whose sum of primes divides their product of primes are A330953.
Partitions whose sum of primes divides of their product are A331381.
Partitions whose product equals their sum of primes are A331383.
Cf. A000040, A001414, A036844, A056239, A324850, A326149, A330950, A331379, A331382, A331384, A331415, A331416.

Table[Length[Select[IntegerPartitions[n],Divisible[Times@@#,Plus@@Prime/@#]&]],{n,30}]

A331379 Number of integer partitions of n whose sum of primes of parts is divisible by n.

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 2, 4, 6, 7, 7, 7, 9, 11, 18, 24, 33, 39, 44, 51, 55, 66, 83, 106, 121, 145, 167, 193, 232, 253, 300, 342, 427, 469, 557, 628, 729, 846, 936, 1088, 1195, 1450, 1601, 1895, 2097, 2482, 2782, 3220, 3592, 4073, 4641, 5202, 5911, 6494, 7443, 8294

Offset: 1

Gus Wiseman, Jan 17 2020

nonn

			The a(6) = 1 through a(11) = 7 partitions:
  111111  52       53        54         64          641
          1111111  62        63         541         5411
                   521       531        631         6311
                   11111111  621        5311        53111
                             5211       6211        62111
                             111111111  52111       521111
                                        1111111111  11111111111
For example, the partition (5,4,1,1) has sum of primes 11+7+2+2 = 22, which is divisible by 5+4+1+1 = 11, so (5,4,1,1) is counted under a(11).

The Heinz numbers of these partitions are given by A331380.
Numbers divisible by the sum of their prime factors are A036844.
Partitions whose product is divisible by their sum are A057568.
Numbers divisible by the sum of their prime indices are A324851.
Product of prime indices is divisible by sum of prime indices: A326149.
Partitions whose Heinz number is divisible by their sum are A330950.
Partitions whose Heinz number is divisible by their sum of primes: A330953.
Partitions whose product divides their sum of primes are A331381.
Partitions whose product is equal to their sum of primes are A331383.
Product of prime indices equals sum of prime factors: A331384.
Cf. A000040, A001414, A056239, A324850, A330954, A331378, A331382.

Table[Length[Select[IntegerPartitions[n],Divisible[Plus@@Prime/@#,n]&]],{n,30}]

A352491 n minus the Heinz number of the conjugate of the integer partition with Heinz number n.

Original entry on oeis.org

0, 0, -1, 1, -3, 0, -9, 3, 0, -2, -21, 2, -51, -10, -3, 9, -111, 3, -237, 0, -15, -26, -489, 10, -2, -70, 2, -12, -995, 0, -2017, 21, -39, -158, -19, 15, -4059, -346, -105, 12, -8151, -18, -16341, -36, -5, -722, -32721, 26, -32, 5, -237, -108, -65483, 19, -53

Offset: 1

Gus Wiseman, Mar 20 2022

sign

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.

Problem: What is the image? In the nonnegative case it appears to start: 0, 1, 2, 3, 5, 7, 9, ...

			The partition (4,4,1,1) has Heinz number 196 and its conjugate (4,2,2,2) has Heinz number 189, so a(196) = 196 - 189 = 7.

Positions of zeros are A088902, counted by A000700.
A similar sequence is A175508.
Positions of nonzero terms are A352486, counted by A330644.
Positions of negative terms are A352487, counted by A000701.
Positions of nonnegative terms are A352488, counted by A046682.
Positions of nonpositive terms are A352489, counted by A046682.
Positions of positive terms are A352490, counted by A000701.
A000041 counts integer partitions, strict A000009.
A003963 is product of prime indices, conjugate A329382.
A008480 counts permutations of prime indices, conjugate A321648.
A056239 adds up prime indices, row sums of A112798 and A296150.
A122111 is partition conjugation using Heinz numbers, parts A321649/A321650.
A124010 gives prime signature, sorted A118914, length A001221, sum A001222.
A173018 counts permutations by excedances, weak A123125.
A238744 is partition conjugate of prime signature, ranked by A238745.
Cf. A000720, A114324, A301987, A324850, A325037, A325038, A325040, A347450.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
conj[y_]:=If[Length[y]==0,y,Table[Length[Select[y,#>=k&]],{k,1,Max[y]}]];
Table[n-Times@@Prime/@conj[primeMS[n]],{n,30}]

a(n) = n - A122111(n).

A355735 Number of ways to choose a divisor of each prime index of n (taken in weakly increasing order) such that the result is weakly increasing.

Original entry on oeis.org

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

Offset: 1

Gus Wiseman, Jul 16 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.

			The a(15) = 3 ways are: (1,1), (1,3), (2,3).
The a(18) = 3 ways are: (1,1,1), (1,1,2), (1,2,2).
The a(2) = 1 through a(19) = 4 ways:
  1  1  11  1  11  1  111  11  11  1  111  1  11  11  1111  1  111  1
     2      3  12  2       12  13  5  112  2  12  13        7  112  2
                   4       22              3  14  23           122  4
                                           6                        8

Wikipedia, Cartesian product.

Allowing any choice of divisors gives A355731, firsts A355732.
Choosing a multiset instead of sequence gives A355733, firsts A355734.
Positions of first appearances are A355736.
Choosing only prime divisors gives A355745, variations A355741, A355744.
The reverse version is A355749.
A000005 counts divisors.
A001414 adds up distinct prime divisors, counted by A001221.
A003963 multiplies together the prime indices of n.
A056239 adds up prime indices, row sums of A112798, counted by A001222.
A061395 selects the maximum prime index.
A120383 lists numbers divisible by all of their prime indices.
A324850 lists numbers divisible by the product of their prime indices.
Cf. A000720, A076610, A316524, A335433, A335448, A340827, A340852, A344616, A355737, A355739, A355740, A355742.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Table[Length[Select[Tuples[Divisors/@primeMS[n]],LessEqual@@#&]],{n,100}]

cp's OEIS Frontend

A324849 Positive integers divisible by none of their prime indices > 1.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

PARI

A325032 Product of products of the multisets of prime indices of each prime index of n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A324847 Numbers divisible by at least one of their prime indices.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

PARI

A331383 Number of integer partitions of n whose sum of primes of parts is equal to their product of parts.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

PARI

Extensions

A324848 Number of prime indices of n (counted with multiplicity) that divide n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A324931 Integers in the list of quotients of positive integers by their product of prime indices.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A330954 Number of integer partitions of n whose product is divisible by the sum of primes of their parts.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

A331379 Number of integer partitions of n whose sum of primes of parts is divisible by n.

Views

Author

Keywords

Examples

Crossrefs

Programs