A049988 -id:A049988 - cp's OEIS frontend

A325327 Heinz numbers of multiples of triangular partitions, or finite arithmetic progressions with offset 0.

1, 2, 3, 5, 6, 7, 11, 13, 17, 19, 21, 23, 29, 30, 31, 37, 41, 43, 47, 53, 59, 61, 65, 67, 71, 73, 79, 83, 89, 97, 101, 103, 107, 109, 113, 127, 131, 133, 137, 139, 149, 151, 157, 163, 167, 173, 179, 181, 191, 193, 197, 199, 210, 211, 223, 227, 229, 233, 239

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).
Also numbers of the form Product_{k = 1..b} prime(k * c) for some b >= 0 and c > 0.
The enumeration of these partitions by sum is given by A007862.

			The sequence of terms together with their prime indices begins:
    1: {}
    2: {1}
    3: {2}
    5: {3}
    6: {1,2}
    7: {4}
   11: {5}
   13: {6}
   17: {7}
   19: {8}
   21: {2,4}
   23: {9}
   29: {10}
   30: {1,2,3}
   31: {11}
   37: {12}
   41: {13}
   43: {14}
   47: {15}
   53: {16}

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

Cf. A000961, A007294, A007862, A049988, A056239, A112798, A130091, A289509, A307824, A325328, A325367, A325390, A325407.

primeptn[n_]:=If[n==1,{},Reverse[Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]]];
Select[Range[100],SameQ@@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
				
```

A049989 a(n) is the number of arithmetic progressions of positive integers, nondecreasing with sum <= n.

Original entry on oeis.org

1, 3, 6, 10, 14, 21, 26, 33, 42, 51, 58, 72, 80, 91, 107, 120, 130, 150, 161, 178, 199, 215, 228, 255, 272, 290, 316, 338, 354, 389, 406, 429, 460, 483, 508, 549, 569, 594, 630, 663, 685, 731, 754, 785, 833, 863, 888, 940, 969, 1007, 1054, 1090, 1118, 1175, 1212, 1253, 1305, 1342, 1373, 1444, 1476, 1515, 1577, 1621

Offset: 1

Clark Kimberling

nonn

Andrew Howroyd, Table of n, a(n) for n = 1..10000
Sadek Bouroubi and Nesrine Benyahia Tani, Integer partitions into arithmetic progressions, Rostok. Math. Kolloq. 64 (2009), 11-16.
Sadek Bouroubi and Nesrine Benyahia Tani, Integer partitions into arithmetic progressions with an odd common difference, Integers 9(1) (2009), 77-81.
Graeme McRae, Counting arithmetic sequences whose sum is n.
Graeme McRae, Counting arithmetic sequences whose sum is n [Cached copy]
Augustine O. Munagi, Combinatorics of integer partitions in arithmetic progression, Integers 10(1) (2010), 73-82.
Augustine O. Munagi and Temba Shonhiwa, On the partitions of a number into arithmetic progressions, Journal of Integer Sequences 11 (2008), Article 08.5.4.
A. N. Pacheco Pulido, Extensiones lineales de un poset y composiciones de números multipartitos, Maestría thesis, Universidad Nacional de Colombia, 2012.
Wikipedia, Arithmetic progression.
Gus Wiseman, Sequences counting and ranking integer partitions by the differences of their successive parts.

Cf. A047966, A049982, A049983, A049984, A049986, A049987, A129654, A240026, A240027, A307824, A320466, A325325, A325328.

seq(n)={my(w=(sqrtint(8*n+1)-1)\2+1); Vec(x/(1-x)^2 + sum(k=2, n, x^k/(1 - if(k<=w, x^(k*(k-1)/2)))/(1-x^k) + O(x*x^n))/(1-x))} \\ Andrew Howroyd, Sep 28 2019

From Petros Hadjicostas, Sep 29 2019: (Start)
a(n) = Sum_{k = 1..n} A049988(k). [Note that the offset of A049988 is 0.]
G.f.: (-1 + g.f. of A049988)/(1-x). (End)

More terms from Petros Hadjicostas, Sep 28 2019

A320470 Number of partitions of n such that the successive differences of consecutive parts are strictly decreasing.

Original entry on oeis.org

1, 1, 2, 2, 3, 4, 4, 5, 7, 6, 8, 10, 10, 11, 14, 13, 16, 19, 18, 20, 25, 23, 27, 31, 30, 34, 39, 37, 42, 48, 47, 50, 59, 56, 63, 70, 68, 74, 83, 82, 89, 97, 97, 104, 116, 113, 123, 133, 133, 142, 155, 153, 166, 178, 178, 189, 204, 204, 218, 232, 235, 247, 265, 265, 283, 299

Offset: 0

Seiichi Manyama, Oct 13 2018

nonn

Partitions are usually written with parts in descending order, but the conditions are easier to check "visually" if written in ascending order.
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 strictly decreasing. The Heinz numbers of these partitions are given by A325457. Of course, the number of such integer partitions of n is also the number of reversed integer partitions of n whose differences are strictly decreasing, which is the author's interpretation. - Gus Wiseman, May 03 2019

			There are a(10) = 8 such partitions of 10:
01: [10]
02: [1, 9]
03: [2, 8]
04: [3, 7]
05: [4, 6]
06: [5, 5]
07: [1, 4, 5]
08: [2, 4, 4]
There are a(11) = 10 such partitions of 11:
01: [11]
02: [1, 10]
03: [2, 9]
04: [3, 8]
05: [4, 7]
06: [5, 6]
07: [1, 4, 6]
08: [1, 5, 5]
09: [2, 4, 5]
10: [3, 4, 4]

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

Cf. A049988, A240026, A240027, A320466, A320510, A325325, A325358, A325393, A325457.

Table[Length[Select[IntegerPartitions[n],Greater@@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 && ary0.uniq == ary0
  }
  cnt
end
def A320470(n)
  (0..n).map{|i| f(i)}
end
p A320470(50)

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
				
```

A325407 Nonprime Heinz numbers of multiples of triangular partitions, or of finite arithmetic progressions with offset 0.

Original entry on oeis.org

1, 6, 21, 30, 65, 133, 210, 273, 319, 481, 731, 1007, 1403, 1495, 2059, 2310, 2449, 3293, 4141, 4601, 4921, 5187, 5311, 6943, 8201, 9211, 10921, 12283, 13213, 14993, 15247, 16517, 19847, 22213, 24139, 25853, 28141, 29341, 29539, 30030, 31753, 37211, 40741

Offset: 1

Gus Wiseman, May 03 2019

nonn

The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k), so these are numbers of the form Product_{k = 1...b} prime(k * c) for some b > 1 and c > 0.

			The sequence of terms together with their prime indices begins:
      1: {}
      6: {1,2}
     21: {2,4}
     30: {1,2,3}
     65: {3,6}
    133: {4,8}
    210: {1,2,3,4}
    273: {2,4,6}
    319: {5,10}
    481: {6,12}
    731: {7,14}
   1007: {8,16}
   1403: {9,18}
   1495: {3,6,9}
   2059: {10,20}
   2310: {1,2,3,4,5}
   2449: {11,22}
   3293: {12,24}
   4141: {13,26}
   4601: {14,28}

Cf. A007294, A007862, A049988, A056239, A112798, A325327, A325328, A325355, A325359, A325367, A325390.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[10000],!PrimeQ[#]&&SameQ@@Differences[Prepend[primeMS[#],0]]&]

A325358 Number of integer partitions of n whose augmented differences are strictly decreasing.

Original entry on oeis.org

1, 1, 1, 2, 2, 2, 3, 4, 4, 5, 6, 6, 7, 9, 10, 11, 13, 14, 15, 18, 20, 21, 24, 26, 28, 33, 36, 38, 43, 46, 49, 56, 60, 63, 71, 76, 80, 90, 96, 100, 112, 120, 125, 139, 149, 155, 171, 183, 190, 208, 223, 232, 252, 269, 280, 304, 325, 338, 364, 387, 403

Offset: 0

Gus Wiseman, May 01 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 A325396.

			The a(1) = 1 through a(11) = 6 partitions:
  (1)  (2)  (3)   (4)   (5)   (6)   (7)    (8)    (9)    (10)   (11)
            (21)  (31)  (41)  (42)  (52)   (62)   (63)   (73)   (83)
                              (51)  (61)   (71)   (72)   (82)   (92)
                                    (421)  (521)  (81)   (91)   (101)
                                                  (621)  (631)  (731)
                                                         (721)  (821)

Fausto A. C. Cariboni, 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. A049988, A240026, A320466, A325349, A325350, A325351, A325356, A325357, A325359, A325393.

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

A325393 Number of integer partitions of n whose k-th differences are strictly decreasing for all k >= 0.

Original entry on oeis.org

1, 1, 1, 2, 2, 3, 3, 4, 5, 5, 6, 8, 7, 9, 11, 10, 12, 15, 13, 16, 19, 18, 20, 24, 22, 26, 29, 28, 31, 37, 33, 38, 43, 42, 44, 52, 48, 55, 59, 58, 62, 72, 65, 74, 80, 80, 82, 94, 88, 99, 103, 104, 108, 123, 114, 126, 133, 135, 137, 155, 145, 161, 166, 169, 174

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 A325399.

			The a(1) = 1 through a(9) = 5 partitions:
  (1)  (2)  (3)   (4)   (5)   (6)   (7)   (8)    (9)
            (21)  (31)  (32)  (42)  (43)  (53)   (54)
                        (41)  (51)  (52)  (62)   (63)
                                    (61)  (71)   (72)
                                          (431)  (81)

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

Cf. A049988, A320466, A325353, A325354, A325358, A325391, A325396, A325399, A325404, A325406, A325457, A325468.

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

A325406 Triangle read by rows where T(n,k) is the number of reversed integer partitions of n with k distinct differences of any degree.

Original entry on oeis.org

1, 0, 1, 0, 1, 1, 0, 1, 2, 0, 0, 1, 2, 2, 0, 0, 1, 1, 3, 2, 0, 0, 1, 4, 2, 3, 1, 0, 0, 1, 1, 5, 5, 2, 1, 0, 0, 1, 3, 5, 6, 3, 3, 1, 0, 0, 1, 3, 4, 8, 7, 1, 4, 2, 0, 0, 1, 3, 6, 11, 7, 5, 2, 4, 2, 1, 0, 1, 1, 6, 13, 8, 9, 9, 0, 4, 3, 1, 0, 1, 6, 7, 11, 12, 9

Offset: 0

Gus Wiseman, May 03 2019

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 distinct differences of any degree are the union of the k-th differences for all k >= 0. For example, the k-th differences of (1,1,2,4) for k = 0...3 are:
  (1,1,2,4)
  (0,1,2)
  (1,1)
  (0)
so there are a total of 4 distinct differences of any degree, namely {0,1,2,4}.

			Triangle begins:
  1
  0  1
  0  1  1
  0  1  2  0
  0  1  2  2  0
  0  1  1  3  2  0
  0  1  4  2  3  1  0
  0  1  1  5  5  2  1  0
  0  1  3  5  6  3  3  1  0
  0  1  3  4  8  7  1  4  2  0
  0  1  3  6 11  7  5  2  4  2  1
  0  1  1  6 13  8  9  9  0  4  3  1
  0  1  6  7 11 12  9 10  8  4  3  2  2
  0  1  1  7 18  9 14 19  5 10  3  5  4  1
  0  1  3  9 17  9 22 20 15  9  7  6  5  4  1
  0  1  4  8 22 11 16 24 22 19 10 11  2  8  7  2
  0  1  4 10 23 15 24 23 27 27 12 14 11  8  8  5  5
Row n = 8 counts the following partitions:
  (8)  (44)        (17)       (116)     (134)   (1133)   (111122)
       (2222)      (26)       (125)     (233)   (11123)
       (11111111)  (35)       (1115)    (1223)  (11222)
                   (224)      (1124)
                   (1111112)  (11114)
                              (111113)

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

Row sums are A000041.

Cf. A049597, A049988, A279945, A320348, A325324, A325325, A325349, A325404, A325466.

Table[Length[Select[Reverse/@IntegerPartitions[n],Length[Union@@Table[Differences[#,i],{i,0,Length[#]}]]==k&]],{n,0,16},{k,0,n}]

A325874 Number of integer partitions of n whose differences of all degrees > 1 are nonzero.

Original entry on oeis.org

1, 1, 2, 2, 4, 5, 6, 8, 12, 13, 19, 24, 26, 33, 45, 52, 66, 78, 92, 113, 129, 160, 192, 231, 268, 305, 361, 436, 501, 591, 665, 783, 897, 1071, 1228, 1361, 1593, 1834, 2101, 2452, 2685, 3129, 3526, 4067, 4568, 5189, 5868, 6655, 7565, 8468, 9400

Offset: 0

Gus Wiseman, Jun 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 are the sequence itself, while k-th differences for k > 0 are the differences of the (k-1)-th differences. If m is the length of the sequence, its differences of all degrees are the union of the zeroth through m-th differences.

The case for all degrees including 1 is A325852.

			The a(1) = 1 through a(9) = 13 partitions:
  (1)  (2)   (3)   (4)    (5)    (6)     (7)    (8)     (9)
       (11)  (21)  (22)   (32)   (33)    (43)   (44)    (54)
                   (31)   (41)   (42)    (52)   (53)    (63)
                   (211)  (221)  (51)    (61)   (62)    (72)
                          (311)  (411)   (322)  (71)    (81)
                                 (2211)  (331)  (332)   (441)
                                         (421)  (422)   (522)
                                         (511)  (431)   (621)
                                                (521)   (711)
                                                (611)   (4221)
                                                (3221)  (4311)
                                                (3311)  (5211)
                                                        (32211)

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

Cf. A049988, A238423, A325325, A325468, A325545, A325849, A325850, A325851, A325852, A325875, A325876.

Table[Length[Select[IntegerPartitions[n],!MemberQ[Union@@Table[Differences[#,i],{i,2,Length[#]}],0]&]],{n,0,30}]

cp's OEIS Frontend

A325327 Heinz numbers of multiples of triangular partitions, or finite arithmetic progressions with offset 0.

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

A049989 a(n) is the number of arithmetic progressions of positive integers, nondecreasing with sum <= n.

Views

Author

Keywords

Links

Crossrefs

Programs

PARI

Formula

Extensions

A320470 Number of partitions of n such that the successive differences of consecutive parts are strictly decreasing.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Ruby

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

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A325407 Nonprime Heinz numbers of multiples of triangular partitions, or of finite arithmetic progressions with offset 0.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A325358 Number of integer partitions of n whose augmented differences are strictly decreasing.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A325393 Number of integer partitions of n whose k-th differences are strictly decreasing for all k >= 0.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs