A108711 -id:A108711 - cp's OEIS frontend

A119620 Number of partitions of floor(3n/2) into n parts each from {1,2,...,n}.

1, 1, 1, 1, 2, 2, 3, 3, 5, 5, 7, 7, 11, 11, 15, 15, 22, 22, 30, 30, 42, 42, 56, 56, 77, 77, 101, 101, 135, 135, 176, 176, 231, 231, 297, 297, 385, 385, 490, 490, 627, 627, 792, 792, 1002, 1002, 1255, 1255, 1575, 1575, 1958, 1958, 2436, 2436, 3010, 3010, 3718, 3718

Offset: 0

John W. Layman, Jun 07 2006

The bisection {1,1,2,3,5,7,11,15,22,...} agrees with the initial terms of A008641, Number of partitions of n into at most 12 parts and also A008635, Molien series for A_12.
a(2n+1)=a(2n) for all n>0. If the partition {...,1} is a member of a(2n) then the partition {...,1,1} is a member of a(2n+1). - Robert G. Wilson v, Jun 09 2006
Number of partitions of n where all parts (except for possibly the first part) are even; see example. - Joerg Arndt, Apr 22 2013
For n >= 2, a(n) = number of partitions p of n such that floor(n/2) is a part of p.  For n >= 1, a(n) = number of partitions p of n such that ceiling(n/2) is a part of p. - Clark Kimberling, Feb 28 2014
From Gus Wiseman, Oct 28 2021: (Start)
If we insert zeros every three terms, this counts partitions of n such that n = floor(3*k/2), where k is the number of parts. This counts by sum rather than length. These partitions are ranked by A347452.
Also the number of integer partitions of n with alternating product 1, where the alternating product of a sequence (y_1,...,y_k) is Product_i y_i^((-1)^(i-1)). These are the conjugates of the partitions (ranked by A336119) described in Arndt's comment above. For example, the a(2) = 1 through a(10) = 7 partitions are:
  11  111  22    221    33      331      44        441        55
           1111  11111  2211    22111    2222      22221      3322
                        111111  1111111  3311      33111      4411
                                         221111    2211111    222211
                                         11111111  111111111  331111
                                                              22111111
                                                              1111111111
These partitions are ranked by A028982. The odd-length case is A035363 (shifted), which is also the version for sum instead of product. The multiplicative version (factorizations) is A347438.
(End)

			For n=8, floor(3*n/2) is 12 and there are five partitions of 12 into 8 parts each in the range 1-8 inclusive, namely: {5,1,1,1,1,1,1,1}, {4,2,1,1,1,1,1,1}, {3,3,1,1,1,1,1,1}, {3,2,2,1,1,1,1,1} and {2,2,2,2,1,1,1,1}. Thus a(8)=5.
From _Joerg Arndt_, Apr 22 2013: (Start)
a(8) = a(9) = 5, counting the following partitions where all parts (except for possibly the first part) are even:
01:  [ 2 2 2 2 ]
02:  [ 4 2 2 ]
03:  [ 4 4 ]
04:  [ 6 2 ]
05:  [ 8 ]
and
01:  [ 3 2 2 2 ]
02:  [ 5 2 2 ]
03:  [ 5 4 ]
04:  [ 7 2 ]
05:  [ 9 ]
(End)
G.f. = 1 + x + x^2 + x^3 + 2*x^4 + 2*x^5 + 3*x^6 + 3*x^7 + 5*x^8 + 5*x^9 + 7*x^10 + ...

Cf. A008641, A008635.
Both bisections are A000041.
An adjoint version is A108711.
A027187 counts partitions of even length.
A027193 counts partitions of odd length.
A325534 counts separable partitions.
A325535 counts inseparable partitions.
Cf. A000070, A001700, A028983, A086543, A182616, A236559, A236914, A344654, A347444, A347452.

# Using the function EULER from Transforms (see link at the bottom of the page).
[1, op(EULER([1,0,seq(irem(n,2),n=2..55)]))]; # Peter Luschny, Aug 19 2020

(* first do *) Needs["DiscreteMath`Combinatorica`"] (* then *) f[n_] := f[n] = Length@ Select[ Partitions[ Floor[3n/2], n], Length@# == n &]; Table[ If[n > 1, f[2Floor[n/2]], f[n]], {n, 57}] (* Robert G. Wilson v, Jun 09 2006 *)
Table[ PartitionsP[ Floor[n/2]], {n, 57}] (* Robert G. Wilson v, Jun 09 2006 *)
Table[Count[IntegerPartitions[n], p_ /; MemberQ[p, Ceiling[n/2]]], {n, 50}] (* Clark Kimberling, Feb 28 2014 *)
a[ n_] := SeriesCoefficient[ (1 + x) / QPochhammer[x^2], {x, 0, n}]; (* Michael Somos, Mar 01 2014 *)

a(n)=numbpart(n\2); \\ Joerg Arndt, Apr 22 2013

a(n) = A000041(floor(n/2)). - Vladeta Jovovic, Jun 10 2006

G.f.: (Sum_{n>=0} x^(4*n) / Product_{k=1..n} (1-x^(2*k))) / (1 - x). - Michael Somos, Mar 01 2014 [corrected by Jason Yuen, Jan 24 2025]

More terms from Robert G. Wilson v, Jun 09 2006

Added a(0)=1. - Michael Somos, Mar 01 2014

A347452 Heinz numbers of integer partitions whose sum is 3/2 their length, rounded down.

Original entry on oeis.org

1, 2, 6, 12, 36, 40, 72, 80, 216, 224, 240, 432, 448, 480, 1296, 1344, 1408, 1440, 1600, 2592, 2688, 2816, 2880, 3200, 6656, 7776, 8064, 8448, 8640, 8960, 9600, 13312, 15552, 16128, 16896, 17280, 17920, 19200, 34816, 39936, 46656, 48384, 50176, 50688, 51840

Offset: 1

Gus Wiseman, Oct 28 2021

nonn

Also numbers whose sum of prime indices is 3/2 their number, rounded down, where a prime index of n is a number m such that prime(m) divides n.
The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k). This gives a bijective correspondence between positive integers and integer partitions.
The sequence contains n iff A056239(n) = floor(3*A001222(n)/2). Here, A056239 adds up prime indices, and A001222 counts them with multiplicity.
Counting the partitions with these Heinz numbers gives A119620 with zeros interspersed every three terms.

			The initial terms and their prime indices:
      1: {}
      2: {1}
      6: {1,2}
     12: {1,1,2}
     36: {1,1,2,2}
     40: {1,1,1,3}
     72: {1,1,1,2,2}
     80: {1,1,1,1,3}
    216: {1,1,1,2,2,2}
    224: {1,1,1,1,1,4}
    240: {1,1,1,1,2,3}
    432: {1,1,1,1,2,2,2}
    448: {1,1,1,1,1,1,4}
    480: {1,1,1,1,1,2,3}
   1296: {1,1,1,1,2,2,2,2}
   1344: {1,1,1,1,1,1,2,4}
   1408: {1,1,1,1,1,1,1,5}
   1440: {1,1,1,1,1,2,2,3}
   1600: {1,1,1,1,1,1,3,3}

Counting terms by Heinz weight (in A032766) gives A119620.
An adjoint version is A348550, counted by A108711.
A000041 counts partitions.
A001222 counts prime factors with multiplicity.
A056239 adds up prime indices, row sums of A112798.
A316524 gives the alternating sum of prime indices (reverse: A344616).
A344606 counts wiggly permutations of prime factors.
Cf. A000070, A000097, A028982, A236914, A316413, A347457, A348551.

