A179269 -id:A179269 - cp's OEIS frontend

A007294 Number of partitions of n into nonzero triangular numbers.

1, 1, 1, 2, 2, 2, 4, 4, 4, 6, 7, 7, 10, 11, 11, 15, 17, 17, 22, 24, 25, 32, 35, 36, 44, 48, 50, 60, 66, 68, 81, 89, 92, 107, 117, 121, 141, 153, 159, 181, 197, 205, 233, 252, 262, 295, 320, 332, 372, 401, 417, 465, 501, 520, 575, 619, 645, 710, 763

Offset: 0

N. J. A. Sloane, Mira Bernstein

nonn

Also number of decreasing integer sequences l(1) >= l(2) >= l(3) >= .. 0 such that sum('i*l(i)','i'=1..infinity)=n.
a(n) is also the number of partitions of n such that #{parts equal to i} >= #{parts equal to j} if i <= j.
Also the number of partitions of n (necessarily into distinct parts) where the part sizes are monotonically decreasing (including the last part, which is the difference between the last part and a "part" of size 0). These partitions are the conjugates of the partitions with number of parts of size i increasing. - Franklin T. Adams-Watters, Apr 08 2008
Also partitions with condition as in A179255, and additionally, if more than one part, first difference >= first part: for example, a(10)=7 as there are 7 such partitions of 10:  1+2+3+4 = 1+2+7 = 1+3+6 = 1+9 = 2+8 = 3+7 = 10. - Joerg Arndt, Mar 22 2011
Number of members of A181818 with a bigomega value of n (cf. A001222). - Matthew Vandermast, May 19 2012

			6 = 3+3 = 3+1+1+1 = 1+1+1+1+1+1 so a(6) = 4.
a(7)=4: Four sequences as above are (7,0,..), (5,1,0,..), (3,2,0,..),(2,1,1,0,..). They correspond to the partitions 1^7, 2 1^5, 2^2 1^3, 3 2 1^2 of seven or in the main description to the partitions 1^7, 3 1^4, 3^2 1, 6 1.
From _Gus Wiseman_, May 03 2019: (Start)
The a(1) = 1 through a(9) = 6 partitions using nonzero triangular numbers are the following. The Heinz numbers of these partitions are given by A325363.
  1   11   3     31     311     6        61        611        63
           111   1111   11111   33       331       3311       333
                                3111     31111     311111     6111
                                111111   1111111   11111111   33111
                                                              3111111
                                                              111111111
The a(1) = 1 through a(10) = 7 partitions with weakly decreasing multiplicities are the following. Equivalent to Matthew Vandermast's comment, the Heinz numbers of these partitions are given by A025487 (products of primorial numbers).
  1  11  21   211   2111   321     3211     32111     32211      4321
         111  1111  11111  2211    22111    221111    222111     322111
                           21111   211111   2111111   321111     2221111
                           111111  1111111  11111111  2211111    3211111
                                                      21111111   22111111
                                                      111111111  211111111
                                                                 1111111111
The a(1) = 1 through a(11) = 7 partitions with weakly increasing differences (where the last part is taken to be zero) are the following. The Heinz numbers of these partitions are given by A325362 (A = 10, B = 11).
  (1)  (2)  (3)   (4)   (5)   (6)    (7)    (8)    (9)    (A)     (B)
            (21)  (31)  (41)  (42)   (52)   (62)   (63)   (73)    (83)
                              (51)   (61)   (71)   (72)   (82)    (92)
                              (321)  (421)  (521)  (81)   (91)    (A1)
                                                   (531)  (631)   (731)
                                                   (621)  (721)   (821)
                                                          (4321)  (5321)
(End)

N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

T. D. Noe and Vaclav Kotesovec, Table of n, a(n) for n = 0..10000 (terms 0..1000 from T. D. Noe)
Gert Almkvist, Asymptotics of various partitions, arXiv:math/0612446 [math.NT], 2006.
G. E. Andrews, MacMahon's Partition Analysis II: Fundamental Theorems, Annals Combinatorics, 4 (2000), 327-338.
N. A. Brigham, A General Asymptotic Formula for Partition Functions, Proc. Amer. Math. Soc., vol. 1 (1950), p. 191.
Jorge A. Campos-Gonzalez-Angulo, Raphael F. Ribeiro, and Joel Yuen-Zhou, Generalization of the Tavis-Cummings model for multi-level anharmonic systems, arXiv:2101.09475 [physics.optics], 2021.
Zhicheng Gao, Andrew MacFie and Daniel Panario, Counting words by number of occurrences of some patterns, The Electronic Journal of Combinatorics, 18 (2011), #P143.
Igor Pak, Complexity problems in enumerative combinatorics, arXiv:1803.06636 [math.CO], 2018.
James A. Sellers, Partitions Excluding Specific Polygonal Numbers As Parts, Journal of Integer Sequences, Vol. 7 (2004), Article 04.2.4.
Jan Snellman and Michael Paulsen, Enumeration of Concave Integer Partitions, Journal of Integer Sequences, Vol. 7, 2004.
Gus Wiseman, Sequences counting and ranking integer partitions by the differences of their successive parts.

Cf. A000217, A051533, A000294.
Cf. A102462.
Row sums of array A176723 and triangle A176724. - Wolfdieter Lang, Jul 19 2010
Cf. A179255 (condition only on differences), A179269 (parts strictly increasing instead of nondecreasing). - Joerg Arndt, Mar 22 2011
Cf. A024940, A280366.
Row sums of A319797.
Cf. A007862, A025487, A240026, A320509, A325324, A325354, A325356, A325362, A325363.

a007294 = p $ tail a000217_list where
   p _      0 = 1
   p ks'@(k:ks) m = if m < k then 0 else p ks' (m - k) + p ks m
-- Reinhard Zumkeller, Jun 28 2013

b:= proc(n,i) option remember;
      if n<0 then 0
    elif n=0 then 1
    elif i=0 then 0
    else b(n, i-1) +b(n-i*(i+1)/2, i)
      fi
    end:
a:= n-> b(n, floor(sqrt(2*n))):
seq(a(n), n=0..100);  # Alois P. Heinz, Mar 22 2011
isNondecrP :=proc(L) slp := DIFF(DIFF(L)) ; min(op(%)) >= 0 ; end proc:
A007294 := proc(n) local a, p; a := 0 ; if n = 0 then return 1 ; end if; for p in combinat[partition](n) do if nops(p) = nops(convert(p, set)) then if isNondecrP(p) then if nops(p) =1 then a := a+1 ; elif op(2, p) >= 2*op(1, p) then a := a+1; end if; end if; end if; end do; a ; end proc:
seq(A007294(n), n=0..30) ; # R. J. Mathar, Jan 07 2011

CoefficientList[ Series[ 1/Product[1 - x^(i(i + 1)/2), {i, 1, 50}], {x, 0, 70}], x]
(* also *)
t = Table[n (n + 1)/2, {n, 1, 200}] ; p[n_] := IntegerPartitions[n, All, t]; Table[p[n], {n, 0, 12}] (*shows partitions*)
a[n_] := Length@p@n; a /@Range[0, 80]
(* Clark Kimberling, Mar 09 2014 *)
b[n_, i_] := b[n, i] = Which[n < 0, 0, n == 0, 1, i == 0, 0, True, b[n, i-1]+b[n-i*(i+1)/2, i]]; a[n_] := b[n, Floor[Sqrt[2*n]]]; Table[a[n], {n, 0, 100}] (* Jean-François Alcover, Apr 09 2014, after Alois P. Heinz *)
Table[Length[Select[IntegerPartitions[n],OrderedQ[Differences[Append[#,0]]]&]],{n,0,30}] (* Gus Wiseman, May 03 2019 *)
nmax = 58; t = Table[PolygonalNumber[n], {n, nmax}];
Table[Count[IntegerPartitions@n, x_ /; SubsetQ[t, x]], {n, 0, nmax}] (* Robert Price, Aug 02 2020 *)

N=66; Vec(1/prod(k=1,N,1-x^(k*(k+1)\2))+O(x^N)) \\ Joerg Arndt, Apr 14 2013

from functools import lru_cache
from sympy import divisors
from sympy.ntheory.primetest import is_square
@lru_cache(maxsize=None)
def A007294(n):
    @lru_cache(maxsize=None)
    def a(n): return is_square((n<<3)+1)
    @lru_cache(maxsize=None)
    def c(n): return sum(d for d in divisors(n,generator=True) if a(d))
    return (c(n)+sum(c(k)*A007294(n-k) for k in range(1,n)))//n if n else 1 # Chai Wah Wu, Jul 15 2024

def A007294(n):
    has_nondecreasing_diffs = lambda x: min(differences(x, 2)) >= 0
    special = lambda x: (x[1]-x[0]) >= x[0]
    allowed = lambda x: (len(x) < 2 or special(x)) and (len(x) < 3 or has_nondecreasing_diffs(x))
    return len([1 for x in Partitions(n, max_slope=-1) if allowed(x[::-1])]) # D. S. McNeil, Jan 06 2011

G.f.: 1/Product_{k>=2} (1-z^binomial(k, 2)).
For n>0: a(n) = b(n, 1) where b(n, k) = if n>k*(k+1)/2 then b(n-k*(k+1)/2, k) + b(n, k+1) else (if n=k*(k+1)/2 then 1 else 0). - Reinhard Zumkeller, Aug 26 2003
For n>0, a(n) is Euler Transform of [1,0,1,0,0,1,0,0,0,1,0,0,0,0,1,...], i.e A010054, n>0. - Benedict W. J. Irwin, Jul 29 2016
a(n) ~ exp(3*Pi^(1/3) * Zeta(3/2)^(2/3) * n^(1/3) / 2) * Zeta(3/2) / (2^(7/2) * sqrt(3) * Pi * n^(3/2)) [Brigham 1950 (exponential part), Almkvist 2006]. - Vaclav Kotesovec, Dec 31 2016
G.f.: Sum_{i>=0} x^(i*(i+1)/2) / Product_{j=1..i} (1 - x^(j*(j+1)/2)). - Ilya Gutkovskiy, May 07 2017

Additional comments from Roland Bacher, Jun 17 2001

A320348 Number of partition into distinct parts (a_1, a_2, ... , a_m) (a_1 > a_2 > ... > a_m and Sum_{k=1..m} a_k = n) such that a1 - a2, a2 - a_3, ... , a_{m-1} - a_m, a_m are different.

Original entry on oeis.org

1, 1, 1, 2, 3, 2, 4, 4, 4, 6, 9, 7, 13, 12, 13, 16, 22, 17, 28, 28, 31, 36, 50, 45, 63, 62, 74, 78, 102, 92, 123, 123, 146, 148, 191, 181, 228, 233, 280, 283, 348, 350, 420, 437, 518, 523, 616, 641, 727, 774, 884, 911, 1038, 1102, 1240, 1292, 1463, 1530, 1715, 1861, 2002

Offset: 1

Seiichi Manyama, Oct 11 2018

nonn

Also the number of integer partitions of n whose parts cover an initial interval of positive integers with distinct multiplicities. Also the number of integer partitions of n whose multiplicities cover an initial interval of positive integers and are distinct (see A048767 for a bijection). - Gus Wiseman, May 04 2019

			n = 9
[9]        *********  a_1 = 9.
           ooooooooo
------------------------------------
[8, 1]             *        a_2 = 1.
            *******o  a_1 - a_2 = 7.
            oooooooo
------------------------------------
[7, 2]            **        a_2 = 2.
             *****oo  a_1 - a_2 = 5.
             ooooooo
------------------------------------
[5, 4]          ****        a_2 = 4.
               *oooo  a_1 - a_2 = 1.
               ooooo
------------------------------------
a(9) = 4.
From _Gus Wiseman_, May 04 2019: (Start)
The a(1) = 1 through a(11) = 9 strict partitions with distinct differences (where the last part is taken to be 0) are the following (A = 10, B = 11). The Heinz numbers of these partitions are given by A325388.
  (1)  (2)  (3)  (4)   (5)   (6)   (7)   (8)   (9)   (A)    (B)
                 (31)  (32)  (51)  (43)  (53)  (54)  (64)   (65)
                       (41)        (52)  (62)  (72)  (73)   (74)
                                   (61)  (71)  (81)  (82)   (83)
                                                     (91)   (92)
                                                     (631)  (A1)
                                                            (632)
                                                            (641)
                                                            (731)
The a(1) = 1 through a(10) = 6 partitions covering an initial interval of positive integers with distinct multiplicities are the following. The Heinz numbers of these partitions are given by A325326.
  1  11  111  211   221    21111   2221     22211     22221      222211
              1111  2111   111111  22111    221111    2211111    322111
                    11111          211111   2111111   21111111   2221111
                                   1111111  11111111  111111111  22111111
                                                                 211111111
                                                                 1111111111
The a(1) = 1 through a(10) = 6 partitions whose multiplicities cover an initial interval of positive integers and are distinct are the following (A = 10). The Heinz numbers of these partitions are given by A325337.
  (1)  (2)  (3)  (4)    (5)    (6)    (7)    (8)    (9)    (A)
                 (211)  (221)  (411)  (322)  (332)  (441)  (433)
                        (311)         (331)  (422)  (522)  (442)
                                      (511)  (611)  (711)  (622)
                                                           (811)
                                                           (322111)
(End)

Fausto A. C. Cariboni, Table of n, a(n) for n = 1..500 (terms 1..100 from Seiichi Manyama)
Gus Wiseman, Sequences counting and ranking integer partitions by the differences of their successive parts.

Cf. A000009, A320347.

Cf. A007294, A007862, A048767, A098859, A179269, A320509, A320510, A325324, A325325, A325349, A325367, A325404, A325468.

Table[Length[Select[IntegerPartitions[n],UnsameQ@@#&&UnsameQ@@Differences[Append[#,0]]&]],{n,30}] (* Gus Wiseman, May 04 2019 *)

A320387 Number of partitions of n into distinct parts such that the successive differences of consecutive parts are nonincreasing, and first difference <= first part.

Original entry on oeis.org

1, 1, 1, 2, 1, 2, 3, 2, 2, 4, 3, 4, 5, 3, 5, 7, 4, 7, 8, 6, 8, 11, 7, 9, 13, 9, 11, 16, 12, 15, 18, 13, 17, 20, 17, 21, 24, 19, 24, 30, 22, 28, 34, 26, 34, 38, 30, 37, 43, 37, 42, 48, 41, 50, 58, 48, 55, 64, 53, 64, 71, 59, 73, 81, 69, 79, 89, 79, 90, 101, 87, 100, 111

Offset: 0

Seiichi Manyama, Oct 12 2018

nonn

Partitions are usually written with parts in descending order, but the conditions are easier to check "visually" if written in ascending order.
Generating function of the "second integrals" of partitions: given a partition (p_1, ..., p_s) written in weakly decreasing order, write the sequence B = (b_1, b_2, ..., b_s) = (p_1, p_1 + p_2, ..., p_1 + ... + p_s).  The sequence gives the coefficients of the generating function summing q^(b_1 + ... + b_s) over all partitions of all nonnegative integers. - William J. Keith, Apr 23 2022
From Gus Wiseman, Jan 17 2023: (Start)
Equivalently, a(n) is the number of multisets (weakly increasing sequences of positive integers) with weighted sum n. For example, the Heinz numbers of the a(0) = 1 through a(15) = 7 multisets are:
  1  2  3  4  7  6   8   10  15  12  16  18  20  26  24  28
           5     11  9   17  19  14  21  22  27  41  30  32
                     13          23  29  31  33  55  39  34
                                 25      35  37      43  45
                                             49      77  47
                                                         65
                                                         121
These multisets are counted by A264034. The reverse version is A007294. The zero-based version is A359678.
(End)

			There are a(29) = 15 such partitions of 29:
  01: [29]
  02: [10, 19]
  03: [11, 18]
  04: [12, 17]
  05: [13, 16]
  06: [14, 15]
  07: [5, 10, 14]
  08: [6, 10, 13]
  09: [6, 11, 12]
  10: [7, 10, 12]
  11: [8, 10, 11]
  12: [3, 6, 9, 11]
  13: [5, 7, 8, 9]
  14: [2, 4, 6, 8, 9]
  15: [3, 5, 6, 7, 8]
There are a(30) = 18 such partitions of 30:
  01: [30]
  02: [10, 20]
  03: [11, 19]
  04: [12, 18]
  05: [13, 17]
  06: [14, 16]
  07: [5, 10, 15]
  08: [6, 10, 14]
  09: [6, 11, 13]
  10: [7, 10, 13]
  11: [7, 11, 12]
  12: [8, 10, 12]
  13: [3, 6, 9, 12]
  14: [9, 10, 11]
  15: [4, 7, 9, 10]
  16: [2, 4, 6, 8, 10]
  17: [6, 7, 8, 9]
  18: [4, 5, 6, 7, 8]

Fausto A. C. Cariboni, Table of n, a(n) for n = 0..2000 (terms 0..300 from Seiichi Manyama)

Cf. A007294, A179254, A179255, A179269, A320382, A320385, A320388.
Number of appearances of n > 0 in A304818, reverse A318283.
A053632 counts compositions by weighted sum.
A358194 counts partitions by weighted sum, reverse A264034.
Weighted sum of prime indices: A359497, A359676, A359682, A359754, A359755.
Cf. A029931, A359361, A359397, A359674, A359677, A359678.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
ots[y_]:=Sum[i*y[[i]],{i,Length[y]}];
Table[Length[Select[Range[2^n],ots[prix[#]]==n&]],{n,10}] (* Gus Wiseman, Jan 17 2023 *)

seq(n)={Vec(sum(k=1, (sqrtint(8*n+1)+1)\2, my(t=binomial(k,2)); x^t/prod(j=1, k-1, 1 - x^(t-binomial(j,2)) + O(x^(n-t+1)))))} \\ Andrew Howroyd, Jan 22 2023

def partition(n, min, max)
  return [[]] if n == 0
  [max, n].min.downto(min).flat_map{|i| partition(n - i, min, i - 1).map{|rest| [i, *rest]}}
end
def f(n)
  return 1 if n == 0
  cnt = 0
  partition(n, 1, n).each{|ary|
    ary << 0
    ary0 = (1..ary.size - 1).map{|i| ary[i - 1] - ary[i]}
    cnt += 1 if ary0.sort == ary0
  }
  cnt
end
def A320387(n)
  (0..n).map{|i| f(i)}
end
p A320387(50)

G.f.: Sum_{k>=1} x^binomial(k,2)/Product_{j=1..k-1} (1 - x^(binomial(k,2)-binomial(j,2))). - Andrew Howroyd, Jan 22 2023

A240027 Number of partitions of n such that the successive differences of consecutive parts are strictly increasing.

Original entry on oeis.org

1, 1, 2, 2, 4, 4, 5, 7, 9, 9, 13, 14, 16, 20, 23, 25, 32, 34, 38, 45, 51, 55, 65, 70, 77, 89, 99, 106, 122, 131, 143, 161, 177, 189, 211, 229, 248, 272, 298, 317, 349, 378, 406, 440, 479, 511, 554, 597, 640, 686, 744, 792, 850, 913, 973, 1039, 1122, 1189, 1268, 1358, 1444, 1532, 1646, 1742, 1847, 1975, 2094, 2210, 2366

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 strictly increasing. The Heinz numbers of these partitions are given by A325456. Of course, the number of such integer partitions of n is also the number of reversed integer partitions of n whose differences are strictly increasing, which is the author's interpretation. - Gus Wiseman, May 03 2019

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

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

Cf. A240026 (nondecreasing differences).
Cf. A179255 (distinct parts, nondecreasing), A179254 (distinct parts, strictly increasing).
Cf. A049988, A179269, A320466, A320470, A325325, A325357, A325391, A325456.

Table[Length[Select[IntegerPartitions[n],Less@@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 && ary0.uniq == ary0
  }
  cnt
end
def A240027(n)
  (0..n).map{|i| f(i)}
end
p A240027(50) # Seiichi Manyama, Oct 13 2018

A179254 Number of partitions of n into distinct parts such that the successive differences of consecutive parts are strictly increasing.

Original entry on oeis.org

1, 1, 1, 2, 2, 3, 3, 5, 5, 6, 8, 9, 9, 13, 14, 15, 19, 21, 22, 28, 30, 32, 39, 42, 44, 54, 58, 61, 72, 77, 82, 96, 102, 108, 124, 133, 141, 160, 171, 180, 203, 218, 230, 256, 273, 289, 320, 342, 361, 395, 423, 447, 486, 520, 548, 594, 635, 669, 721, 769, 811, 871, 928, 978, 1044, 1114

Offset: 0

Joerg Arndt, Jan 05 2011

nonn

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

			There are a(17) = 21 such partitions of 17:
01:  [ 1 2 4 10 ]
02:  [ 1 2 5 9 ]
03:  [ 1 2 14 ]
04:  [ 1 3 13 ]
05:  [ 1 4 12 ]
06:  [ 1 5 11 ]
07:  [ 1 16 ]
08:  [ 2 3 12 ]
09:  [ 2 4 11 ]
10:  [ 2 5 10 ]
11:  [ 2 15 ]
12:  [ 3 4 10 ]
13:  [ 3 5 9 ]
14:  [ 3 14 ]
15:  [ 4 5 8 ]
16:  [ 4 13 ]
17:  [ 5 12 ]
18:  [ 6 11 ]
19:  [ 7 10 ]
20:  [ 8 9 ]
21:  [ 17 ]
- _Joerg Arndt_, Mar 31 2014

Alois P. Heinz, Table of n, a(n) for n = 0..1000 (first 225 terms from Joerg Arndt)

Cf. A007294, A179255 (nondecreasing differences), A179269, A320382, A320385.

Cf. A240026 (partitions with nondecreasing differences), A240027 (partitions with strictly increasing differences).

def partition(n, min, max)
  return [[]] if n == 0
  [max, n].min.downto(min).flat_map{|i| partition(n - i, min, i - 1).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 && ary0.uniq == ary0
  }
  cnt
end
def A179254(n)
  (0..n).map{|i| f(i)}
end
p A179254(50) # Seiichi Manyama, Oct 12 2018

def A179254(n):
    has_increasing_diffs = lambda x: min(differences(x,2)) >= 1
    allowed = lambda x: len(x) < 3 or has_increasing_diffs(x)
    return len([x for x in Partitions(n,max_slope=-1) if allowed(x[::-1])])
# D. S. McNeil, Jan 06 2011

A325547 Number of compositions of n with strictly increasing differences.

Original entry on oeis.org

1, 1, 2, 3, 6, 8, 11, 18, 24, 30, 45, 57, 71, 96, 120, 148, 192, 235, 286, 354, 431, 518, 628, 752, 893, 1063, 1262, 1482, 1744, 2046, 2386, 2775, 3231, 3733, 4305, 4977, 5715, 6536, 7507, 8559, 9735, 11112, 12608, 14252, 16177, 18265, 20553, 23204, 26090, 29223

Offset: 0

Gus Wiseman, May 10 2019

nonn

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) = 11 compositions:
  (1)  (2)   (3)   (4)    (5)    (6)
       (11)  (12)  (13)   (14)   (15)
             (21)  (22)   (23)   (24)
                   (31)   (32)   (33)
                   (112)  (41)   (42)
                   (211)  (113)  (51)
                          (212)  (114)
                          (311)  (213)
                                 (312)
                                 (411)
                                 (2112)

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, A008965, A034297, A070211, A175342, A179269, A179254, A240027, A325545, A325546, A325548, A325552, A325557.

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

\\ Row sums of R(n) give A179269 (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-1)\t, v[i-k*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 27 2019

a(26)-a(42) from Lars Blomberg, May 30 2019

Terms a(43) and beyond from Andrew Howroyd, Aug 27 2019

A179255 Number of partitions of n into distinct parts such that the successive differences of consecutive parts are nondecreasing.

Original entry on oeis.org

1, 1, 1, 2, 2, 3, 4, 5, 5, 8, 9, 10, 13, 15, 16, 22, 24, 26, 33, 36, 39, 50, 54, 58, 70, 77, 83, 100, 109, 116, 137, 150, 159, 186, 202, 216, 249, 270, 288, 328, 355, 379, 428, 462, 491, 554, 597, 633, 707, 760, 807, 899, 964, 1020, 1127, 1211, 1282, 1412, 1512, 1596, 1750, 1873, 1976, 2160, 2305, 2434, 2652, 2826, 2978

Offset: 0

Joerg Arndt, Jan 05 2011

nonn

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

			There are a(17) = 26 such partitions of 17:
01:  [ 1 2 3 4 7 ]
02:  [ 1 2 3 11 ]
03:  [ 1 2 4 10 ]  *
04:  [ 1 2 5 9 ]   *
05:  [ 1 2 14 ]   *
06:  [ 1 3 5 8 ]
07:  [ 1 3 13 ]   *
08:  [ 1 4 12 ]   *
09:  [ 1 5 11 ]   *
10:  [ 1 16 ]   *
11:  [ 2 3 4 8 ]
12:  [ 2 3 5 7 ]
13:  [ 2 3 12 ]   *
14:  [ 2 4 11 ]   *
15:  [ 2 5 10 ]   *
16:  [ 2 15 ]   *
17:  [ 3 4 10 ]   *
18:  [ 3 5 9 ]   *
19:  [ 3 14 ]   *
20:  [ 4 5 8 ]   *
21:  [ 4 13 ]   *
22:  [ 5 12 ]   *
23:  [ 6 11 ]   *
24:  [ 7 10 ]   *
25:  [ 8 9 ]   *
26:  [ 17 ]   *
The 21 partitions marked with * have strictly increasing differences, see the example for A179254.
- _Joerg Arndt_, Mar 31 2014

Fausto A. C. Cariboni, Table of n, a(n) for n = 0..1000 (terms 0..241 from Joerg Arndt)

Cf. A009994.
Cf. A179254 (strictly increasing differences), A179269, A007294.
Cf. A240026 (partitions with nondecreasing differences), A240027 (partitions with strictly increasing differences), A320382.

def partition(n, min, max)
  return [[]] if n == 0
  [max, n].min.downto(min).flat_map{|i| partition(n - i, min, i - 1).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 A179255(n)
  (0..n).map{|i| f(i)}
end
p A179255(50) # Seiichi Manyama, Oct 12 2018

def A179255(n):
    has_nondecreasing_diffs = lambda x: min(differences(x,2)) >= 0
    allowed = lambda x: len(x) < 3 or has_nondecreasing_diffs(x)
    return len([x for x in Partitions(n,max_slope=-1) if allowed(x[::-1])])
# D. S. McNeil, Jan 06 2011

A325456 Heinz numbers of integer partitions with strictly increasing differences.

Original entry on oeis.org

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

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).
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 enumeration of these partitions by sum is given by A240027.

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

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

Cf. A056239, A112798, A179269, A240026, A240027, A325328, A325352, A325360, A325361, A325368, A325395, A325398, A325457, A325460.

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

A325460 Heinz numbers of integer partitions with strictly increasing differences (with the last part taken to be 0).

Original entry on oeis.org

1, 2, 3, 5, 7, 10, 11, 13, 14, 17, 19, 22, 23, 26, 29, 31, 33, 34, 37, 38, 39, 41, 43, 46, 47, 51, 53, 57, 58, 59, 61, 62, 67, 69, 71, 73, 74, 79, 82, 83, 85, 86, 87, 89, 93, 94, 95, 97, 101, 103, 106, 107, 109, 111, 113, 115, 118, 122, 123, 127, 129, 130, 131

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).
The differences of a sequence are defined as if the sequence were increasing, so 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 A179269.

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

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

A subsequence of A005117.

Cf. A007294, A056239, A112798, A179269, A325327, A325362, A325364, A325367, A325388, A325390, A325395, A325398, A325456, A325461.

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

cp's OEIS Frontend

A007294 Number of partitions of n into nonzero triangular numbers.

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Haskell

Maple

Mathematica

PARI

Python

Sage

Formula

Extensions

A320348 Number of partition into distinct parts (a_1, a_2, ... , a_m) (a_1 > a_2 > ... > a_m and Sum_{k=1..m} a_k = n) such that a1 - a2, a2 - a_3, ... , a_{m-1} - a_m, a_m are different.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A320387 Number of partitions of n into distinct parts such that the successive differences of consecutive parts are nonincreasing, and first difference <= first part.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Ruby

Formula

A240027 Number of partitions of n such that the successive differences of consecutive parts are strictly increasing.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Ruby

A179254 Number of partitions of n into distinct parts such that the successive differences of consecutive parts are strictly increasing.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Ruby

Sage

A325547 Number of compositions of n with strictly increasing differences.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Extensions

A179255 Number of partitions of n into distinct parts such that the successive differences of consecutive parts are nondecreasing.

Views

Author

Keywords