A257991 -id:A257991 - cp's OEIS frontend

A352131 Number of strict integer partitions of n with same number of even parts as odd conjugate parts.

1, 0, 0, 1, 0, 1, 1, 1, 0, 1, 2, 1, 1, 2, 3, 2, 2, 3, 4, 3, 4, 5, 5, 5, 6, 7, 7, 8, 10, 10, 10, 12, 14, 15, 14, 17, 21, 20, 20, 25, 28, 28, 29, 34, 39, 39, 40, 47, 52, 53, 56, 64, 70, 71, 77, 86, 92, 97, 104, 114, 122

Offset: 0

Gus Wiseman, Mar 15 2022

nonn

			The a(n) strict partitions for selected n:
n = 3      10         14         18         21             24
   ----------------------------------------------------------------------
    (2,1)  (6,4)      (8,6)      (10,8)     (11,10)        (8,7,5,4)
           (4,3,2,1)  (5,4,3,2)  (6,5,4,3)  (8,6,4,3)      (9,8,4,3)
                      (6,5,2,1)  (7,6,3,2)  (8,7,4,2)      (10,8,4,2)
                                 (8,7,2,1)  (10,8,2,1)     (10,9,3,2)
                                            (6,5,4,3,2,1)  (11,10,2,1)
                                                           (8,6,4,3,2,1)

This is the strict case of A277579, ranked by A349157 (zeros of A350849).
The conjugate version is A352130, non-strict A277579 (ranked by A350943).
A000041 counts integer partitions, strict A000009.
A130780 counts partitions with no more even than odd parts, strict A239243.
A171966 counts partitions with no more odd than even parts, strict A239240.
There are four statistics:
- A257991 = # of odd parts, conjugate A344616.
- A257992 = # of even parts, conjugate A350847.
There are four other pairings of statistics:
- A045931, ranked by A325698, strict A239241.
- A045931, ranked by A350848, strict A352129.
- A277103, ranked by A350944.
- A350948, ranked by A350945.
There are three double-pairings of statistics:
- A351976, ranked by A350949.
- A351977, ranked by A350946, strict A352128.
- A351981, ranked by A351980.
The case of all four statistics equal is A351978, ranked by A350947.
Cf. A027187, A027193, A103919, A122111, A236559, A325039, A344607, A344651, A345196, A350942, A350950, A350951.

conj[y_]:=If[Length[y]==0,y,Table[Length[Select[y,#>=k&]],{k,1,Max[y]}]];
Table[Length[Select[IntegerPartitions[n],UnsameQ@@#&&Count[#,?EvenQ]==Count[conj[#],?OddQ]&]],{n,0,30}]

A352141 Numbers whose prime factorization has all even indices and all even exponents.

Original entry on oeis.org

1, 9, 49, 81, 169, 361, 441, 729, 841, 1369, 1521, 1849, 2401, 2809, 3249, 3721, 3969, 5041, 6241, 6561, 7569, 7921, 8281, 10201, 11449, 12321, 12769, 13689, 16641, 17161, 17689, 19321, 21609, 22801, 25281, 26569, 28561, 29241, 29929, 32761, 33489, 35721

Offset: 1

Gus Wiseman, Mar 18 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, sum A056239, length A001222.
A number's prime signature is the sequence of positive exponents in its prime factorization, which is row n of A124010, length A001221, sum A001222.
These are the Heinz numbers of partitions with all even parts and all even multiplicities, counted by A035444.

			The terms together with their prime indices begin:
     1 = 1
     9 = prime(2)^2
    49 = prime(4)^2
    81 = prime(2)^4
   169 = prime(6)^2
   361 = prime(8)^2
   441 = prime(2)^2 prime(4)^2
   729 = prime(2)^6
   841 = prime(10)^2
  1369 = prime(12)^2
  1521 = prime(2)^2 prime(6)^2
  1849 = prime(14)^2
  2401 = prime(4)^4
  2809 = prime(16)^2
  3249 = prime(2)^2 prime(8)^2
  3721 = prime(18)^2
  3969 = prime(2)^4 prime(4)^2

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

The second condition alone (all even exponents) is A000290, counted by A035363.
The restriction to primes is A031215.
These partitions are counted by A035444.
The first condition alone is A066207, counted by A035363, squarefree A258117.
A056166 = exponents all prime, counted by A055923.
A066208 = prime indices all odd, counted by A000009.
A109297 = same indices as exponents, counted by A114640.
A112798 lists prime indices, reverse A296150, length A001222, sum A056239.
A124010 gives prime signature, sorted A118914, length A001221, sum A001222.
A162641 counts even exponents, odd A162642.
A257991 counts odd indices, even A257992.
A325131 = disjoint indices from exponents, counted by A114639.
A346068 = indices and exponents all prime, counted by A351982.
A351979 = odd indices with even exponents, counted by A035457.
A352140 = even indices with odd exponents, counted by A055922 aerated.
A352142 = odd indices with odd exponents, counted by A117958.
Cf. A000720, A028260, A055396, A061395, A181819, A195017, A241638, A268335, A276078, A324524, A324525, A324588, A325698, A325700, A352143.

Select[Range[1000],#==1||And@@EvenQ/@PrimePi/@First/@FactorInteger[#]&&And@@EvenQ/@Last/@FactorInteger[#]&]

from itertools import count, islice
from sympy import factorint, primepi
def A352141_gen(startvalue=1): # generator of terms >= startvalue
    return filter(lambda k:all(map(lambda x: not (x[1]%2 or primepi(x[0])%2), factorint(k).items())),count(max(startvalue,1)))
A352141_list = list(islice(A352141_gen(),30)) # Chai Wah Wu, Mar 18 2022

Intersection of A000290 and A066207.
A257991(a(n)) = A162642(a(n)) = 0.
A257992(a(n)) = A001222(a(n)).
A162641(a(n)) = A001221(a(n)).
Sum_{n>=1} 1/a(n) = 1/Product_{k>=1} (1 - 1/prime(2*k)^2) = 1.163719... . - Amiram Eldar, Sep 19 2022

A372587 Numbers k such that (sum of binary indices of k) + (sum of prime indices of k) is even.

Original entry on oeis.org

6, 7, 10, 11, 13, 14, 18, 19, 22, 23, 24, 25, 26, 27, 28, 30, 31, 33, 34, 35, 37, 38, 39, 40, 41, 44, 49, 50, 52, 56, 57, 58, 62, 69, 70, 72, 74, 75, 76, 77, 82, 83, 85, 86, 87, 88, 90, 92, 96, 98, 100, 102, 103, 104, 106, 107, 108, 109, 112, 117, 120, 123

Offset: 1

Gus Wiseman, May 14 2024

nonn

A binary index of n is any position of a 1 in its reversed binary expansion. The binary indices of n are row n of A048793.
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 odd version is A372586.

			The terms (center), their binary indices (left), and their weakly decreasing prime indices (right) begin:
            {2,3}   6  (2,1)
          {1,2,3}   7  (4)
            {2,4}  10  (3,1)
          {1,2,4}  11  (5)
          {1,3,4}  13  (6)
          {2,3,4}  14  (4,1)
            {2,5}  18  (2,2,1)
          {1,2,5}  19  (8)
          {2,3,5}  22  (5,1)
        {1,2,3,5}  23  (9)
            {4,5}  24  (2,1,1,1)
          {1,4,5}  25  (3,3)
          {2,4,5}  26  (6,1)
        {1,2,4,5}  27  (2,2,2)
          {3,4,5}  28  (4,1,1)
        {2,3,4,5}  30  (3,2,1)
      {1,2,3,4,5}  31  (11)
            {1,6}  33  (5,2)
            {2,6}  34  (7,1)
          {1,2,6}  35  (4,3)
          {1,3,6}  37  (12)
          {2,3,6}  38  (8,1)

Positions of even terms in A372428, zeros A372427.
For minimum (A372437) we have A372440, complement A372439.
For length (A372441, zeros A071814) we have A372591, complement A372590.
For maximum (A372442, zeros A372436) we have A372589, complement A372588.
The complement is A372586.
For just binary indices:
- length: A001969, complement A000069
- sum: A158704, complement A158705
- minimum:  A036554, complement A003159
- maximum: A053754, complement A053738
For just prime indices:
- length: A026424 A028260 (count A027187), complement (count A027193)
- sum: A300061 (count A058696), complement A300063 (count A058695)
- minimum: A340933 (count A026805), complement A340932 (count A026804)
- maximum: A244990 (count A027187), complement A244991 (count A027193)
A005408 lists odd numbers.
A019565 gives Heinz number of binary indices, adjoint A048675.
A029837 gives greatest binary index, least A001511.
A031368 lists odd-indexed primes, even A031215.
A048793 lists binary indices, length A000120, reverse A272020, sum A029931.
A061395 gives greatest prime index, least A055396.
A070939 gives length of binary expansion.
A112798 lists prime indices, length A001222, reverse A296150, sum A056239.
Cf. A000720, A066207, A257991, A300272, A304818, A340604, A341446, A372429-A372433, A372438.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
bix[n_]:=Join@@Position[Reverse[IntegerDigits[n,2]],1];
Select[Range[100],EvenQ[Total[bix[#]]+Total[prix[#]]]&]

Numbers k such that A029931(k) + A056239(k) is even.

A373592 Number of primes congruent to 2 modulo 3 dividing n (with multiplicity).

Original entry on oeis.org

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

Offset: 1

Antti Karttunen, Jun 13 2024

nonn

Antti Karttunen, Table of n, a(n) for n = 1..100000

Cf. A001222, A343430, A373591.
Cf. also A065339, A083025.
Differs from A257991 for the first time at n=29, where a(29) = 1, while A257991(29) = 0.

f[p_, e_] := If[Mod[p, 3] == 2, e, 0]; f[3, e_] := 0; a[1] = 0; a[n_] := Plus @@ f @@@ FactorInteger[n]; Array[a, 100] (* Amiram Eldar, Jun 17 2024 *)

A373592(n) = sum(i=1, #n=factor(n)~, (2==n[1, i]%3)*n[2, i]); \\ After code in A083025

a(n) = A001222(A343430(n)).
a(n) = A001222(n) - (A007949(n)+A373591(n)).
Totally additive with a(3) = 0, a(p) = 1 if p == 2 (mod 3), and a(p) = 0 if p == 1 (mod 3). - Amiram Eldar, Jun 17 2024

A352140 Numbers whose prime factorization has all even prime indices and all odd exponents.

Original entry on oeis.org

1, 3, 7, 13, 19, 21, 27, 29, 37, 39, 43, 53, 57, 61, 71, 79, 87, 89, 91, 101, 107, 111, 113, 129, 131, 133, 139, 151, 159, 163, 173, 181, 183, 189, 193, 199, 203, 213, 223, 229, 237, 239, 243, 247, 251, 259, 263, 267, 271, 273, 281, 293, 301, 303, 311, 317

Offset: 1

Gus Wiseman, Mar 11 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, sum A056239, length A001222.
A number's prime signature is the sequence of positive exponents in its prime factorization, which is row n of A124010, length A001221, sum A001222.
Also Heinz numbers of integer partitions with all even parts and all odd multiplicities, counted by A055922 aerated.
All terms are odd. - Michael S. Branicky, Mar 12 2022

			The terms together with their prime indices begin:
      1 = 1
      3 = prime(2)^1
      7 = prime(4)^1
     13 = prime(6)^1
     19 = prime(8)^1
     21 = prime(4)^1 prime(2)^1
     27 = prime(2)^3
     29 = prime(10)^1
     37 = prime(12)^1
     39 = prime(6)^1 prime(2)^1
     43 = prime(14)^1
     53 = prime(16)^1
     57 = prime(8)^1 prime(2)^1
     61 = prime(18)^1
     71 = prime(20)^1

The restriction to primes is A031215.
These partitions are counted by A055922 (aerated).
The first condition alone is A066207, counted by A035363.
The squarefree case is A258117.
The second condition alone is A268335, counted by A055922.
A056166 = exponents all prime, counted by A055923.
A066208 = prime indices all odd, counted by A000009.
A109297 = same indices as exponents, counted by A114640.
A112798 lists prime indices, reverse A296150, length A001222, sum A056239.
A124010 gives prime signature, sorted A118914, length A001221, sum A001222.
A162641 counts even prime exponents, odd A162642.
A257991 counts odd prime indices, even A257992.
A325131 = disjoint indices from exponents, counted by A114639.
A346068 = indices and exponents all prime, counted by A351982.
A351979 = odd indices with even exponents, counted by A035457.
A352141 = even indices with even exponents, counted by A035444.
A352142 = odd indices with odd exponents, counted by A117958.
Cf. A000720, A028260, A055396, A061395, A181819, A195017, A241638, A276078, A324517, A324524, A324525, A325698.

Select[Range[100],And@@EvenQ/@PrimePi/@First/@FactorInteger[#]&&And@@OddQ/@Last/@FactorInteger[#]&]

from sympy import factorint, primepi
def ok(n):
    if n%2 == 0: return False
    return all(primepi(p)%2==0 and e%2==1 for p, e in factorint(n).items())
print([k for k in range(318) if ok(k)]) # Michael S. Branicky, Mar 12 2022

Intersection of A066207 and A268335.
A257991(a(n)) = A162641(a(n)) = 0.
A162642(a(n)) = A001221(a(n)).
A257992(a(n)) = A001222(a(n)).

A366846 Numbers whose odd prime indices are relatively prime.

Original entry on oeis.org

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

Offset: 1

Gus Wiseman, Oct 29 2023

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 odd prime indices of 115 are {3,9}, and these are not relatively prime, so 115 is not in the sequence.
The odd prime indices of 825 are {3,3,5}, and these are relatively prime, so 825 is in the sequence.

Including even indices gives A289509, ones of A289508, counted by A000837.
The complement when including even indices is A318978, counted by A018783.
The nonzero complement ranks the partitions counted by A366842.
The version for halved even indices is A366847.
The odd case is A366848.
The partitions with these Heinz numbers are counted by A366850.
A000041 counts integer partitions, strict A000009 (also into odds).
A112798 lists prime indices, length A001222, sum A056239.
A257992 counts even prime indices, odd A257991.
A366528 adds up odd prime indices, partition triangle A113685.
A366531 = 2*A366533 adds up even prime indices, triangle A113686/A174713.
Cf. A000720, A055396, A061395, A066208, A087436, A302696, A302697, A325698, A366843, A366844, A366849.

Select[Range[100], GCD@@Select[PrimePi/@First/@FactorInteger[#], OddQ]==1&]

A349150 Heinz numbers of integer partitions with at most one odd part.

Original entry on oeis.org

1, 2, 3, 5, 6, 7, 9, 11, 13, 14, 15, 17, 18, 19, 21, 23, 26, 27, 29, 31, 33, 35, 37, 38, 39, 41, 42, 43, 45, 47, 49, 51, 53, 54, 57, 58, 59, 61, 63, 65, 67, 69, 71, 73, 74, 77, 78, 79, 81, 83, 86, 87, 89, 91, 93, 95, 97, 98, 99, 101, 103, 105, 106, 107, 109

Offset: 1

Gus Wiseman, Nov 10 2021

nonn

The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k), so these are numbers with at most one odd prime index.

Also Heinz numbers of partitions with conjugate alternating sum <= 1.

			The terms and their prime indices begin:
      1: {}          23: {9}         49: {4,4}
      2: {1}         26: {1,6}       51: {2,7}
      3: {2}         27: {2,2,2}     53: {16}
      5: {3}         29: {10}        54: {1,2,2,2}
      6: {1,2}       31: {11}        57: {2,8}
      7: {4}         33: {2,5}       58: {1,10}
      9: {2,2}       35: {3,4}       59: {17}
     11: {5}         37: {12}        61: {18}
     13: {6}         38: {1,8}       63: {2,2,4}
     14: {1,4}       39: {2,6}       65: {3,6}
     15: {2,3}       41: {13}        67: {19}
     17: {7}         42: {1,2,4}     69: {2,9}
     18: {1,2,2}     43: {14}        71: {20}
     19: {8}         45: {2,2,3}     73: {21}
     21: {2,4}       47: {15}        74: {1,12}

The case of no odd parts is A066207, counted by A000041 up to 0's.
Requiring all odd parts gives A066208, counted by A000009.
These partitions are counted by A100824, even-length case A349149.
These are the positions of 0's and 1's in A257991.
The conjugate partitions are ranked by A349151.
The case of one odd part is A349158, counted by A000070 up to 0's.
A056239 adds up prime indices, row sums of A112798.
A122111 is a representation of partition conjugation.
A300063 ranks partitions of odd numbers, counted by A058695 up to 0's.
A316524 gives the alternating sum of prime indices (reverse: A344616).
A325698 ranks partitions with as many even as odd parts, counted by A045931.
A340932 ranks partitions whose least part is odd, counted by A026804.
A345958 ranks partitions with alternating sum 1.
A349157 ranks partitions with as many even parts as odd conjugate parts.
Cf. A000290, A000700, A001222, A027187, A027193, A028260, A035363, A047993, A215366, A257992, A277579, A326841.

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

Union of A066207 (no odd parts) and A349158 (one odd part).

A351979 Numbers whose prime factorization has all odd prime indices and all even prime exponents.

Original entry on oeis.org

1, 4, 16, 25, 64, 100, 121, 256, 289, 400, 484, 529, 625, 961, 1024, 1156, 1600, 1681, 1936, 2116, 2209, 2500, 3025, 3481, 3844, 4096, 4489, 4624, 5329, 6400, 6724, 6889, 7225, 7744, 8464, 8836, 9409, 10000, 10609, 11881, 12100, 13225, 13924, 14641, 15376

Offset: 1

Gus Wiseman, Mar 11 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, sum A056239, length A001222.
A number's prime signature is the sequence of positive exponents in its prime factorization, which is row n of A124010, length A001221, sum A001222.
Also Heinz numbers of integer partitions with all odd parts and all even multiplicities, counted by A035457 (see Emeric Deutsch's comment there).

			The terms together with their prime indices begin:
     1: 1
     4: prime(1)^2
    16: prime(1)^4
    25: prime(3)^2
    64: prime(1)^6
   100: prime(1)^2 prime(3)^2
   121: prime(5)^2
   256: prime(1)^8
   289: prime(7)^2
   400: prime(1)^4 prime(3)^2
   484: prime(1)^2 prime(5)^2
   529: prime(9)^2
   625: prime(3)^4
   961: prime(11)^2
  1024: prime(1)^10
  1156: prime(1)^2 prime(7)^2
  1600: prime(1)^6 prime(3)^2
  1681: prime(13)^2
  1936: prime(1)^4 prime(5)^2

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

The second condition alone (exponents all even) is A000290, counted by A035363.
The distinct prime factors of terms all come from A031368.
These partitions are counted by A035457 or A000009 aerated.
The first condition alone (indices all odd) is A066208, counted by A000009.
The squarefree square roots are A258116, even A258117.
A056166 = exponents all prime, counted by A055923.
A066207 = indices all even, counted by complement of A086543.
A076610 = indices all prime, counted by A000607.
A109297 = same indices as exponents, counted by A114640.
A112798 lists prime indices, reverse A296150, length A001222, sum A056239.
A124010 gives prime signature, sorted A118914, length A001221, sum A001222.
A162641 counts even exponents, odd A162642.
A257991 counts odd indices, even A257992.
A268335 = exponents all odd, counted by A055922.
A325131 = disjoint indices from exponents, counted by A114639.
A346068 = indices and exponents all prime, counted by A351982.
A352140 = even indices with odd exponents, counted by A055922 (aerated).
A352141 = even indices with even exponents, counted by A035444.
A352142 = odd indices and odd multiplicities, counted by A117958.
Cf. A000720, A028260, A045931, A055396, A061395, A106529, A181819, A195017, A276078, A324588, A325698, A325700.

Select[Range[1000],#==1||And@@OddQ/@PrimePi/@First/@FactorInteger[#]&&And@@EvenQ/@Last/@FactorInteger[#]&]

from sympy import factorint, primepi
def ok(n):
    return all(primepi(p)%2==1 and e%2==0 for p, e in factorint(n).items())
print([k for k in range(15500) if ok(k)]) # Michael S. Branicky, Mar 12 2022

Squares of elements of A066208.
Intersection of A066208 and A000290.
A257991(a(n)) = A001222(a(n)).
A162641(a(n)) = A001221(a(n)).
A162642(a(n)) = A257992(a(n)) = 0.
Sum_{n>=1} 1/a(n) = 1/Product_{k>=1} (1 - 1/prime(2*k-1)^2) = 1.4135142... . - Amiram Eldar, Sep 19 2022

A352128 Number of strict integer partitions of n with (1) as many even parts as odd parts, and (2) as many even conjugate parts as odd conjugate parts.

Original entry on oeis.org

1, 0, 0, 1, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 1, 1, 0, 2, 0, 2, 2, 3, 0, 3, 0, 2, 2, 5, 2, 5, 4, 6, 7, 7, 8, 8, 9, 9, 13, 9, 14, 12, 20, 13, 25, 17, 33, 23, 40, 26, 50, 33, 59, 39, 68, 45, 84, 58, 92, 70, 115, 88, 132, 109, 156, 139, 182, 172, 212, 211

Offset: 0

Gus Wiseman, Mar 15 2022

nonn

			The a(n) strict partitions for selected n:
n = 3      18         22          28           31              32
   -----------------------------------------------------------------------
    (2,1)  (8,5,3,2)  (8,6,5,3)   (12,7,5,4)   (10,7,5,4,3,2)  (12,8,7,5)
           (8,6,3,1)  (8,7,5,2)   (12,8,5,3)   (10,7,6,5,2,1)  (12,9,7,4)
                      (12,7,2,1)  (12,9,5,2)   (10,8,5,4,3,1)  (16,9,4,3)
                                  (16,9,2,1)   (10,9,6,3,2,1)  (12,10,7,3)
                                  (12,10,5,1)                  (12,11,7,2)
                                                               (16,11,4,1)

The first condition is A239241, non-strict A045931 (ranked by A325698).
This is the strict version of A351977, ranked by A350946.
The second condition is A352129, non-strict A045931 (ranked by A350848).
A000041 counts integer partitions, strict A000009.
A130780 counts partitions with no more even than odd parts, strict A239243.
A171966 counts partitions with no more odd than even parts, strict A239240.
There are four statistics:
- A257991 = # of odd parts, conjugate A344616.
- A257992 = # of even parts, conjugate A350847.
There are four other pairings of statistics:
- A277579, strict A352131.
- A277103, ranked by A350944, strict A000700.
- A277579, ranked by A350943, strict A352130.
- A350948, ranked by A350945.
There are two other double-pairings of statistics:
- A351976, ranked by A350949.
- A351981, ranked by A351980.
The case of all four statistics equal is A351978, ranked by A350947.
Cf. A000070, A014105, A088218, A098123, A195017, A236559, A236914, A241638, A325700, A350839, A350941.

conj[y_]:=If[Length[y]==0,y,Table[Length[Select[y,#>=k&]],{k,1,Max[y]}]];
Table[Length[Select[IntegerPartitions[n],UnsameQ@@#&&Count[#,?OddQ]==Count[#,?EvenQ]&&Count[conj[#],?OddQ]==Count[conj[#],?EvenQ]&]],{n,0,30}]

A366849 Odd numbers whose halved even prime indices are relatively prime.

Original entry on oeis.org

3, 9, 15, 21, 27, 33, 39, 45, 51, 57, 63, 69, 75, 81, 87, 91, 93, 99, 105, 111, 117, 123, 129, 135, 141, 147, 153, 159, 165, 171, 177, 183, 189, 195, 201, 203, 207, 213, 219, 225, 231, 237, 243, 247, 249, 255, 261, 267, 273, 279, 285, 291, 297, 301, 303, 309

Offset: 1

Gus Wiseman, Nov 01 2023

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 even prime indices of 91 are {4,6}, halved {2,3}, which are relatively prime, so 91 is in the sequence.
The prime indices of 665 are {3,4,8}, even {4,8}, halved {2,4}, which are not relatively prime, so 665 is not in the sequence.
The terms together with their prime indices begin:
   3: {2}
   9: {2,2}
  15: {2,3}
  21: {2,4}
  27: {2,2,2}
  33: {2,5}
  39: {2,6}
  45: {2,2,3}
  51: {2,7}
  57: {2,8}
  63: {2,2,4}
  69: {2,9}
  75: {2,3,3}
  81: {2,2,2,2}
  87: {2,10}
  91: {4,6}
  93: {2,11}
  99: {2,2,5}

For odd instead of halved even prime indices we have A366848.
A version for odd indices A366846, counted by A366850.
This is the odd restriction of A366847, counted by A366845.
A000041 counts integer partitions, strict A000009 (also into odds).
A035363 counts partitions into all even parts, ranks A066207.
A112798 lists prime indices, length A001222, sum A056239.
A162641 counts even prime exponents, odd A162642.
A257992 counts even prime indices, odd A257991.
A289509 lists numbers with relatively prime prime indices, ones of A289508, counted by A000837.
A366528 adds up odd prime indices, partition triangle A113685.
A366531 = 2*A366533 adds up even prime indices, triangle A113686/A174713.
Cf. A000720, A055396, A061395, A066208, A302697, A325698, A366842, A366843.

Select[Range[100], OddQ[#]&&GCD@@Select[PrimePi/@First/@FactorInteger[#], EvenQ]==2&]

cp's OEIS Frontend

A352131 Number of strict integer partitions of n with same number of even parts as odd conjugate parts.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

A352141 Numbers whose prime factorization has all even indices and all even exponents.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Python

Formula

A372587 Numbers k such that (sum of binary indices of k) + (sum of prime indices of k) is even.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A373592 Number of primes congruent to 2 modulo 3 dividing n (with multiplicity).

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A352140 Numbers whose prime factorization has all even prime indices and all odd exponents.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Python

Formula

A366846 Numbers whose odd prime indices are relatively prime.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A349150 Heinz numbers of integer partitions with at most one odd part.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A351979 Numbers whose prime factorization has all odd prime indices and all even prime exponents.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs