cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Previous Showing 11-20 of 46 results. Next

A324562 Numbers > 1 where the maximum prime index is greater than or equal to the number of prime factors counted with multiplicity.

Original entry on oeis.org

2, 3, 5, 6, 7, 9, 10, 11, 13, 14, 15, 17, 19, 20, 21, 22, 23, 25, 26, 28, 29, 30, 31, 33, 34, 35, 37, 38, 39, 41, 42, 43, 44, 45, 46, 47, 49, 50, 51, 52, 53, 55, 56, 57, 58, 59, 61, 62, 63, 65, 66, 67, 68, 69, 70, 71, 73, 74, 75, 76, 77, 78, 79, 82, 83, 84, 85
Offset: 1

Views

Author

Gus Wiseman, Mar 06 2019

Keywords

Comments

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.
Also Heinz numbers of the integer partitions enumerated by A064174. The Heinz number of an integer partition (y_1, ..., y_k) is prime(y_1) * ... * prime(y_k).

Examples

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

Links

Crossrefs

Cf. A001222, A003114, A055396, A056239, A061395, A064174, A106529, A112798.
Cf. A324517, A324519, A324521, A324522, A324560, A324562.

Programs

  • Maple
    with(numtheory):
q:= n-> is(pi(max(factorset(n)))>=bigomega(n)):
select(q, [$2..100])[];  # Alois P. Heinz, Mar 07 2019
  • Mathematica
    Select[Range[2,100],PrimePi[FactorInteger[#][[-1,1]]]>=PrimeOmega[#]&]

Formula

A061395(a(n)) >= A001222(a(n)).

A340601 Number of integer partitions of n of even rank.

Original entry on oeis.org

1, 1, 0, 3, 1, 5, 3, 11, 8, 18, 16, 34, 33, 57, 59, 98, 105, 159, 179, 262, 297, 414, 478, 653, 761, 1008, 1184, 1544, 1818, 2327, 2750, 3480, 4113, 5137, 6078, 7527, 8899, 10917, 12897, 15715, 18538, 22431, 26430, 31805, 37403, 44766, 52556, 62620, 73379
Offset: 0

Views

Author

Gus Wiseman, Jan 21 2021

Keywords

Comments

The Dyson rank of a nonempty partition is its maximum part minus its number of parts. For this sequence, the rank of an empty partition is 0.

Examples

			The a(1) = 1 through a(9) = 18 partitions (empty column indicated by dot):
  (1)  .  (3)    (22)  (5)      (42)    (7)        (44)      (9)
          (21)         (41)     (321)   (43)       (62)      (63)
          (111)        (311)    (2211)  (61)       (332)     (81)
                       (2111)           (322)      (521)     (333)
                       (11111)          (331)      (2222)    (522)
                                        (511)      (4211)    (531)
                                        (2221)     (32111)   (711)
                                        (4111)     (221111)  (4221)
                                        (31111)              (4311)
                                        (211111)             (6111)
                                        (1111111)            (32211)
                                                             (33111)
                                                             (51111)
                                                             (222111)
                                                             (411111)
                                                             (3111111)
                                                             (21111111)
                                                             (111111111)

Links

Crossrefs

Note: Heinz numbers are given in parentheses below.
The positive case is A101708 (A340605).
The Heinz numbers of these partitions are A340602.
The odd version is A340692 (A340603).
- Rank -
A047993 counts partitions of rank 0 (A106529).
A072233 counts partitions by sum and length.
A101198 counts partitions of rank 1 (A325233).
A101707 counts partitions of odd positive rank (A340604).
A101708 counts partitions of even positive rank (A340605).
A257541 gives the rank of the partition with Heinz number n.
A340653 counts factorizations of rank 0.
- Even -
A024430 counts set partitions of even length.
A027187 counts partitions of even length (A028260).
A027187 (also) counts partitions of even maximum (A244990).
A034008 counts compositions of even length.
A035363 counts partitions into even parts (A066207).
A052841 counts ordered set partitions of even length.
A058696 counts partitions of even numbers (A300061).
A067661 counts strict partitions of even length (A030229).
A236913 counts even-length partitions of even numbers (A340784).
A339846 counts factorizations of even length.
Cf. A000041, A006141, A039900, A064174, A067538, A117409, A200750, A324516.

Programs

  • Maple
    b:= proc(n, i, r) option remember; `if`(n=0, 1-max(0, r),
      `if`(i<1, 0, b(n, i-1, r) +b(n-i, min(n-i, i), 1-
      `if`(r<0, irem(i, 2), r))))
    end:
a:= n-> b(n$2, -1):
seq(a(n), n=0..55);  # Alois P. Heinz, Jan 22 2021
  • Mathematica
    Table[If[n==0,1,Length[Select[IntegerPartitions[n],EvenQ[Max[#]-Length[#]]&]]],{n,0,30}]
(* Second program: *)
b[n_, i_, r_] := b[n, i, r] = If[n == 0, 1 - Max[0, r], If[i < 1, 0, b[n, i - 1, r] + b[n - i, Min[n - i, i], 1 - If[r < 0, Mod[i, 2], r]]]];
a[n_] := b[n, n, -1];
a /@ Range[0, 55] (* Jean-François Alcover, May 10 2021, after Alois P. Heinz *)
  • PARI
    p_q(k) = {prod(j=1, k, 1-q^j); }
GB_q(N, M)= {if(N>=0 && M>=0,  p_q(N+M)/(p_q(M)*p_q(N)), 0 ); }
A_q(N) = {my(q='q+O('q^N), g=1+sum(i=1,N, sum(j=1,N/i, q^(i*j) * ( ((1/2)*(1+(-1)^(i+j))) + sum(k=1,N-(i*j), ((q^k)*GB_q(k,i-2)) * ((1/2)*(1+(-1)^(i+j+k)))))))); Vec(g)}
A_q(50) \\ John Tyler Rascoe, Apr 15 2024

Formula

G.f.: 1 + Sum_{i, j>0} q^(i*j) * ( (1+(-1)^(i+j))/2 + Sum_{k>0} q^k * q_binomial(k,i-2) * (1+(-1)^(i+j+k))/2 ). - John Tyler Rascoe, Apr 15 2024
a(n) ~ exp(Pi*sqrt(2*n/3)) / (8*n*sqrt(3)). - Vaclav Kotesovec, Apr 17 2024

A101707 Number of partitions of n having positive odd rank (the rank of a partition is the largest part minus the number of parts).

Original entry on oeis.org

0, 0, 1, 0, 2, 1, 4, 2, 7, 6, 13, 11, 22, 22, 38, 39, 63, 69, 103, 114, 165, 189, 262, 301, 407, 475, 626, 733, 950, 1119, 1427, 1681, 2118, 2503, 3116, 3678, 4539, 5360, 6559, 7735, 9400, 11076, 13372, 15728, 18886, 22184, 26501, 31067, 36947, 43242, 51210, 59818, 70576, 82291, 96750
Offset: 0

Views

Author

Emeric Deutsch, Dec 12 2004

Keywords

Comments

a(n) + A101708(n) = A064173(n).

Examples

			a(7)=2 because the only partitions of 7 with positive odd rank are 421 (rank=1) and 52 (rank=3).
From _Gus Wiseman_, Feb 07 2021: (Start)
Also the number of integer partitions of n into an even number of parts, the greatest of which is odd. For example, the a(2) = 1 through a(10) = 13 partitions (empty column indicated by dot) are:
  11   .  31     32   33       52     53         54       55
          1111        51       3211   71         72       73
                      3111            3221       3222     91
                      111111          3311       3321     3322
                                      5111       5211     3331
                                      311111     321111   5221
                                      11111111            5311
                                                          7111
                                                          322111
                                                          331111
                                                          511111
                                                          31111111
                                                          1111111111
Also the number of integer partitions of n into an odd number of parts, the greatest of which is even. For example, the a(2) = 1 through a(10) = 13 partitions (empty column indicated by dot, A = 10) are:
  2   .  4     221   6       421     8         432       A
         211         222     22111   422       441       433
                     411             431       621       442
                     21111           611       22221     622
                                     22211     42111     631
                                     41111     2211111   811
                                     2111111             22222
                                                         42211
                                                         43111
                                                         61111
                                                         2221111
                                                         4111111
                                                         211111111
(End)

References

  • George E. Andrews, The Theory of Partitions, Addison-Wesley, Reading, Mass., 1976.

Links

Crossrefs

Note: A-numbers of ranking sequences are in parentheses below.
The even-rank version is A101708 (A340605).
The even- but not necessarily positive-rank version is A340601 (A340602).
The Heinz numbers of these partitions are (A340604).
Allowing negative odd ranks gives A340692 (A340603).
- Rank -
A047993 counts balanced (rank zero) partitions (A106529).
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).
A257541 gives the rank of the partition with Heinz number n.
- Odd -
A000009 counts partitions into odd parts (A066208).
A026804 counts partitions whose least part is odd.
A027193 counts partitions of odd length/maximum (A026424/A244991).
A058695 counts partitions of odd numbers (A300063).
A339890 counts factorizations of odd length.
A340385 counts partitions of odd length and maximum (A340386).
Cf. A000041, A027187, A101709, A101199, A101200, A117409, A200750.

Programs

  • Maple
    b:= proc(n, i, r) option remember; `if`(n=0, max(0, r),
      `if`(i<1, 0, b(n, i-1, r) +b(n-i, min(n-i, i), 1-
      `if`(r<0, irem(i, 2), r))))
    end:
a:= n-> b(n$2, -1)/2:
seq(a(n), n=0..55);  # Alois P. Heinz, Jan 29 2021
  • Mathematica
    Table[Length[Select[IntegerPartitions[n],EvenQ[Length[#]]&&OddQ[Max[#]]&]],{n,0,30}] (* Gus Wiseman, Feb 10 2021 *)
b[n_, i_, r_] := b[n, i, r] = If[n == 0, Max[0, r],
     If[i < 1, 0, b[n, i - 1, r] + b[n - i, Min[n - i, i], 1 -
     If[r < 0, Mod[i, 2], r]]]];
a[n_] := b[n, n, -1]/2;
a /@ Range[0, 55] (* Jean-François Alcover, May 23 2021, after Alois P. Heinz *)

Formula

a(n) = (A000041(n) - A000025(n))/4. - Vladeta Jovovic, Dec 14 2004
G.f.: Sum((-1)^(k+1)*x^((3*k^2+k)/2)/(1+x^k), k=1..infinity)/Product(1-x^k, k=1..infinity). - Vladeta Jovovic, Dec 20 2004
a(n) = A340692(n)/2. - Gus Wiseman, Feb 07 2021

Extensions

More terms from Joerg Arndt, Oct 07 2012
a(0)=0 prepended by Alois P. Heinz, Jan 29 2021

A117144 Partitions of n in which each part k occurs at least k times.

Original entry on oeis.org

1, 1, 1, 1, 2, 2, 3, 3, 4, 5, 6, 6, 8, 9, 10, 12, 15, 16, 19, 21, 25, 28, 32, 34, 41, 46, 51, 55, 64, 70, 79, 86, 97, 106, 119, 129, 146, 159, 175, 190, 214, 232, 256, 277, 306, 334, 367, 394, 434, 472, 515, 556, 607, 654, 714, 770, 836, 901, 978, 1048, 1140, 1226, 1322
Offset: 0

Views

Author

Emeric Deutsch, Mar 06 2006

Keywords

Comments

The Heinz numbers of these integer partitions are given by A324525. - Gus Wiseman, Mar 09 2019

Examples

			a(9)=5 because we have [3,3,3], [2,2,2,2,1], [2,2,2,1,1,1], [2,2,1,1,1,1,1] and [1,1,1,1,1,1,1,1,1].
From _Gus Wiseman_, Mar 09 2019: (Start)
The a(1) = 1 through a(9) = 5 integer partitions:
  1  11  111  22    221    222     2221     2222      333
              1111  11111  2211    22111    22211     22221
                           111111  1111111  221111    222111
                                            11111111  2211111
                                                      111111111
(End)

Links

Crossrefs

Cf. A001462, A003114, A006141, A033461, A039900, A047993, A052335, A064174, A090858, A114638, A115584, A276078, A280204.
Cf. A324518, A324520, A324525, A324572.

Programs

  • Maple
    g:=product((1-x^k+x^(k^2))/(1-x^k),k=1..100): gser:=series(g,x=0,70): seq(coeff(gser,x,n),n=0..66);
# second Maple program:
b:= proc(n,i) option remember; `if`(n=0, 1, `if`(i<1, 0,
      b(n, i-1) +add(b(n-i*j, i-1), j=i..n/i)))
    end:
a:= n-> b(n$2):
seq(a(n), n=0..80);  # Alois P. Heinz, Dec 28 2016
  • Mathematica
    b[n_, i_] := b[n, i] = If[n==0, 1, If[i<1, 0, b[n, i-1] + Sum[b[n-i*j, i-1], {j, i, n/i}]]]; a[n_] := b[n, n]; Table[a[n], {n, 0, 80}] (* Jean-François Alcover, Feb 03 2017, after Alois P. Heinz *)
Table[Length[Select[IntegerPartitions[n],And@@Table[Count[#,i]>=i,{i,Union[#]}]&]],{n,0,30}] (* Gus Wiseman, Mar 09 2019 *)
nmax = 100; CoefficientList[Series[Product[(1-x^k+x^(k^2))/(1-x^k), {k, 1, nmax}], {x, 0, nmax}], x] (* Vaclav Kotesovec, Jan 28 2024 *)

Formula

G.f.: Product_{k>=1} (1-x^k+x^(k^2))/(1-x^k).

A340609 Numbers whose number of prime factors (A001222) is divisible by their greatest prime index (A061395).

Original entry on oeis.org

2, 4, 6, 8, 9, 16, 20, 24, 30, 32, 36, 45, 50, 54, 56, 64, 75, 81, 84, 96, 125, 126, 128, 140, 144, 160, 176, 189, 196, 210, 216, 240, 256, 264, 294, 315, 324, 350, 360, 384, 396, 400, 416, 440, 441, 486, 490, 512, 525, 540, 576, 594, 600, 616, 624, 660, 686
Offset: 1

Views

Author

Gus Wiseman, Jan 27 2021

Keywords

Comments

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.
If n is a term, then so is n^k for k > 1. - Robert Israel, Feb 08 2021

Examples

			The sequence of terms together with their prime indices begins:
      2: {1}             64: {1,1,1,1,1,1}      216: {1,1,1,2,2,2}
      4: {1,1}           75: {2,3,3}            240: {1,1,1,1,2,3}
      6: {1,2}           81: {2,2,2,2}          256: {1,1,1,1,1,1,1,1}
      8: {1,1,1}         84: {1,1,2,4}          264: {1,1,1,2,5}
      9: {2,2}           96: {1,1,1,1,1,2}      294: {1,2,4,4}
     16: {1,1,1,1}      125: {3,3,3}            315: {2,2,3,4}
     20: {1,1,3}        126: {1,2,2,4}          324: {1,1,2,2,2,2}
     24: {1,1,1,2}      128: {1,1,1,1,1,1,1}    350: {1,3,3,4}
     30: {1,2,3}        140: {1,1,3,4}          360: {1,1,1,2,2,3}
     32: {1,1,1,1,1}    144: {1,1,1,1,2,2}      384: {1,1,1,1,1,1,1,2}
     36: {1,1,2,2}      160: {1,1,1,1,1,3}      396: {1,1,2,2,5}
     45: {2,2,3}        176: {1,1,1,1,5}        400: {1,1,1,1,3,3}
     50: {1,3,3}        189: {2,2,2,4}          416: {1,1,1,1,1,6}
     54: {1,2,2,2}      196: {1,1,4,4}          440: {1,1,1,3,5}
     56: {1,1,1,4}      210: {1,2,3,4}          441: {2,2,4,4}

Links

Crossrefs

Note: Heinz numbers are given in parentheses below.
The case of equality is A047993 (A106529).
These are the Heinz numbers of certain partitions counted by A168659.
The reciprocal version is A340610, with strict case A340828 (A340856).
If all parts (not just the greatest) are divisors we get A340693 (A340606).
A001222 counts prime factors.
A006141 counts partitions whose length equals their minimum (A324522).
A056239 adds up prime indices.
A061395 selects the maximum prime index.
A067538 counts partitions whose length divides their sum (A316413).
A067538 counts partitions whose maximum divides their sum (A326836).
A112798 lists the prime indices of each positive integer.
A200750 counts partitions with length coprime to maximum (A340608).
A325134 = A001222 + A061395.
A326845 = A056239 * A061395.
Cf. A039900, A064174, A143773, A244990/A244991, A326837, A326849 (A326848), A340653, A340787/A340788.

Programs

  • Maple
    filter:= proc(n) local F,m,g,t;
  F:= ifactors(n)[2];
  m:= add(t[2],t=F);
  g:= numtheory:-pi(max(seq(t[1],t=F)));
  m mod g = 0;
end proc:
seelect(filter, [$2..1000]); # Robert Israel, Feb 08 2021
  • Mathematica
    Select[Range[2,100],Divisible[PrimeOmega[#],PrimePi[FactorInteger[#][[-1,1]]]]&]

Formula

A061395(a(n)) divides A001222(a(n)).

A114638 Number of partitions of n such that number of parts is equal to the sum of parts counted without multiplicities.

Original entry on oeis.org

1, 1, 0, 0, 2, 1, 1, 0, 2, 2, 3, 5, 5, 6, 9, 7, 8, 14, 12, 16, 21, 28, 32, 43, 47, 61, 68, 84, 89, 109, 126, 140, 170, 198, 227, 261, 323, 362, 427, 501, 581, 658, 794, 880, 1036, 1175, 1355, 1526, 1776, 1985, 2281, 2588, 2943, 3312, 3799, 4271, 4852, 5497
Offset: 0

Views

Author

Vladeta Jovovic, Feb 18 2006

Keywords

Comments

The Heinz numbers of these integer partitions are given by A324570. - Gus Wiseman, Mar 09 2019

Examples

			a(10) = 3 because we have [5,1,1,1,1,1], [3,3,3,1] and [3,2,2,1,1,1].
From _Gus Wiseman_, Mar 09 2019: (Start)
The a(1) = 1 through a(12) = 5 integer partitions (empty columns not shown):
  1  22   221  3111  3311   333     3331    32222    33222
     211             41111  321111  322111  44111    322221
                                    511111  322211   332211
                                            332111   4221111
                                            4211111  6111111
(End)

Links

Crossrefs

Cf. A003114, A006141, A039900, A047993, A064174, A066328, A243149 (the same for compositions).
Cf. A324516, A324518, A324520, A324521, A324570.
Cf. A116861 (number of partitions of n having a given sum of distinct parts).

Programs

  • Maple
    a:=proc(n) local P,c,j,S: with(combinat): P:=partition(n): c:=0: for j from 1 to nops(P) do S:=convert(P[j],set): if nops(P[j])=sum(S[i],i=1..nops(S)) then c:=c+1 else c:=c fi: c: od: end: seq(a(n), n=0..35); # Emeric Deutsch, Mar 01 2006
  • Mathematica
    a[n_] := Module[{P, c, j, S}, P = IntegerPartitions[n]; c = 0; For[j = 1, j <= Length[P], j++, S = Union[P[[j]]]; If[Length[P[[j]]] == Total[S],  c++] ]; c];
Table[a[n], {n, 0, 60}] (* Jean-François Alcover, May 07 2018, after Emeric Deutsch *)
  • PARI
    apply( A114638(n,s=0)={forpart(p=n,#p==vecsum(Set(p))&&s++); s}, [0..50]) \\ M. F. Hasler, Oct 27 2019

Extensions

More terms from Emeric Deutsch, Mar 01 2006

A324518 Number of integer partitions of n > 0 where the maximum part equals the length minus the number of distinct parts.

Original entry on oeis.org

0, 1, 0, 0, 1, 2, 2, 0, 3, 1, 6, 7, 7, 9, 11, 10, 16, 26, 22, 42, 43, 54, 61, 83, 85, 118, 135, 179, 201, 263, 297, 371, 445, 510, 608, 732, 886, 1009, 1231, 1442, 1721, 2015, 2416, 2750, 3327, 3784, 4542, 5190, 6142, 7044, 8315, 9573, 11203, 12913, 15056
Offset: 1

Views

Author

Gus Wiseman, Mar 06 2019

Keywords

Comments

The Heinz numbers of these integer partitions are given by A324517.

Examples

			The a(2) = 1 through a(12) = 7 integer partitions:
  (11)  (2111)  (222)   (2221)   (33111)   (322111)  (32222)    (3333)
                (2211)  (31111)  (321111)            (33311)    (33222)
                                 (411111)            (322211)   (322221)
                                                     (332111)   (332211)
                                                     (4211111)  (441111)
                                                     (5111111)  (4221111)
                                                                (4311111)

Crossrefs

Cf. A003114, A006141, A039900, A046660, A047993, A064174, A106529.
Cf. A324516, A324517, A324520, A324562.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n],Max@@#==Length[#]-Length[Union[#]]&]],{n,30}]

A209616 Sum of positive Dyson's ranks of all partitions of n.

Original entry on oeis.org

0, 1, 2, 4, 7, 12, 18, 29, 42, 63, 89, 128, 176, 246, 333, 453, 603, 807, 1058, 1393, 1807, 2346, 3011, 3867, 4915, 6248, 7879, 9926, 12421, 15529, 19297, 23954, 29585, 36486, 44802, 54937, 67096, 81831, 99459, 120700, 146026, 176410, 212512, 255636, 306734
Offset: 1

Views

Author

Omar E. Pol, Mar 10 2012

Keywords

Comments

The Dyson's rank of a partition is the largest part minus the number of parts.

Examples

			For n = 5 we have:
--------------------------
Partitions        Dyson's
of 5               rank
--------------------------
5               5 - 1 =  4
4+1             4 - 2 =  2
3+2             3 - 2 =  1
3+1+1           3 - 3 =  0
2+2+1           2 - 3 = -1
2+1+1+1         2 - 4 = -2
1+1+1+1+1       1 - 5 = -4
--------------------------
The sum of positive Dyson's ranks of all partitions of 5 is 4+2+1 = 7 so a(5) = 7.

Links

Crossrefs

Column 1 of triangle A208482.
Cf. A063995, A064174, A092269, A105805, A194547, A194549, A195822, A208478.

Programs

  • Maple
    # Maple program based on Theorem 1 of Andrews-Chan-Kim:
M:=101;
qinf:=mul(1-q^i,i=1..M);
qinf:=series(qinf,q,M);
R1:=add((-1)^(n+1)*q^(n*(3*n+1)/2)/(1-q^n),n=1..M);
R1:=series(R1/qinf,q,M);
seriestolist(%); # N. J. A. Sloane, Sep 04 2012
  • Mathematica
    M = 101;
qinf = Product[1-q^i, {i, 1, M}];
qinf = Series[qinf, {q, 0, M}];
R1 = Sum[(-1)^(n+1) q^(n(3n+1)/2)/(1-q^n), {n, 1, M}];
R1 = Series[R1/qinf, {q, 0, M}];
CoefficientList[R1, q] // Rest (* Jean-François Alcover, Aug 18 2018, translated from Maple *)
  • PARI
    my(N=50, x='x+O('x^N)); concat(0, Vec(1/prod(k=1, N, 1-x^k)*sum(k=1, N, (-1)^(k-1)*x^(k*(3*k+1)/2)/(1-x^k)))) \\ Seiichi Manyama, May 21 2023

Formula

a(n) = A115995(n) - A195012(n). - Omar E. Pol, Apr 06 2012
G.f.: (1/Product_{k>=1} (1-x^k)) * Sum_{k>=1} (-1)^(k-1) * x^(k*(3*k+1)/2) / (1-x^k). - Seiichi Manyama, May 21 2023
a(n) ~ log(2) * exp(Pi*sqrt(2*n/3)) / (Pi*2^(3/2)*sqrt(n)). - Vaclav Kotesovec, Jul 06 2025

Extensions

More terms from Alois P. Heinz, Mar 10 2012

A340597 Numbers with an alt-balanced factorization.

Original entry on oeis.org

4, 12, 18, 27, 32, 48, 64, 72, 80, 96, 108, 120, 128, 144, 160, 180, 192, 200, 240, 256, 270, 288, 300, 320, 360, 384, 400, 405, 432, 448, 450, 480, 500, 540, 576, 600, 640, 648, 672, 675, 720, 750, 768, 800, 864, 896, 900, 960, 972, 1000, 1008, 1024, 1080
Offset: 1

Views

Author

Gus Wiseman, Jan 15 2021

Keywords

Comments

We define a factorization into factors > 1 to be alt-balanced if its length is equal to its greatest factor.

Examples

			The sequence of terms together with their prime signatures begins:
      4: (2)        180: (2,2,1)    450: (1,2,2)
     12: (2,1)      192: (6,1)      480: (5,1,1)
     18: (1,2)      200: (3,2)      500: (2,3)
     27: (3)        240: (4,1,1)    540: (2,3,1)
     32: (5)        256: (8)        576: (6,2)
     48: (4,1)      270: (1,3,1)    600: (3,1,2)
     64: (6)        288: (5,2)      640: (7,1)
     72: (3,2)      300: (2,1,2)    648: (3,4)
     80: (4,1)      320: (6,1)      672: (5,1,1)
     96: (5,1)      360: (3,2,1)    675: (3,2)
    108: (2,3)      384: (7,1)      720: (4,2,1)
    120: (3,1,1)    400: (4,2)      750: (1,1,3)
    128: (7)        405: (4,1)      768: (8,1)
    144: (4,2)      432: (4,3)      800: (5,2)
    160: (5,1)      448: (6,1)      864: (5,3)
For example, there are two alt-balanced factorizations of 480, namely (2*3*4*4*5) and (2*2*2*2*5*6), so 480 in the sequence.

Crossrefs

Numbers with a balanced factorization are A100959.
These factorizations are counted by A340599.
The twice-balanced version is A340657.
A001055 counts factorizations.
A045778 counts strict factorizations.
A316439 counts factorizations by product and length.
Other balance-related sequences:
- A010054 counts balanced strict partitions.
- A047993 counts balanced partitions.
- A098124 counts balanced compositions.
- A106529 lists Heinz numbers of balanced partitions.
- A340596 counts co-balanced factorizations.
- A340598 counts balanced set partitions.
- A340600 counts unlabeled balanced multiset partitions.
- A340653 counts balanced factorizations.
- A340654 counts cross-balanced factorizations.
- A340655 counts twice-balanced factorizations.
Cf. A006141, A064174, A117409, A200750, A303975, A324518, A324522, A325134, A340607, A340608, A340611, A340656.

Programs

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

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

Views

Author

Gus Wiseman, Jan 29 2021

Keywords

Comments

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

Examples

			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)

Links

Crossrefs

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.

Programs

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

Formula

Having odd rank is preserved under conjugation, and self-conjugate partitions cannot have odd rank, so a(n) = 2*A101707(n) for n > 0.
Previous Showing 11-20 of 46 results. Next

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.