Select[Range[1000],Total[Cases[FactorInteger[#],{p_,k_}:>k*PrimePi[p]]]==Floor[3*PrimeOmega[#]/2]&]

A348550 Heinz numbers of integer partitions whose length is 2/3 their sum, rounded down.

Original entry on oeis.org

1, 3, 6, 9, 10, 18, 20, 36, 40, 54, 56, 60, 108, 112, 120, 216, 224, 240, 324, 336, 352, 360, 400, 648, 672, 704, 720, 800, 1296, 1344, 1408, 1440, 1600, 1664, 1944, 2016, 2112, 2160, 2240, 2400, 3328, 3888, 4032, 4224, 4320, 4480, 4800, 6656, 7776, 8064, 8448

Offset: 1

Gus Wiseman, Nov 05 2021

nonn

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

			The terms and their prime indices begin:
    1: {}
    3: {2}
    6: {1,2}
    9: {2,2}
   10: {1,3}
   18: {1,2,2}
   20: {1,1,3}
   36: {1,1,2,2}
   40: {1,1,1,3}
   54: {1,2,2,2}
   56: {1,1,1,4}
   60: {1,1,2,3}
  108: {1,1,2,2,2}
  112: {1,1,1,1,4}
  120: {1,1,1,2,3}
  216: {1,1,1,2,2,2}
  224: {1,1,1,1,1,4}
  240: {1,1,1,1,2,3}

The partitions with these as Heinz numbers are counted by A108711.
An adjoint version is A347452, counted by A119620.
The unrounded version is A348384, counted by A035377.
A001222 counts prime factors with multiplicity.
A056239 adds up prime indices, row sums of A112798.
A316524 gives the alternating sum of prime indices, reverse A344616.
A344606 counts alternating permutations of prime factors.
Cf. A001105, A028982, A028260, A119899, A316413, A346703, A346704.

Select[Range[1000],Floor[2*Total[Cases[FactorInteger[#],{p_,k_}:>k*PrimePi[p]]]/3]==PrimeOmega[#]&]

A056239(n) = { my(f); if(1==n, 0, f=factor(n); sum(i=1, #f~, f[i,2] * primepi(f[i,1]))); }
isA348550(n) = (bigomega(n)==floor((2/3)*A056239(n))); \\ Antti Karttunen, Nov 08 2021

A001222(a(n)) = floor(2*A056239(a(n))/3).

A348384 Heinz numbers of integer partitions whose length is 2/3 their sum.

Original entry on oeis.org

1, 6, 36, 40, 216, 224, 240, 1296, 1344, 1408, 1440, 1600, 6656, 7776, 8064, 8448, 8640, 8960, 9600, 34816, 39936, 46656, 48384, 50176, 50688, 51840, 53760, 56320, 57600, 64000, 155648, 208896, 239616, 266240, 279936, 290304, 301056, 304128, 311040, 315392

Offset: 1

Gus Wiseman, Nov 13 2021

nonn

The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k), so these are numbers whose sum of prime indices is 3/2 their number. Counting the partitions with these Heinz numbers gives A035377(n) = A000041(n/3) if n is a multiple of 3, otherwise 0.

			The terms and their prime indices begin:
     1: {}
     6: {1,2}
    36: {1,1,2,2}
    40: {1,1,1,3}
   216: {1,1,1,2,2,2}
   224: {1,1,1,1,1,4}
   240: {1,1,1,1,2,3}
  1296: {1,1,1,1,2,2,2,2}
  1344: {1,1,1,1,1,1,2,4}
  1408: {1,1,1,1,1,1,1,5}
  1440: {1,1,1,1,1,2,2,3}
  1600: {1,1,1,1,1,1,3,3}
  6656: {1,1,1,1,1,1,1,1,1,6}
  7776: {1,1,1,1,1,2,2,2,2,2}

David A. Corneth, Table of n, a(n) for n = 1..10000

These partitions are counted by A035377.
Rounding down gives A348550 or A347452, counted by A108711 or A119620.
A000041 counts integer partitions.
A001222 counts prime factors with multiplicity.
A056239 adds up prime indices, row sums of A112798.
A316524 gives the alternating sum of prime indices (reverse: A344616).
A344606 counts alternating permutations of prime factors.
Cf. A000070, A000097, A028260, A028982, A032766, A236914, A316413, A347457, A348551.

Select[Range[1000],2*Total[Cases[FactorInteger[#],{p_,k_}:>k*PrimePi[p]]]==3*PrimeOmega[#]&]

A056239(n) = { my(f); if(1==n, 0, f=factor(n); sum(i=1, #f~, f[i, 2] * primepi(f[i, 1]))); }
isA348384(n) = (A056239(n)==(3/2)*bigomega(n)); \\ Antti Karttunen, Nov 22 2021

The sequence contains n iff A056239(n) = 3*A001222(n)/2. Here, A056239 adds up prime indices, while A001222 counts them with multiplicity.

Intersection of A028260 and A347452.

A349149 Number of even-length integer partitions of n with at most one odd part in the conjugate partition.

Original entry on oeis.org

1, 0, 1, 1, 2, 2, 3, 4, 5, 7, 7, 12, 11, 19, 15, 30, 22, 45, 30, 67, 42, 97, 56, 139, 77, 195, 101, 272, 135, 373, 176, 508, 231, 684, 297, 915, 385, 1212, 490, 1597, 627, 2087, 792, 2714, 1002, 3506, 1255, 4508, 1575, 5763, 1958, 7338, 2436, 9296, 3010, 11732

Offset: 0

Gus Wiseman, Nov 09 2021

nonn

The alternating sum of a partition is equal to the number of odd parts in the conjugate partition, so this sequence counts even-length partitions with alternating sum <= 1.

			The a(2) = 1 through a(9) = 7 partitions:
  11   21   22     32     33       43       44         54
            1111   2111   2211     2221     2222       3222
                          111111   3211     3311       3321
                                   211111   221111     4311
                                            11111111   222111
                                                       321111
                                                       21111111

The case of 0 odd conjugate parts is A000041 up to 0's, ranked by A000290.
The case of 1 odd conjugate part is A000070 up to 0's.
Even bisection of A100824, ranked by A349150.
Ranked by A349151 /\ A028260.
A045931 counts partitions with as many even as odd parts, ranked by A325698.
A103919 counts partitions by sum and alternating sum (reverse: A344612).
A122111 is a representation of partition conjugation.
A277103 counts partitions with the same alternating sum as their conjugate.
A277579 counts partitions with as many even parts as odd conjugate parts.
A325039 counts partitions with the same product as their conjugate.
A344610 counts partitions by sum and positive reverse-alternating sum.
A345196 counts partitions with the same rev-alt sum as their conjugate.
Cf. A000097, A000700, A001700, A027187, A027193, A108711, A236559, A236913, A325534, A344607, A344651.

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

a(2n) = A000041(n).

a(2n+1) = A000070(n-1).

cp's OEIS Frontend

A119620 Number of partitions of floor(3n/2) into n parts each from {1,2,...,n}.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Maple

Mathematica

PARI

Formula

Extensions

A347452 Heinz numbers of integer partitions whose sum is 3/2 their length, rounded down.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A348550 Heinz numbers of integer partitions whose length is 2/3 their sum, rounded down.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

PARI

Formula

A348384 Heinz numbers of integer partitions whose length is 2/3 their sum.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A349149 Number of even-length integer partitions of n with at most one odd part in the conjugate partition.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula