A365826 -id:A365826 - cp's OEIS frontend

A238628 Number of partitions p of n such that n - max(p) is a part of p.

0, 1, 1, 3, 2, 5, 3, 8, 4, 11, 5, 16, 6, 21, 7, 29, 8, 38, 9, 51, 10, 66, 11, 88, 12, 113, 13, 148, 14, 190, 15, 246, 16, 313, 17, 402, 18, 508, 19, 646, 20, 812, 21, 1023, 22, 1277, 23, 1598, 24, 1982, 25, 2461, 26, 3036, 27, 3745, 28, 4593, 29, 5633

Offset: 1

Clark Kimberling, Mar 02 2014

Also the number of integer partitions of n that are of length 2 or contain n/2. The first condition alone is A004526, complement A058984. The second condition alone is A035363, complement A086543, ranks A344415. - Gus Wiseman, Oct 07 2023

			a(6) counts these partitions:  51, 42, 33, 321, 3111.

Cf. A238479.
The strict case is A365659, complement A365826.
The complement is counted by A365825.
These partitions are ranked by A366318.
A000041 counts integer partitions, strict A000009.
A140106 counts strict partitions of length 2, complement A365827.
A182616 counts partitions of 2n that do not contain n, strict A365828.
Cf. A004526, A005408, A008967, A035363, A058984, A068911, A086543.

Table[Count[IntegerPartitions[n], p_ /; MemberQ[p, n - Max[p]]], {n, 50}]

a(n) = my(res = floor(n/2)); if(!bitand(n, 1), res+=(numbpart(n/2)-1)); res

from sympy.utilities.iterables import partitions
def A238628(n): return sum(1 for p in partitions(n) if n-max(p,default=0) in p) # Chai Wah Wu, Sep 21 2023

A365825 Number of integer partitions of n that are not of length 2 and do not contain n/2.

Original entry on oeis.org

1, 1, 1, 2, 2, 5, 6, 12, 14, 26, 31, 51, 61, 95, 114, 169, 202, 289, 347, 481, 576, 782, 936, 1244, 1487, 1946, 2323, 2997, 3570, 4551, 5414, 6827, 8103, 10127, 11997, 14866, 17575, 21619, 25507, 31166, 36692, 44563, 52362, 63240, 74152, 89112, 104281, 124731

Offset: 0

Gus Wiseman, Sep 19 2023

nonn

Also the number of integer partitions of n with no two possibly equal parts summing to n.

			The a(1) = 1 through a(8) = 14 partitions:
  (1)  (2)  (3)    (4)     (5)      (6)       (7)        (8)
            (111)  (1111)  (221)    (222)     (322)      (332)
                           (311)    (411)     (331)      (521)
                           (2111)   (2211)    (421)      (611)
                           (11111)  (21111)   (511)      (2222)
                                    (111111)  (2221)     (3221)
                                              (3211)     (3311)
                                              (4111)     (5111)
                                              (22111)    (22211)
                                              (31111)    (32111)
                                              (211111)   (221111)
                                              (1111111)  (311111)
                                                         (2111111)
                                                         (11111111)

First condition alone is A058984, complement A004526, ranks A100959.
Second condition alone is A086543, complement A035363, ranks !A344415.
The complement is counted by A238628.
The strict case is A365826, complement A365659.
A000041 counts integer partitions, strict A000009.
A046663 counts partitions with no submultiset summing to k, strict A365663.
A140106 counts strict partitions of length 2, complement A365827.
A182616 counts partitions of 2n that do not contain n, strict A365828.
Cf. A005408, A008967, A068911, A365377, A365544, A365543.

Table[Length[Select[IntegerPartitions[n],Length[#]!=2&&FreeQ[#,n/2]&]],{n,0,15}]

from sympy import npartitions
def A365825(n): return npartitions(n)-(m:=n>>1)-(0 if n&1 else npartitions(m)-1) # Chai Wah Wu, Sep 23 2023

Heinz numbers are A100959 /\ !A344415.

a(n) = A000041(n)-(n-1)/2 if n is odd. a(n) = A000041(n)-n/2-A000041(n/2)+1 if n is even. - Chai Wah Wu, Sep 23 2023

a(31)-a(47) from Chai Wah Wu, Sep 23 2023

A365827 Number of strict integer partitions of n whose length is not 2.

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 2, 2, 3, 4, 6, 7, 10, 12, 16, 20, 25, 30, 38, 45, 55, 66, 79, 93, 111, 130, 153, 179, 209, 242, 282, 325, 375, 432, 496, 568, 651, 742, 846, 963, 1094, 1240, 1406, 1589, 1795, 2026, 2282, 2567, 2887, 3240, 3634, 4072, 4557, 5094, 5692, 6351

Offset: 0

Gus Wiseman, Sep 20 2023

nonn

Also the number of strict integer partitions of n with no pair of distinct parts summing to n.

			The a(5) = 1 through a(13) = 12 strict partitions (A..D = 10..13):
  (5)  (6)    (7)    (8)    (9)    (A)     (B)     (C)     (D)
       (321)  (421)  (431)  (432)  (532)   (542)   (543)   (643)
                     (521)  (531)  (541)   (632)   (642)   (652)
                            (621)  (631)   (641)   (651)   (742)
                                   (721)   (731)   (732)   (751)
                                   (4321)  (821)   (741)   (832)
                                           (5321)  (831)   (841)
                                                   (921)   (931)
                                                   (5421)  (A21)
                                                   (6321)  (5431)
                                                           (6421)
                                                           (7321)

The complement is counted by A140106 shifted left.
Heinz numbers are A005117 \ A006881 = A005117 /\ A100959.
The non-strict version is A058984, complement A004526.
The case not containing n/2 is A365826, non-strict A365825.
A000041 counts integer partitions, strict A000009.
A046663 counts partitions with no submultiset summing to k, strict A365663.
A182616 counts partitions of 2n that do not contain n, strict A365828.
Cf. A008967, A035363, A078408, A365659.

Table[Length[Select[IntegerPartitions[n],UnsameQ@@#&&Length[#]!=2&]],{n,0,30}]

a(n) = A000009(n) - A004526(n-1) for n > 0.

cp's OEIS Frontend

A238628 Number of partitions p of n such that n - max(p) is a part of p.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

PARI

Python

A365825 Number of integer partitions of n that are not of length 2 and do not contain n/2.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Python

Formula

Extensions

A365827 Number of strict integer partitions of n whose length is not 2.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula