A325360 -id:A325360 - cp's OEIS frontend

A325368 Heinz numbers of integer partitions with distinct differences between successive parts.

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

Offset: 1

Gus Wiseman, May 02 2019

nonn

The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k).

The enumeration of these partitions by sum is given by A325325.

			Most small numbers are in the sequence, but the sequence of non-terms together with their prime indices begins:
    8: {1,1,1}
   16: {1,1,1,1}
   24: {1,1,1,2}
   27: {2,2,2}
   30: {1,2,3}
   32: {1,1,1,1,1}
   36: {1,1,2,2}
   40: {1,1,1,3}
   48: {1,1,1,1,2}
   54: {1,2,2,2}
   56: {1,1,1,4}
   60: {1,1,2,3}
   64: {1,1,1,1,1,1}
   72: {1,1,1,2,2}
   80: {1,1,1,1,3}
   81: {2,2,2,2}
   88: {1,1,1,5}
   90: {1,2,2,3}
   96: {1,1,1,1,1,2}
  100: {1,1,3,3}

Gus Wiseman, Sequences counting and ranking integer partitions by the differences of their successive parts.

Cf. A056239, A112798, A130091, A240026, A325325, A325328, A325352, A325360, A325361, A325366, A325367, A325405, A325456, A325457.

primeptn[n_]:=If[n==1,{},Reverse[Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]]];
Select[Range[100],UnsameQ@@Differences[primeptn[#]]&]

A240026 Number of partitions of n such that the successive differences of consecutive parts are nondecreasing.

Original entry on oeis.org

1, 1, 2, 3, 5, 6, 10, 12, 16, 21, 27, 32, 43, 50, 60, 75, 90, 103, 128, 146, 170, 203, 234, 264, 315, 355, 402, 467, 530, 589, 684, 764, 851, 969, 1083, 1195, 1360, 1504, 1659, 1863, 2063, 2258, 2531, 2779, 3039, 3379, 3709, 4032, 4474, 4880, 5304, 5846, 6373, 6891, 7578, 8227, 8894, 9727, 10550, 11357, 12405, 13404, 14419

Offset: 0

Joerg Arndt, Mar 31 2014

nonn

Partitions (p(1), p(2), ..., p(m)) such that p(k-1) - p(k-2) <= p(k) - p(k-1) for all k >= 3.

The differences of a sequence are defined as if the sequence were increasing, so for example the differences of (6,3,1) are (-3,-2). Then a(n) is the number of integer partitions of n whose differences are weakly increasing. The Heinz numbers of these partitions are given by A325360. Of course, the number of such integer partitions of n is also the number of reversed integer partitions of n whose differences are weakly increasing, which is the author's interpretation. - Gus Wiseman, May 03 2019

			There are a(10) = 27 such partitions of 10:
01:  [ 1 1 1 1 1 1 1 1 1 1 ]
02:  [ 1 1 1 1 1 1 1 1 2 ]
03:  [ 1 1 1 1 1 1 1 3 ]
04:  [ 1 1 1 1 1 1 4 ]
05:  [ 1 1 1 1 1 2 3 ]
06:  [ 1 1 1 1 1 5 ]
07:  [ 1 1 1 1 2 4 ]
08:  [ 1 1 1 1 6 ]
09:  [ 1 1 1 2 5 ]
10:  [ 1 1 1 7 ]
11:  [ 1 1 2 6 ]
12:  [ 1 1 3 5 ]
13:  [ 1 1 8 ]
14:  [ 1 2 3 4 ]
15:  [ 1 2 7 ]
16:  [ 1 3 6 ]
17:  [ 1 9 ]
18:  [ 2 2 2 2 2 ]
19:  [ 2 2 2 4 ]
20:  [ 2 2 6 ]
21:  [ 2 3 5 ]
22:  [ 2 8 ]
23:  [ 3 3 4 ]
24:  [ 3 7 ]
25:  [ 4 6 ]
26:  [ 5 5 ]
27:  [ 10 ]

Fausto A. C. Cariboni, Table of n, a(n) for n = 0..500 (terms 0..203 from Joerg Arndt)
Gus Wiseman, Sequences counting and ranking integer partitions by the differences of their successive parts.

Cf. A240027 (strictly increasing differences).
Cf. A179255 (distinct parts, nondecreasing), A179254 (distinct parts, strictly increasing).
Cf. A007294, A049988, A320466, A320470, A325325, A325354, A325356, A325360.

Table[Length[Select[IntegerPartitions[n],OrderedQ[Differences[#]]&]],{n,0,30}] (* Gus Wiseman, May 03 2019 *)

def partition(n, min, max)
  return [[]] if n == 0
  [max, n].min.downto(min).flat_map{|i| partition(n - i, min, i).map{|rest| [i, *rest]}}
end
def f(n)
  return 1 if n == 0
  cnt = 0
  partition(n, 1, n).each{|ary|
    ary0 = (1..ary.size - 1).map{|i| ary[i - 1] - ary[i]}
    cnt += 1 if ary0.sort == ary0.reverse
  }
  cnt
end
def A240026(n)
  (0..n).map{|i| f(i)}
end
p A240026(50) # Seiichi Manyama, Oct 13 2018

A325352 Heinz number of the differences plus one of the integer partition with Heinz number n.

Original entry on oeis.org

1, 1, 1, 2, 1, 3, 1, 4, 2, 5, 1, 6, 1, 7, 3, 8, 1, 6, 1, 10, 5, 11, 1, 12, 2, 13, 4, 14, 1, 9, 1, 16, 7, 17, 3, 12, 1, 19, 11, 20, 1, 15, 1, 22, 6, 23, 1, 24, 2, 10, 13, 26, 1, 12, 5, 28, 17, 29, 1, 18, 1, 31, 10, 32, 7, 21, 1, 34, 19, 15, 1, 24, 1, 37, 6, 38

Offset: 1

Gus Wiseman, Apr 23 2019

nonn

The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k).

The only fixed point is 1 because otherwise the sequence decreases omega (A001222) by one.

			The partition (3,2,2,1) with Heinz number 90 has differences plus one (2,1,2) with Heinz number 18, so a(90) = 18.

Positions of m's are A008578 (m = 1), A001248 (m = 2), A006094 (m = 3), A030078 (m = 4), A090076 (m = 5).

Cf. A007294, A049988, A056239, A093641, A112798, A240026, A320466, A325328, A325351, A325360, A325361, A325368, A325405.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
db[n_]:=Times@@Prime/@(1+Differences[primeMS[n]]);
Table[db[n],{n,100}]

A325394 Heinz numbers of integer partitions whose augmented differences are weakly increasing.

Original entry on oeis.org

1, 2, 3, 4, 5, 7, 8, 9, 11, 13, 15, 16, 17, 19, 23, 25, 27, 29, 31, 32, 35, 37, 41, 43, 47, 49, 53, 55, 59, 61, 64, 67, 71, 73, 75, 77, 79, 81, 83, 89, 91, 97, 101, 103, 105, 107, 109, 113, 119, 121, 125, 127, 128, 131, 137, 139, 143, 149, 151, 157, 163, 167

Offset: 1

Gus Wiseman, May 02 2019

nonn

The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k).
The augmented differences aug(y) of an integer partition y of length k are given by aug(y)i = y_i - y{i + 1} + 1 if i < k and aug(y)_k = y_k. For example, aug(6,5,5,3,3,3) = (2,1,3,1,1,3).
The enumeration of these partitions by sum is given by A325356.

			The sequence of terms together with their prime indices begins:
    1: {}
    2: {1}
    3: {2}
    4: {1,1}
    5: {3}
    7: {4}
    8: {1,1,1}
    9: {2,2}
   11: {5}
   13: {6}
   15: {2,3}
   16: {1,1,1,1}
   17: {7}
   19: {8}
   23: {9}
   25: {3,3}
   27: {2,2,2}
   29: {10}
   31: {11}
   32: {1,1,1,1,1}

Gus Wiseman, Sequences counting and ranking integer partitions by the differences of their successive parts.

Cf. A056239, A093641, A112798, A240026, A325351, A325356, A325360, A325362, A325366, A325389, A325395, A325396, A325400.

primeptn[n_]:=If[n==1,{},Reverse[Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]]];
aug[y_]:=Table[If[i

A325362 Heinz numbers of integer partitions whose differences (with the last part taken to be 0) are weakly increasing.

Original entry on oeis.org

1, 2, 3, 5, 6, 7, 10, 11, 13, 14, 17, 19, 21, 22, 23, 26, 29, 30, 31, 33, 34, 37, 38, 39, 41, 42, 43, 46, 47, 51, 53, 57, 58, 59, 61, 62, 65, 66, 67, 69, 71, 73, 74, 78, 79, 82, 83, 85, 86, 87, 89, 93, 94, 95, 97, 101, 102, 103, 106, 107, 109, 110, 111, 113

Offset: 1

Gus Wiseman, May 02 2019

nonn

The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k).
The differences of a sequence are defined as if the sequence were increasing, so for example the differences of (x, y, z) are (y - x, z - y). We adhere to this standard for integer partitions also even though they are always weakly decreasing. For example, the differences of (6,3,1) (with the last part taken to be 0) are (-3,-2,-1).
The enumeration of these partitions by sum is given by A007294.
This sequence and A025487, considered as sets, are related by the partition conjugation function A122111(.), which maps the members of either set 1:1 onto the other set. - Peter Munn, Feb 10 2022

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

Gus Wiseman, Sequences counting and ranking integer partitions by the differences of their successive parts.

Cf. A007294, A056239, A112798, A240026, A320348, A325327, A325360, A325364, A325367, A325390, A325394, A325400.

Related to A025487 via A122111.

primeptn[n_]:=If[n==1,{},Reverse[Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]]];
Select[Range[100],OrderedQ[Differences[Append[primeptn[#],0]]]&]

A325356 Number of integer partitions of n whose augmented differences are weakly increasing.

Original entry on oeis.org

1, 1, 2, 2, 3, 3, 4, 3, 6, 5, 5, 6, 8, 6, 10, 9, 8, 10, 13, 10, 15, 14, 13, 15, 21, 15, 19, 21, 20, 25, 25, 20, 31, 30, 30, 32, 35, 28, 40, 44, 36, 42, 50, 43, 54, 53, 49, 57, 67, 58, 68, 66, 66, 78, 84, 71, 86, 92, 82, 99, 109

Offset: 0

Gus Wiseman, Apr 23 2019

nonn

The augmented differences aug(y) of an integer partition y of length k are given by aug(y)i = y_i - y{i + 1} + 1 if i < k and aug(y)_k = y_k. For example, aug(6,5,5,3,3,3) = (2,1,3,1,1,3).

The Heinz numbers of these partitions are given by A325394.

			The a(1) = 1 through a(8) = 6 partitions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)        (8)
       (11)  (111)  (22)    (32)     (33)      (43)       (44)
                    (1111)  (11111)  (222)     (1111111)  (53)
                                     (111111)             (332)
                                                          (2222)
                                                          (11111111)
For example, the augmented differences of (6,6,5,3) are (1,2,3,3), which are weakly increasing, so (6,6,5,3) is counted under a(20).

Fausto A. C. Cariboni, Table of n, a(n) for n = 0..1500

Cf. A000837, A007294, A049988, A098859, A325350, A325351, A325354, A325357, A325358, A325360, A325394.

Mathematica
```
aug[y_]:=Table[If[i
				
```

A325361 Heinz numbers of integer partitions whose differences are weakly decreasing.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 13, 14, 15, 16, 17, 18, 19, 21, 22, 23, 25, 26, 27, 29, 30, 31, 32, 33, 34, 35, 37, 38, 39, 41, 43, 46, 47, 49, 50, 51, 53, 54, 55, 57, 58, 59, 61, 62, 64, 65, 67, 69, 70, 71, 73, 74, 75, 77, 79, 81, 82, 83, 85, 86, 87, 89

Offset: 1

Gus Wiseman, May 02 2019

nonn

The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k).
The differences of a sequence are defined as if the sequence were increasing, for example the differences of (x, y, z) are (y - x, z - y). We adhere to this standard for integer partitions also even though they are always weakly decreasing. For example, the differences of (6,3,1) are (-3,-2).
The enumeration of these partitions by sum is given by A320466.

			Most small numbers are in the sequence. However, the sequence of non-terms together with their prime indices begins:
   12: {1,1,2}
   20: {1,1,3}
   24: {1,1,1,2}
   28: {1,1,4}
   36: {1,1,2,2}
   40: {1,1,1,3}
   42: {1,2,4}
   44: {1,1,5}
   45: {2,2,3}
   48: {1,1,1,1,2}
   52: {1,1,6}
   56: {1,1,1,4}
   60: {1,1,2,3}
   63: {2,2,4}
   66: {1,2,5}
   68: {1,1,7}
   72: {1,1,1,2,2}
   76: {1,1,8}
   78: {1,2,6}
   80: {1,1,1,1,3}

Gus Wiseman, Sequences counting and ranking integer partitions by the differences of their successive parts.

Cf. A056239, A112798, A320466, A320509, A325328, A325352, A325456, A325457, A325360, A325361, A325364, A320466, A325368, A325389.

primeptn[n_]:=If[n==1,{},Reverse[Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]]];
Select[Range[100],GreaterEqual@@Differences[primeptn[#]]&]

A325546 Number of compositions of n with weakly increasing differences.

Original entry on oeis.org

1, 1, 2, 4, 7, 11, 19, 28, 41, 62, 87, 120, 170, 228, 303, 408, 534, 689, 899, 1145, 1449, 1842, 2306, 2863, 3571, 4398, 5386, 6610, 8039, 9716, 11775, 14157, 16938, 20293, 24166, 28643, 33995, 40134, 47199, 55540, 65088, 75994, 88776, 103328, 119886, 139126

Offset: 0

Gus Wiseman, May 10 2019

nonn

Also compositions of n whose plot is concave-up.
A composition of n is a finite sequence of positive integers summing to n.
The differences of a sequence are defined as if the sequence were increasing, so for example the differences of (3,1,2) are (-2,1).

			The a(1) = 1 through a(6) = 19 compositions:
  (1)  (2)   (3)    (4)     (5)      (6)
       (11)  (12)   (13)    (14)     (15)
             (21)   (22)    (23)     (24)
             (111)  (31)    (32)     (33)
                    (112)   (41)     (42)
                    (211)   (113)    (51)
                    (1111)  (212)    (114)
                            (311)    (123)
                            (1112)   (213)
                            (2111)   (222)
                            (11111)  (312)
                                     (321)
                                     (411)
                                     (1113)
                                     (2112)
                                     (3111)
                                     (11112)
                                     (21111)
                                     (111111)

Andrew Howroyd, Table of n, a(n) for n = 0..1000
Gus Wiseman, Sequences counting and ranking integer partitions by the differences of their successive parts.

Cf. A000079, A000740, A007294, A008965, A070211 (concave-down compositions), A173258, A175342, A240026, A325360, A325545, A325547, A325548, A325552, A325557.

Table[Length[Select[Join@@Permutations/@IntegerPartitions[n],LessEqual@@Differences[#]&]],{n,0,15}]

\\ Row sums of R(n) give A007294 (=breakdown by width).
R(n)={my(L=List(), v=vectorv(n, i, 1), w=1, t=1); while(v, listput(L,v); w++; t+=w; v=vectorv(n, i, sum(k=1, (i-w-1)\t + 1, v[i-w-(k-1)*t]))); Mat(L)}
seq(n)={my(M=R(n)); Vec(1 + sum(i=1, n, my(p=sum(w=1, min(#M,n\i), x^(w*i)*sum(j=1, n-i*w, x^j*M[j,w])));  x^i/(1 - x^i)*(1 + p + O(x*x^(n-i)))^2))} \\ Andrew Howroyd, Aug 28 2019

More terms from Alois P. Heinz, May 11 2019

A325354 Number of reversed integer partitions of n whose k-th differences are weakly increasing for all k.

Original entry on oeis.org

1, 1, 2, 3, 5, 6, 10, 11, 15, 19, 24, 25, 36, 37, 43, 54, 63, 64, 80, 81, 100, 113, 122, 123, 151, 166, 178, 195, 217, 218, 269, 270, 295, 316, 332, 372, 424, 425, 447, 472, 547, 550, 616, 617, 659, 750, 777, 782, 862, 885, 995, 1032, 1083, 1090, 1176, 1275

Offset: 0

Gus Wiseman, May 02 2019

nonn

The differences of a sequence are defined as if the sequence were increasing, so for example the differences of (6,3,1) are (-3,-2).
The zeroth differences of a sequence are the sequence itself, while the k-th differences for k > 0 are the differences of the (k-1)-th differences.
The Heinz numbers of these partitions are given by A325400.

			The a(1) = 1 through a(8) = 15 reversed partitions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)        (8)
       (11)  (12)   (13)    (14)     (15)      (16)       (17)
             (111)  (22)    (23)     (24)      (25)       (26)
                    (112)   (113)    (33)      (34)       (35)
                    (1111)  (1112)   (114)     (115)      (44)
                            (11111)  (123)     (124)      (116)
                                     (222)     (223)      (125)
                                     (1113)    (1114)     (224)
                                     (11112)   (11113)    (1115)
                                     (111111)  (111112)   (1124)
                                               (1111111)  (2222)
                                                          (11114)
                                                          (111113)
                                                          (1111112)
                                                          (11111111)

Gus Wiseman, Sequences counting and ranking integer partitions by the differences of their successive parts.

Cf. A007294, A240026, A325353, A325356, A325360, A325362, A325391, A325393, A325394, A325400, A325404, A325406, A325468.

Table[Length[Select[Sort/@IntegerPartitions[n],And@@Table[OrderedQ[Differences[#,k]],{k,0,Length[#]}]&]],{n,0,30}]

A325357 Number of integer partitions of n whose augmented differences are strictly increasing.

Original entry on oeis.org

1, 1, 1, 1, 2, 1, 2, 2, 2, 2, 3, 3, 3, 3, 4, 3, 5, 5, 4, 5, 6, 5, 7, 7, 7, 7, 9, 7, 10, 10, 8, 11, 13, 10, 13, 14, 12, 14, 17, 13, 17, 19, 17, 18, 22, 19, 22, 24, 21, 24, 28, 24, 29, 30, 28, 31, 35, 30, 35, 40, 36

Offset: 0

Gus Wiseman, Apr 23 2019

nonn

The augmented differences aug(y) of an integer partition y of length k are given by aug(y)i = y_i - y{i + 1} + 1 if i < k and aug(y)_k = y_k. For example, aug(6,5,5,3,3,3) = (2,1,3,1,1,3).

The Heinz numbers of these partitions are given by A325395.

			The a(28) = 10 partitions:
  (28)
  (18,10)
  (17,11)
  (16,12)
  (15,13)
  (14,14)
  (12,10,6)
  (11,10,7)
  (10,10,8)
  (8,8,7,5)
For example, the augmented differences of (8,8,7,5) are (1,2,3,5), which are strictly increasing.

Fausto A. C. Cariboni, Table of n, a(n) for n = 0..2000

Cf. A000837, A007294, A049988, A098859, A325351, A325356, A325360, A325391, A325395.

Mathematica
```
aug[y_]:=Table[If[i
				
```

cp's OEIS Frontend

A325368 Heinz numbers of integer partitions with distinct differences between successive parts.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A240026 Number of partitions of n such that the successive differences of consecutive parts are nondecreasing.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Ruby

A325352 Heinz number of the differences plus one of the integer partition with Heinz number n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A325394 Heinz numbers of integer partitions whose augmented differences are weakly increasing.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A325362 Heinz numbers of integer partitions whose differences (with the last part taken to be 0) are weakly increasing.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A325356 Number of integer partitions of n whose augmented differences are weakly increasing.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A325361 Heinz numbers of integer partitions whose differences are weakly decreasing.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A325546 Number of compositions of n with weakly increasing differences.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs