A026804 -id:A026804 - cp's OEIS frontend

A340855 Numbers that can be factored into factors > 1, the least of which is odd.

3, 5, 7, 9, 11, 12, 13, 15, 17, 18, 19, 21, 23, 24, 25, 27, 29, 30, 31, 33, 35, 36, 37, 39, 40, 41, 42, 43, 45, 47, 48, 49, 50, 51, 53, 54, 55, 56, 57, 59, 60, 61, 63, 65, 66, 67, 69, 70, 71, 72, 73, 75, 77, 78, 79, 80, 81, 83, 84, 85, 87, 89, 90, 91, 93, 95

Offset: 1

Gus Wiseman, Feb 04 2021

nonn

These are numbers that are odd or have an odd divisor 1 < d <= n/d.

			The sequence of terms together with their prime indices begins:
     3: {2}          27: {2,2,2}      48: {1,1,1,1,2}
     5: {3}          29: {10}         49: {4,4}
     7: {4}          30: {1,2,3}      50: {1,3,3}
     9: {2,2}        31: {11}         51: {2,7}
    11: {5}          33: {2,5}        53: {16}
    12: {1,1,2}      35: {3,4}        54: {1,2,2,2}
    13: {6}          36: {1,1,2,2}    55: {3,5}
    15: {2,3}        37: {12}         56: {1,1,1,4}
    17: {7}          39: {2,6}        57: {2,8}
    18: {1,2,2}      40: {1,1,1,3}    59: {17}
    19: {8}          41: {13}         60: {1,1,2,3}
    21: {2,4}        42: {1,2,4}      61: {18}
    23: {9}          43: {14}         63: {2,2,4}
    24: {1,1,1,2}    45: {2,2,3}      65: {3,6}
    25: {3,3}        47: {15}         66: {1,2,5}
For example, 72 is in the sequence because it has three suitable factorizations: (3*3*8), (3*4*6), (3*24).

The version looking at greatest factor is A057716.
The version for twice-balanced is A340657, with complement A340656.
These factorization are counted by A340832.
The complement is A340854.
A033676 selects the maximum inferior divisor.
A038548 counts inferior divisors, listed by A161906.
A055396 selects the least prime index.
- Factorizations -
A001055 counts factorizations.
A045778 counts strict factorizations.
A316439 counts factorizations by product and length.
A339890 counts factorizations of odd length.
A340653 counts balanced factorizations.
- Odd -
A000009 counts partitions into odd parts.
A024429 counts set partitions of odd length.
A026424 lists numbers with odd Omega.
A066208 lists Heinz numbers of partitions into odd parts.
A067659 counts strict partitions of odd length (A030059).
A174726 counts ordered factorizations of odd length.
A332304 counts strict compositions of odd length.
A340692 counts partitions of odd rank.
Cf. A026804, A027193, A050320, A244991, A340101, A340102, A340596, A340597, A340607, A340654, A340655, A340852.

Select[Range[100],Function[n,n>1&&(OddQ[n]||Select[Rest[Divisors[n]],OddQ[#]&&#<=n/#&]!={})]]

A340385 Number of integer partitions of n into an odd number of parts, the greatest of which is odd.

Original entry on oeis.org

1, 0, 2, 0, 3, 1, 6, 3, 10, 7, 18, 15, 30, 28, 51, 50, 82, 87, 134, 145, 211, 235, 331, 375, 510, 586, 779, 901, 1172, 1366, 1750, 2045, 2581, 3026, 3778, 4433, 5476, 6430, 7878, 9246, 11240, 13189, 15931, 18670, 22417, 26242, 31349, 36646, 43567, 50854

Offset: 1

Gus Wiseman, Jan 08 2021

nonn

			The a(3) = 2 through a(10) = 7 partitions:
  3     5       321   7         332     9           532
  111   311           322       521     333         541
        11111         331       32111   522         721
                      511               531         32221
                      31111             711         33211
                      1111111           32211       52111
                                        33111       3211111
                                        51111
                                        3111111
                                        111111111

Partitions of odd length are counted by A027193, ranked by A026424.
Partitions with odd maximum are counted by A027193, ranked by A244991.
The Heinz numbers of these partitions are given by A340386.
Other cases of odd length:
- A024429 counts set partitions of odd length.
- A067659 counts strict partitions of odd length.
- A089677 counts ordered set partitions of odd length.
- A166444 counts compositions of odd length.
- A174726 counts ordered factorizations of odd length.
- A332304 counts strict compositions of odd length.
- A339890 counts factorizations of odd length.
A000009 counts partitions into odd parts, ranked by A066208.
A026804 counts partitions whose least part is odd.
A058695 counts partitions of odd numbers, ranked by A300063.
A072233 counts partitions by sum and length.
A101707 counts partitions with odd rank.
A160786 counts odd-length partitions of odd numbers, ranked by A300272.
A340101 counts factorizations into odd factors.
A340102 counts odd-length factorizations into odd factors.
Cf. A000700, A027187, A078408, A174725, A236914.

Table[Length[Select[IntegerPartitions[n],OddQ[Length[#]*Max[#]]&]],{n,30}]

A340692 Number of integer partitions of n of odd rank.

Original entry on oeis.org

0, 0, 2, 0, 4, 2, 8, 4, 14, 12, 26, 22, 44, 44, 76, 78, 126, 138, 206, 228, 330, 378, 524, 602, 814, 950, 1252, 1466, 1900, 2238, 2854, 3362, 4236, 5006, 6232, 7356, 9078, 10720, 13118, 15470, 18800, 22152, 26744, 31456, 37772, 44368, 53002, 62134, 73894

Offset: 0

Gus Wiseman, Jan 29 2021

nonn

The Dyson rank of a nonempty partition is its maximum part minus its length. The rank of an empty partition is undefined.

			The a(0) = 0 through a(9) = 12 partitions (empty columns indicated by dots):
  .  .  (2)   .  (4)     (32)   (6)       (52)     (8)         (54)
        (11)     (31)    (221)  (33)      (421)    (53)        (72)
                 (211)          (51)      (3211)   (71)        (432)
                 (1111)         (222)     (22111)  (422)       (441)
                                (411)              (431)       (621)
                                (3111)             (611)       (3222)
                                (21111)            (3221)      (3321)
                                (111111)           (3311)      (5211)
                                                   (5111)      (22221)
                                                   (22211)     (42111)
                                                   (41111)     (321111)
                                                   (311111)    (2211111)
                                                   (2111111)
                                                   (11111111)

Freeman J. Dyson, A new symmetry of partitions, Journal of Combinatorial Theory 7.1 (1969): 56-61.
FindStat, St000145: The Dyson rank of a partition

Note: A-numbers of Heinz-number sequences are in parentheses below.
The case of length/maximum instead of rank is A027193 (A026424/A244991).
The case of odd positive rank is A101707 is (A340604).
The strict case is A117193.
The even version is A340601 (A340602).
The Heinz numbers of these partitions are (A340603).
A072233 counts partitions by sum and length.
A168659 counts partitions whose length is divisible by maximum.
A200750 counts partitions whose length and maximum are relatively prime.
- Rank -
A047993 counts partitions of rank 0 (A106529).
A063995/A105806 count partitions by Dyson rank.
A064173 counts partitions of positive/negative rank (A340787/A340788).
A064174 counts partitions of nonpositive/nonnegative rank (A324521/A324562).
A101198 counts partitions of rank 1 (A325233).
A101708 counts partitions of even positive rank (A340605).
A257541 gives the rank of the partition with Heinz number n.
A324520 counts partitions with rank equal to least part (A324519).
- Odd -
A000009 counts partitions into odd parts (A066208).
A026804 counts partitions whose least part is odd.
A058695 counts partitions of odd numbers (A300063).
A067659 counts strict partitions of odd length (A030059).
A160786 counts odd-length partitions of odd numbers (A300272).
A339890 counts factorizations of odd length.
A340385 counts partitions of odd length and maximum (A340386).
Cf. A003114, A006141, A027187, A039900, A067538, A096401, A117409, A143773, A324518, A325134, A340828, A340854/A340855.

Table[Length[Select[IntegerPartitions[n],OddQ[Max[#]-Length[#]]&]],{n,0,30}]

Having odd rank is preserved under conjugation, and self-conjugate partitions cannot have odd rank, so a(n) = 2*A101707(n) for n > 0.

A087787 a(n) = Sum_{k=0..n} (-1)^(n-k)*A000041(k).

Original entry on oeis.org

1, 0, 2, 1, 4, 3, 8, 7, 15, 15, 27, 29, 48, 53, 82, 94, 137, 160, 225, 265, 362, 430, 572, 683, 892, 1066, 1370, 1640, 2078, 2487, 3117, 3725, 4624, 5519, 6791, 8092, 9885, 11752, 14263, 16922, 20416, 24167, 29007, 34254, 40921, 48213, 57345, 67409

Offset: 0

Vladeta Jovovic, Oct 07 2003

nonn

Essentially first differences of A024786 (see the formula). Also, a(n) is the number of 2's in the last section of the set of partitions of n+2 (see A135010). - Omar E. Pol, Sep 10 2008
From Gus Wiseman, May 20 2024: (Start)
Also the number of integer partitions of n containing an even number of ones, ranked by A003159. The a(0) = 1 through a(8) = 15 partitions are:
  ()  .  (2)   (3)  (4)     (5)    (6)       (7)      (8)
         (11)       (22)    (32)   (33)      (43)     (44)
                    (211)   (311)  (42)      (52)     (53)
                    (1111)         (222)     (322)    (62)
                                   (411)     (511)    (332)
                                   (2211)    (3211)   (422)
                                   (21111)   (31111)  (611)
                                   (111111)           (2222)
                                                      (3311)
                                                      (4211)
                                                      (22211)
                                                      (41111)
                                                      (221111)
                                                      (2111111)
                                                      (11111111)
Also the number of integer partitions of n + 1 containing an odd number of ones, ranked by A036554.
(End)

Vaclav Kotesovec, Table of n, a(n) for n = 0..10000

Cf. A000041, A024786, A135010, A138121, A141285.
The unsigned version is A000070, strict A036469.
For powers of 2 instead number of partitions we have A001045.
The strict or odd version is A025147 or A096765.
The ordered version (compositions instead of partitions) is A078008.
For powers of 2 instead of -1 we have A259401, cf. A259400.
A002865 counts partitions with no ones, column k=0 of A116598.
A072233 counts partitions by sum and length.
Cf. A000009, A003159, A026804, A027187, A027193, A036554, A058695, A101707.

Table[Sum[(-1)^(n-k)*PartitionsP[k], {k,0,n}], {n,0,50}] (* Vaclav Kotesovec, Aug 16 2015 *)
(* more efficient program *) sig = 1; su = 1; Flatten[{1, Table[sig = -sig; su = su + sig*PartitionsP[n]; Abs[su], {n, 1, 50}]}] (* Vaclav Kotesovec, Nov 06 2016 *)
Table[Length[Select[IntegerPartitions[n], EvenQ[Count[#,1]]&]],{n,0,30}] (* Gus Wiseman, May 20 2024 *)

from sympy import npartitions
def A087787(n): return sum(-npartitions(k) if n-k&1 else npartitions(k) for k in range(n+1)) # Chai Wah Wu, Oct 25 2023

G.f.: 1/(1+x)*1/Product_{k>0} (1-x^k).
a(n) = 1/n*Sum_{k=1..n} (sigma(k)+(-1)^k)*a(n-k).
a(n) = A024786(n+2)-A024786(n+1). - Omar E. Pol, Sep 10 2008
a(n) ~ exp(Pi*sqrt(2*n/3)) / (8*sqrt(3)*n) * (1 + (11*Pi/(24*sqrt(6)) - sqrt(3/2)/Pi)/sqrt(n) - (11/16 + (23*Pi^2)/6912)/n). - Vaclav Kotesovec, Nov 05 2016
a(n) = A000041(n) - a(n-1). - Jon Maiga, Aug 29 2019
Alternating partial sums of A000041. - Gus Wiseman, May 20 2024

A340832 Number of factorizations of n into factors > 1 with odd least factor.

Original entry on oeis.org

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

Offset: 1

Gus Wiseman, Feb 04 2021

nonn

			The a(n) factorizations for n = 45, 108, 135, 180, 252:
  (45)     (3*36)     (135)      (3*60)     (3*84)
  (5*9)    (9*12)     (3*45)     (5*36)     (7*36)
  (3*15)   (3*4*9)    (5*27)     (9*20)     (9*28)
  (3*3*5)  (3*6*6)    (9*15)     (5*6*6)    (3*3*28)
           (3*3*12)   (3*5*9)    (3*3*20)   (3*4*21)
           (3*3*3*4)  (3*3*15)   (3*4*15)   (3*6*14)
                      (3*3*3*5)  (3*5*12)   (3*7*12)
                                 (3*6*10)   (3*3*4*7)
                                 (3*3*4*5)

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

Positions of 0's are A340854.
Positions of nonzero terms are A340855.
The version for partitions is A026804.
Odd-length factorizations are counted by A339890.
The version looking at greatest factor is A340831.
- Factorizations -
A001055 counts factorizations.
A045778 counts strict factorizations.
A316439 counts factorizations by product and length.
A340101 counts factorizations into odd factors, odd-length case A340102.
A340607 counts factorizations with odd length and greatest factor.
A340653 counts balanced factorizations.
- Odd -
A000009 counts partitions into odd parts.
A026424 lists numbers with odd Omega.
A027193 counts partitions of odd length.
A058695 counts partitions of odd numbers (A300063).
A066208 lists numbers with odd-indexed prime factors.
A067659 counts strict partitions of odd length (A030059).
A174726 counts ordered factorizations of odd length.
A244991 lists numbers whose greatest prime index is odd.
A340692 counts partitions of odd rank.
Cf. A050320, A160786, A340385, A340596, A340599, A340654, A340655, A340931.

facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
Table[Length[Select[facs[n],OddQ@*Min]],{n,100}]

A340832(n, m=n, fc=1) = if(1==n, (m%2)&&!fc, my(s=0); fordiv(n, d, if((d>1)&&(d<=m), s += A340832(n/d, d, 0*fc))); (s)); \\ Antti Karttunen, Dec 13 2021

Data section extended up to 108 terms by Antti Karttunen, Dec 13 2021

A340932 Numbers whose least prime index is odd. Heinz numbers of integer partitions whose last part is odd.

Original entry on oeis.org

2, 4, 5, 6, 8, 10, 11, 12, 14, 16, 17, 18, 20, 22, 23, 24, 25, 26, 28, 30, 31, 32, 34, 35, 36, 38, 40, 41, 42, 44, 46, 47, 48, 50, 52, 54, 55, 56, 58, 59, 60, 62, 64, 65, 66, 67, 68, 70, 72, 73, 74, 76, 78, 80, 82, 83, 84, 85, 86, 88, 90, 92, 94, 95, 96, 97

Offset: 1

Gus Wiseman, Feb 12 2021

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. 1 has no prime indices so is not included.

			The sequence of terms together with their prime indices begins:
      2: {1}           24: {1,1,1,2}       46: {1,9}
      4: {1,1}         25: {3,3}           47: {15}
      5: {3}           26: {1,6}           48: {1,1,1,1,2}
      6: {1,2}         28: {1,1,4}         50: {1,3,3}
      8: {1,1,1}       30: {1,2,3}         52: {1,1,6}
     10: {1,3}         31: {11}            54: {1,2,2,2}
     11: {5}           32: {1,1,1,1,1}     55: {3,5}
     12: {1,1,2}       34: {1,7}           56: {1,1,1,4}
     14: {1,4}         35: {3,4}           58: {1,10}
     16: {1,1,1,1}     36: {1,1,2,2}       59: {17}
     17: {7}           38: {1,8}           60: {1,1,2,3}
     18: {1,2,2}       40: {1,1,1,3}       62: {1,11}
     20: {1,1,3}       41: {13}            64: {1,1,1,1,1,1}
     22: {1,5}         42: {1,2,4}         65: {3,6}
     23: {9}           44: {1,1,5}         66: {1,2,5}

These partitions are counted by A026804.
The case where all prime indices are odd is A066208.
Looking at greatest prime index instead of least gives A244991.
Every term x is a product of A257991(x) elements of A341446.
The complement is {1} \/ A340933, counted by A026805.
A001222 counts prime factors.
A005408 lists odd numbers.
A027193 counts odd-length partitions, ranked by A026424.
A031368 lists odd-indexed primes.
A055396 selects least prime index.
A056239 adds up prime indices.
A058695 counts partitions of odd numbers, ranked by A300063.
A061395 selects greatest prime index.
A112798 lists the prime indices of each positive integer.
Cf. A006141, A160786, A300272, A340604, A340854, A340855.

Select[Range[100],OddQ[PrimePi[FactorInteger[#][[1,1]]]]&]

A055396(a(n)) belongs to A005408.

Closed under multiplication.

A349158 Heinz numbers of integer partitions with exactly one odd part.

Original entry on oeis.org

2, 5, 6, 11, 14, 15, 17, 18, 23, 26, 31, 33, 35, 38, 41, 42, 45, 47, 51, 54, 58, 59, 65, 67, 69, 73, 74, 77, 78, 83, 86, 93, 95, 97, 98, 99, 103, 105, 106, 109, 114, 119, 122, 123, 126, 127, 135, 137, 141, 142, 143, 145, 149, 153, 157, 158, 161, 162, 167, 174

Offset: 1

Gus Wiseman, Nov 12 2021

nonn

The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k), so these are numbers with exactly one odd prime index. These are also partitions whose conjugate partition has alternating sum equal to 1.

Numbers that are product of a term of A031368 and a term of A066207. - Antti Karttunen, Nov 13 2021

			The terms and corresponding partitions begin:
      2: (1)         42: (4,2,1)       86: (14,1)
      5: (3)         45: (3,2,2)       93: (11,2)
      6: (2,1)       47: (15)          95: (8,3)
     11: (5)         51: (7,2)         97: (25)
     14: (4,1)       54: (2,2,2,1)     98: (4,4,1)
     15: (3,2)       58: (10,1)        99: (5,2,2)
     17: (7)         59: (17)         103: (27)
     18: (2,2,1)     65: (6,3)        105: (4,3,2)
     23: (9)         67: (19)         106: (16,1)
     26: (6,1)       69: (9,2)        109: (29)
     31: (11)        73: (21)         114: (8,2,1)
     33: (5,2)       74: (12,1)       119: (7,4)
     35: (4,3)       77: (5,4)        122: (18,1)
     38: (8,1)       78: (6,2,1)      123: (13,2)
     41: (13)        83: (23)         126: (4,2,2,1)

These partitions are counted by A000070 up to 0's.
Allowing no odd parts gives A066207, counted by A000041 up to 0's.
Requiring all odd parts gives A066208, counted by A000009.
These are the positions of 1's in A257991.
The even prime indices are counted by A257992.
The conjugate partitions are ranked by A345958.
Allowing at most one odd part gives A349150, counted by A100824.
A047993 ranks balanced partitions, counted by A106529.
A056239 adds up prime indices, row sums of A112798.
A122111 is a representation of partition conjugation.
A316524 gives the alternating sum of prime indices (reverse: A344616).
A325698 ranks partitions with as many even as odd parts, counted by A045931.
A340604 ranks partitions of odd positive rank, counted by A101707.
A340932 ranks partitions whose least part is odd, counted by A026804.
A349157 ranks partitions with as many even parts as odd conjugate parts.
Cf. A000700, A001222, A027187, A027193, A028260, A031368 (primes with odd index), A035363, A215366, A277579, A300063, A349151.

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

A340831 Number of factorizations of n into factors > 1 with odd greatest factor.

Original entry on oeis.org

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

Offset: 1

Gus Wiseman, Feb 04 2021

nonn

			The a(n) factorizations for n = 45, 108, 135, 180, 252:
  (45)      (4*27)        (135)       (4*45)        (4*63)
  (5*9)     (2*6*9)       (3*45)      (12*15)       (12*21)
  (3*15)    (3*4*9)       (5*27)      (4*5*9)       (4*7*9)
  (3*3*5)   (2*2*27)      (9*15)      (2*2*45)      (6*6*7)
            (2*2*3*9)     (3*5*9)     (2*6*15)      (2*2*63)
            (2*2*3*3*3)   (3*3*15)    (3*4*15)      (2*6*21)
                          (3*3*3*5)   (2*2*5*9)     (3*4*21)
                                      (3*3*4*5)     (2*2*7*9)
                                      (2*2*3*15)    (2*3*6*7)
                                      (2*2*3*3*5)   (3*3*4*7)
                                                    (2*2*3*21)
                                                    (2*2*3*3*7)

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

Positions of 0's are A000079.
The version for partitions is A027193.
The version for prime indices is A244991.
The version looking at length instead of greatest factor is A339890.
The version that also has odd length is A340607.
The version looking at least factor is A340832.
- Factorizations -
A001055 counts factorizations.
A045778 counts strict factorizations.
A316439 counts factorizations by product and length.
A340101 counts factorizations into odd factors, odd-length case A340102.
A340653 counts balanced factorizations.
- Odd -
A000009 counts partitions into odd parts.
A024429 counts set partitions of odd length.
A026424 lists numbers with odd Omega.
A058695 counts partitions of odd numbers.
A066208 lists numbers with odd-indexed prime factors.
A067659 counts strict partitions of odd length (A030059).
A174726 counts ordered factorizations of odd length.
A340692 counts partitions of odd rank.
Cf. A026804, A050320, A061395, A339846, A340385, A340596, A340599, A340654, A340655, A340785, A340854, A340855.

facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
Table[Length[Select[facs[n],OddQ@*Max]],{n,100}]

A340831(n, m=n, fc=1) = if(1==n, !fc, my(s=0); fordiv(n, d, if((d>1)&&(d<=m)&&(!fc||(d%2)), s += A340831(n/d, d, 0*fc))); (s)); \\ Antti Karttunen, Dec 13 2021

Data section extended up to 108 terms by Antti Karttunen, Dec 13 2021

A372591 Numbers whose binary weight (A000120) plus bigomega (A001222) is even.

Original entry on oeis.org

2, 6, 7, 8, 9, 10, 11, 13, 15, 19, 24, 28, 31, 32, 33, 34, 36, 37, 39, 40, 41, 42, 44, 46, 47, 50, 51, 52, 54, 57, 58, 59, 60, 61, 65, 67, 70, 73, 76, 77, 79, 85, 86, 90, 95, 96, 97, 98, 103, 106, 107, 109, 110, 111, 112, 117, 119, 123, 124, 126, 127, 128, 129

Offset: 1

Gus Wiseman, May 14 2024

nonn

The odd version is A372590.

			The terms (center), their binary indices (left), and their weakly decreasing prime indices (right) begin:
          {2}   2  (1)
        {2,3}   6  (2,1)
      {1,2,3}   7  (4)
          {4}   8  (1,1,1)
        {1,4}   9  (2,2)
        {2,4}  10  (3,1)
      {1,2,4}  11  (5)
      {1,3,4}  13  (6)
    {1,2,3,4}  15  (3,2)
      {1,2,5}  19  (8)
        {4,5}  24  (2,1,1,1)
      {3,4,5}  28  (4,1,1)
  {1,2,3,4,5}  31  (11)
          {6}  32  (1,1,1,1,1)
        {1,6}  33  (5,2)
        {2,6}  34  (7,1)
        {3,6}  36  (2,2,1,1)
      {1,3,6}  37  (12)
    {1,2,3,6}  39  (6,2)
        {4,6}  40  (3,1,1,1)
      {1,4,6}  41  (13)
      {2,4,6}  42  (4,2,1)

For sum (A372428, zeros A372427) we have A372587, complement A372586.
For minimum (A372437) we have A372440, complement A372439.
Positions of even terms in A372441, zeros A071814.
For maximum (A372442, zeros A372436) we have A372589, complement A372588.
The complement is A372590.
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)
A019565 gives Heinz number of binary indices, adjoint A048675.
A029837 gives greatest binary index, least A001511.
A031215 lists even-indexed primes, odd A031368.
A048793 lists binary indices, length A000120, reverse A272020, sum A029931.
A070939 gives length of binary expansion.
A112798 lists prime indices, length A001222, reverse A296150, sum A056239.
Cf. A000720, A006141, A066207, A257991, A300272, A304818, A340604, A341446, A372429-A372433, A372438.

Select[Range[100],EvenQ[DigitCount[#,2,1]+PrimeOmega[#]]&]

A340933 Numbers whose least prime index is even. Heinz numbers of integer partitions whose last part is even.

Original entry on oeis.org

3, 7, 9, 13, 15, 19, 21, 27, 29, 33, 37, 39, 43, 45, 49, 51, 53, 57, 61, 63, 69, 71, 75, 77, 79, 81, 87, 89, 91, 93, 99, 101, 105, 107, 111, 113, 117, 119, 123, 129, 131, 133, 135, 139, 141, 147, 151, 153, 159, 161, 163, 165, 169, 171, 173, 177, 181, 183

Offset: 1

Gus Wiseman, Feb 12 2021

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. 1 has no prime indices so is not counted.

			The sequence of terms together with their prime indices begins:
      3: {2}         51: {2,7}         99: {2,2,5}
      7: {4}         53: {16}         101: {26}
      9: {2,2}       57: {2,8}        105: {2,3,4}
     13: {6}         61: {18}         107: {28}
     15: {2,3}       63: {2,2,4}      111: {2,12}
     19: {8}         69: {2,9}        113: {30}
     21: {2,4}       71: {20}         117: {2,2,6}
     27: {2,2,2}     75: {2,3,3}      119: {4,7}
     29: {10}        77: {4,5}        123: {2,13}
     33: {2,5}       79: {22}         129: {2,14}
     37: {12}        81: {2,2,2,2}    131: {32}
     39: {2,6}       87: {2,10}       133: {4,8}
     43: {14}        89: {24}         135: {2,2,2,3}
     45: {2,2,3}     91: {4,6}        139: {34}
     49: {4,4}       93: {2,11}       141: {2,15}

These partitions are counted by A026805.
Looking at length or at maximum gives A028260/A244990, counted by A027187.
If all prime indices are even we get A066207, counted by A035363.
The complement is {1} \/ A340932, counted by A026804.
A001222 counts prime factors.
A005843 lists even numbers.
A031215 lists even-indexed primes.
A055396 selects least prime index.
A056239 adds up prime indices.
A058695 counts partitions of even numbers, ranked by A300061.
A061395 selects greatest prime index.
A112798 lists the prime indices of each positive integer.
Cf. A006141, A030229, A067661, A101708, A236913,  A339846, A340601, A340602, A340605, A340854/A340855.

Select[Range[2,100],EvenQ[PrimePi[FactorInteger[#][[1,1]]]]&]

A055396(a(n)) belongs to A005843.

Closed under multiplication.

cp's OEIS Frontend

A340855 Numbers that can be factored into factors > 1, the least of which is odd.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A340385 Number of integer partitions of n into an odd number of parts, the greatest of which is odd.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

A340692 Number of integer partitions of n of odd rank.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A087787 a(n) = Sum_{k=0..n} (-1)^(n-k)*A000041(k).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

Python

Formula

A340832 Number of factorizations of n into factors > 1 with odd least factor.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Extensions

A340932 Numbers whose least prime index is odd. Heinz numbers of integer partitions whose last part is odd.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A349158 Heinz numbers of integer partitions with exactly one odd part.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A340831 Number of factorizations of n into factors > 1 with odd greatest factor.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

PARI