A340855 -id:A340855 - cp's OEIS frontend

A069288 Number of odd divisors of n <= sqrt(n).

1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 2, 1, 1, 2, 1, 1, 2, 1, 1, 2, 1, 1, 2, 2, 1, 2, 1, 1, 3, 1, 1, 2, 1, 2, 2, 1, 1, 2, 2, 1, 2, 1, 1, 3, 1, 1, 2, 2, 2, 2, 1, 1, 2, 2, 2, 2, 1, 1, 3, 1, 1, 3, 1, 2, 2, 1, 1, 2, 3, 1, 2, 1, 1, 3, 1, 2, 2, 1, 2, 3, 1, 1, 3, 2, 1, 2, 1, 1, 4

Offset: 1

Reinhard Zumkeller, Mar 14 2002

nonn

a(n) = #{d : d = A182469(n,k), d <= A000196(n), k=1..A001227(n)}. - Reinhard Zumkeller, Apr 05 2015

			From _Gus Wiseman_, Feb 11 2021: (Start)
The inferior odd divisors for selected n are the columns below:
n: 1    9   30   90  225  315  630  945 1575 2835 4410 3465 8190 6930
  --------------------------------------------------------------------
   1    3    5    9   15   15   21   27   35   45   63   55   65   77
        1    3    5    9    9   15   21   25   35   49   45   63   63
             1    3    5    7    9   15   21   27   45   35   45   55
                  1    3    5    7    9   15   21   35   33   39   45
                       1    3    5    7    9   15   21   21   35   35
                            1    3    5    7    9   15   15   21   33
                                 1    3    5    7    9   11   15   21
                                      1    3    5    7    9   13   15
                                           1    3    5    7    9   11
                                                1    3    5    7    9
                                                     1    3    5    7
                                                          1    3    5
                                                               1    3
                                                                    1
(End)

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

Cf. A000005, A000196, A001227, A069289, A182469.
Positions of first appearances are A334853.
A055396 selects the least prime index.
A061395 selects the greatest prime index.
- Odd -
A000009 counts partitions into odd parts (A066208).
A026424 lists numbers with odd Omega.
A027193 counts odd-length partitions.
A067659 counts strict partitions of odd length (A030059).
- Inferior divisors -
A033676 selects the greatest inferior divisor.
A033677 selects the least superior divisor.
A038548 counts inferior divisors.
A060775 selects the greatest strictly inferior divisor.
A063538 lists numbers with a superior prime divisor.
A063539 lists numbers without a superior prime divisor.
A063962 counts inferior prime divisors.
A064052 lists numbers with a properly superior prime divisor.
A140271 selects the least properly superior divisor.
A217581 selects the greatest inferior divisor.
A333806 counts strictly inferior prime divisors.
Cf. A001055, A244991, A300272, A340101, A340607, A340832, A340854/A340855.

a069288 n = length $ takeWhile (<= a000196 n) $ a182469_row n
-- Reinhard Zumkeller, Apr 05 2015

odn[n_]:=Count[Divisors[n],?(OddQ[#]&&#<=Sqrt[n ]&)]; Array[odn,100] (* _Harvey P. Dale, Nov 04 2017 *)

a(n) = my(ir = sqrtint(n)); sumdiv(n, d, (d % 2) * (d <= ir)); \\ Michel Marcus, Jan 14 2014

G.f.: Sum_{n>=1} 1/(1-q^(2*n-1)) * q^((2*n-1)^2). [Joerg Arndt, Mar 04 2010]

A160786 The number of odd partitions of consecutive odd integers.

Original entry on oeis.org

1, 2, 4, 8, 16, 29, 52, 90, 151, 248, 400, 632, 985, 1512, 2291, 3431, 5084, 7456, 10836, 15613, 22316, 31659, 44601, 62416, 86809, 120025, 165028, 225710, 307161, 416006, 560864, 752877, 1006426, 1340012, 1777365, 2348821, 3093095, 4059416, 5310255, 6924691

Offset: 0

Utpal Sarkar (doetoe(AT)gmail.com), May 26 2009

nonn

It seems that these are partitions of odd length and sum, ranked by A340931. The parts do not have to be odd. - Gus Wiseman, Apr 06 2021

			From _Gus Wiseman_, Apr 06 2021: (Start)
The a(0) = 1 through a(4) = 16 partitions:
  (1)  (3)    (5)      (7)        (9)
       (111)  (221)    (322)      (333)
              (311)    (331)      (432)
              (11111)  (421)      (441)
                       (511)      (522)
                       (22111)    (531)
                       (31111)    (621)
                       (1111111)  (711)
                                  (22221)
                                  (32211)
                                  (33111)
                                  (42111)
                                  (51111)
                                  (2211111)
                                  (3111111)
                                  (111111111)
(End)

Alois P. Heinz, Table of n, a(n) for n = 0..5000
V. I. Arnold, On teaching mathematics

Partitions with all odd parts are counted by A000009 and ranked by A066208.
This is a bisection of A027193 (odd-length partitions), which is ranked by A026424.
The case of all odd parts is counted by A078408 and ranked by A300272.
The even version is A236913, ranked by A340784.
A multiplicative version is A340102.
These partitions are ranked by A340931.
A047993 counts balanced partitions, ranked by A106529.
A058695 counts partitions of odd numbers, ranked by A300063.
A072233 counts partitions by sum and length.
A236914 counts partition of type OO, ranked by A341448.
A340385 counts partitions with odd length and maximum, ranked by A340386.
Cf. A000700, A168659, A200750, A340604, A340607, A340854, A340855.

b:= proc(n, i) option remember; `if`(n=0, [1, 0$3],
      `if`(i<1, [0$4], b(n, i-1)+`if`(i>n, [0$4], (p->
      `if`(irem(i, 2)=0, [p[3], p[4], p[1], p[2]],
          [p[2], p[1], p[4], p[3]]))(b(n-i, i)))))
    end:
a:= n-> b(2*n+1$2)[2]:
seq(a(n), n=0..40);  # Alois P. Heinz, Feb 16 2014

b[n_, i_] := b[n, i] = If[n==0, {1, 0, 0, 0}, If[i<1, {0, 0, 0, 0}, b[n, i-1] + If[i>n, {0, 0, 0, 0}, Function[{p}, If[Mod[i, 2]==0, p[[{3, 4, 1, 2}]], p[[{2, 1, 4, 3}]]]][b[n-i, i]]]]]; a[n_] := b[2*n+1, 2*n+1][[2]]; Table[a[n], {n, 0, 40}] (* Jean-François Alcover, Jul 01 2015, after Alois P. Heinz *)
(* Slow but easy to read *)
a[n_] := Length@IntegerPartitions[2 n + 1, {1, 2 n + 1, 2}]
a /@ Range[0, 25]
(* Leo C. Stein, Nov 11 2020 *)
(* Faster, don't build the partitions themselves *)
(* Number of partitions of n into exactly k parts *)
P[0, 0] = 1;
P[n_, k_] := 0 /; ((k <= 0) || (n <= 0))
P[n_, k_] := P[n, k] = P[n - k, k] + P[n - 1, k - 1]
a[n_] := Sum[P[2 n + 1, k], {k, 1, 2 n + 1, 2}]
a /@ Range[0, 40]
(* Leo C. Stein, Nov 11 2020 *)

# Could be memoized for speedup
def numoddpart(n, m=1):
    """The number of partitions of n into an odd number of parts of size at least m"""
    if n < m:
        return 0
    elif n == m:
        return 1
    else:
        # 1 (namely n = n) and all partitions of the form
        # k + even partitions that start with >= k
        return 1 + sum([numevenpart(n - k,  k) for k in range(m, n//3 + 1)])
def numevenpart(n, m=1):
    """The number of partitions of n into an even number of parts of size at least m"""
    if n < 2*m:
        return 0
    elif n == 2*m:
        return 1
    else:
        return sum([numoddpart(n - k,  k) for k in range(m,  n//2 + 1)])
[numoddpart(n) for n in range(1, 70, 2)]

# dict to memoize
ps = {(0,0): 1}
def p(n, k):
    """Number of partitions of n into exactly k parts"""
    if (n,k) in ps: return ps[(n,k)]
    if (n<=0) or (k<=0): return 0
    ps[(n,k)] = p(n-k,k) + p(n-1,k-1)
    return ps[(n,k)]
def a(n): return sum([p(2*n+1, k) for k in range(1,2*n+3,2)])
[a(n) for n in range(0,41)]
# Leo C. Stein, Nov 11 2020

a(n) = A027193(2n+1).

A341446 Heinz numbers of integer partitions whose only odd part is the smallest.

Original entry on oeis.org

2, 5, 6, 11, 14, 17, 18, 23, 26, 31, 35, 38, 41, 42, 47, 54, 58, 59, 65, 67, 73, 74, 78, 83, 86, 95, 97, 98, 103, 106, 109, 114, 122, 126, 127, 137, 142, 143, 145, 149, 157, 158, 162, 167, 174, 178, 179, 182, 185, 191, 197, 202, 209, 211, 214, 215, 222, 226

Offset: 1

Gus Wiseman, Feb 12 2021

nonn

The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k), so these are numbers whose only odd prime index (counting multiplicity) is the smallest.

			The sequence of partitions together with their Heinz numbers begins:
      2: (1)         54: (2,2,2,1)    109: (29)
      5: (3)         58: (10,1)       114: (8,2,1)
      6: (2,1)       59: (17)         122: (18,1)
     11: (5)         65: (6,3)        126: (4,2,2,1)
     14: (4,1)       67: (19)         127: (31)
     17: (7)         73: (21)         137: (33)
     18: (2,2,1)     74: (12,1)       142: (20,1)
     23: (9)         78: (6,2,1)      143: (6,5)
     26: (6,1)       83: (23)         145: (10,3)
     31: (11)        86: (14,1)       149: (35)
     35: (4,3)       95: (8,3)        157: (37)
     38: (8,1)       97: (25)         158: (22,1)
     41: (13)        98: (4,4,1)      162: (2,2,2,2,1)
     42: (4,2,1)    103: (27)         167: (39)
     47: (15)       106: (16,1)       174: (10,2,1)

These partitions are counted by A035363 (shifted left once).
Terms of A340932 can be factored into elements of this sequence.
The even version is A341447.
A001222 counts prime factors.
A005408 lists odd numbers.
A026804 counts partitions whose smallest part is odd.
A027193 counts odd-length partitions, ranked by A026424.
A031368 lists odd-indexed primes.
A032742 selects largest proper divisor.
A055396 selects smallest prime index.
A056239 adds up prime indices.
A058695 counts partitions of odd numbers, ranked by A300063.
A061395 selects largest prime index.
A066207 lists numbers with all even prime indices.
A066208 lists numbers with all odd prime indices.
A112798 lists the prime indices of each positive integer.
A244991 lists numbers whose greatest prime index is odd.
A340932 lists numbers whose smallest prime index is odd.
Cf. A006141, A160786, A257991, A257992, A300272, A340604, A340607, A340854/A340855, A340933.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[2,100],OddQ[First[primeMS[#]]]&&And@@EvenQ[Rest[primeMS[#]]]&]

Also numbers n > 1 such that A055396(n) is odd and A032742(n) belongs to A066207.

A340607 Number of factorizations of n into an odd number of factors > 1, the greatest of which is odd.

Original entry on oeis.org

0, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 1, 1, 0, 1, 0, 1, 1, 1, 1, 1, 0, 1, 0, 1, 0, 2, 1, 1, 1, 1, 0, 1, 0, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 2, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 2, 1, 0, 2, 0, 1, 1, 1, 1, 1, 1, 1, 2, 1, 0, 2, 1, 1, 1, 1, 2, 2, 0, 1, 3, 1, 0, 1, 1, 1, 2, 1, 1, 1, 0, 1, 0, 1, 1, 2, 2, 1, 1, 1, 1, 2, 0, 1, 4

Offset: 1

Gus Wiseman, Jan 25 2021

nonn

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

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

Note: Heinz numbers are given in parentheses below.
The case of odd length only is A339890.
The case of all odd factors is A340102.
The version for partitions is A340385.
The version for prime indices is A340386.
The case of odd maximum only is A340831.
A000009 counts partitions into odd parts (A066208).
A001055 counts factorizations, with strict case A045778.
A027193 counts partitions of odd length/maximum (A026424/A244991).
A058695 counts partitions of odd numbers (A300063).
A078408 counts odd-length partitions into odd numbers (A300272).
A316439 counts factorizations by sum and length.
A340101 counts factorizations (into odd factors = of odd numbers).
A340832 counts factorizations whose least part is odd.
A340854/A340855 lack/have a factorization with odd minimum.
Cf. A000700, A024429, A026804, A028260, A061395, A112798, A160786, A236914, A324522, A326845, A340608, A340788.

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[Length[#]]&&OddQ[Max@@#]&]],{n,100}]

A340607(n, m=n, k=0, grodd=0) = if(1==n, k, my(s=0); fordiv(n, d, if((d>1)&&(d<=m)&&(grodd||(d%2)), s += A340607(n/d, d, 1-k, bitor(1,grodd)))); (s)); \\ Antti Karttunen, Dec 13 2021

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

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

Original entry on oeis.org

1, 2, 4, 6, 8, 10, 14, 16, 20, 22, 26, 28, 32, 34, 38, 44, 46, 52, 58, 62, 64, 68, 74, 76, 82, 86, 88, 92, 94, 104, 106, 116, 118, 122, 124, 128, 134, 136, 142, 146, 148, 152, 158, 164, 166, 172, 178, 184, 188, 194, 202, 206, 212, 214, 218, 226, 232, 236, 244

Offset: 1

Gus Wiseman, Feb 04 2021

nonn

Consists of 1 and all numbers that are even and have no odd divisor 1 < d <= n/d.

			The sequence of terms together with their prime indices begins:
      1: {}              44: {1,1,5}          106: {1,16}
      2: {1}             46: {1,9}            116: {1,1,10}
      4: {1,1}           52: {1,1,6}          118: {1,17}
      6: {1,2}           58: {1,10}           122: {1,18}
      8: {1,1,1}         62: {1,11}           124: {1,1,11}
     10: {1,3}           64: {1,1,1,1,1,1}    128: {1,1,1,1,1,1,1}
     14: {1,4}           68: {1,1,7}          134: {1,19}
     16: {1,1,1,1}       74: {1,12}           136: {1,1,1,7}
     20: {1,1,3}         76: {1,1,8}          142: {1,20}
     22: {1,5}           82: {1,13}           146: {1,21}
     26: {1,6}           86: {1,14}           148: {1,1,12}
     28: {1,1,4}         88: {1,1,1,5}        152: {1,1,1,8}
     32: {1,1,1,1,1}     92: {1,1,9}          158: {1,22}
     34: {1,7}           94: {1,15}           164: {1,1,13}
     38: {1,8}          104: {1,1,1,6}        166: {1,23}
For example, the factorizations of 88 are (2*2*2*11), (2*2*22), (2*4*11), (2*44), (4*22), (8*11), (88), none of which has odd minimum, so 88 is in the sequence.

The version looking at greatest factor is A000079.
The version for twice-balanced is A340656, with complement A340657.
These factorization are counted by A340832.
The complement is A340855.
A033676 selects the maximum inferior divisor.
A038548 counts inferior divisors.
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.
Cf. A026804, A027193, A050320, A244991, A340101, A340102, A340596, A340597, A340607, A340654, A340655, A340852.

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

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.

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

A340852 Numbers that can be factored in such a way that every factor is a divisor of the number of factors.

Original entry on oeis.org

1, 4, 16, 27, 32, 64, 96, 128, 144, 192, 216, 256, 288, 324, 432, 486, 512, 576, 648, 729, 864, 972, 1024, 1296, 1458, 1728, 1944, 2048, 2560, 2592, 2916, 3125, 3888, 4096, 5120, 5184, 5832, 6144, 6400, 7776, 8192, 9216, 11664, 12288, 12800, 13824, 15552

Offset: 1

Gus Wiseman, Feb 04 2021

nonn

Also numbers that can be factored in such a way that the length is divisible by the least common multiple.

			The sequence of terms together with their prime indices begins:
    1: {}
    4: {1,1}
   16: {1,1,1,1}
   27: {2,2,2}
   32: {1,1,1,1,1}
   64: {1,1,1,1,1,1}
   96: {1,1,1,1,1,2}
  128: {1,1,1,1,1,1,1}
  144: {1,1,1,1,2,2}
  192: {1,1,1,1,1,1,2}
  216: {1,1,1,2,2,2}
  256: {1,1,1,1,1,1,1,1}
  288: {1,1,1,1,1,2,2}
  324: {1,1,2,2,2,2}
  432: {1,1,1,1,2,2,2}
For example, 24576 has three suitable factorizations:
  (2*2*2*2*2*2*2*2*2*2*2*12)
  (2*2*2*2*2*2*2*2*2*2*4*6)
  (2*2*2*2*2*2*2*2*2*3*4*4)
so is in the sequence.

Partitions of this type are counted by A340693 (A340606).
These factorizations are counted by A340851.
The reciprocal version is A340853.
A143773 counts partitions whose parts are multiples of the number of parts.
A320911 can be factored into squarefree semiprimes.
A340597 have an alt-balanced factorization.
A340656 lack a twice-balanced factorization, complement A340657.
- Factorizations -
A001055 counts factorizations, with strict case A045778.
A316439 counts factorizations by product and length.
A339846 counts factorizations of even length.
A339890 counts factorizations of odd length.
A340101 counts factorizations into odd factors, odd-length case A340102.
A340653 counts balanced factorizations.
A340831/A340832 count factorizations with odd maximum/minimum.
A340785 counts factorizations into even numbers, even-length case A340786.
A340854 cannot be factored with odd least factor, complement A340855.
Cf. A050320, A067538, A168659, A301987, A316413, A327517, A340596, A340599, A340609, A340654, A340655, A340827, A340830.

facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
Select[Range[1000],Select[facs[#],And@@IntegerQ/@(Length[#]/#)&]!={}&]

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.

A340931 Heinz numbers of integer partitions of odd numbers into an odd number of parts.

Original entry on oeis.org

2, 5, 8, 11, 17, 18, 20, 23, 31, 32, 41, 42, 44, 45, 47, 50, 59, 67, 68, 72, 73, 78, 80, 83, 92, 97, 98, 99, 103, 105, 109, 110, 114, 124, 125, 127, 128, 137, 149, 153, 157, 162, 164, 167, 168, 170, 174, 176, 179, 180, 182, 188, 191, 195, 197, 200, 207, 211

Offset: 1

Gus Wiseman, Feb 05 2021

nonn

The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k). This is a bijective correspondence between positive integers and integer partitions.

			The sequence of terms together with the corresponding partitions begins:
      2: (1)             50: (3,3,1)        109: (29)
      5: (3)             59: (17)           110: (5,3,1)
      8: (1,1,1)         67: (19)           114: (8,2,1)
     11: (5)             68: (7,1,1)        124: (11,1,1)
     17: (7)             72: (2,2,1,1,1)    125: (3,3,3)
     18: (2,2,1)         73: (21)           127: (31)
     20: (3,1,1)         78: (6,2,1)        128: (1,1,1,1,1,1,1)
     23: (9)             80: (3,1,1,1,1)    137: (33)
     31: (11)            83: (23)           149: (35)
     32: (1,1,1,1,1)     92: (9,1,1)        153: (7,2,2)
     41: (13)            97: (25)           157: (37)
     42: (4,2,1)         98: (4,4,1)        162: (2,2,2,2,1)
     44: (5,1,1)         99: (5,2,2)        164: (13,1,1)
     45: (3,2,2)        103: (27)           167: (39)
     47: (15)           105: (4,3,2)        168: (4,2,1,1,1)

Note: A-numbers of Heinz-number sequences are in parentheses below.
These partitions are counted by A160786.
The even version is A236913 (A340784).
The case of where the prime indices are also odd is A300272.
A000009 counts partitions into odd parts (A066208).
A001222 counts prime factors.
A027193 counts odd-length partitions (A026424).
A047993 counts balanced partitions (A106529).
A056239 adds up prime indices.
A058695 counts partitions of odd numbers (A300063).
A072233 counts partitions by sum and length.
A112798 lists the prime indices of each positive integer.
Cf. A000041, A316413, A326845, A340385, A340386, A340387, A340604, A340607, A340854, A340855.

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

Intersection of A026424 and A300063.

cp's OEIS Frontend

A069288 Number of odd divisors of n <= sqrt(n).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Haskell

Mathematica

PARI

Formula

A160786 The number of odd partitions of consecutive odd integers.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Python

Python

Formula

A341446 Heinz numbers of integer partitions whose only odd part is the smallest.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A340607 Number of factorizations of n into an odd number of factors > 1, the greatest of which is odd.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Extensions

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

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A340692 Number of integer partitions of n of odd rank.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

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

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Extensions