A049988 -id:A049988 - cp's OEIS frontend

A049980 a(n) is the number of arithmetic progressions of positive integers, strictly increasing with sum n.

1, 1, 2, 2, 3, 4, 4, 4, 7, 6, 6, 9, 7, 8, 13, 9, 9, 15, 10, 12, 18, 13, 12, 20, 15, 15, 23, 17, 15, 28, 16, 18, 28, 20, 22, 33, 19, 22, 33, 26, 21, 39, 22, 26, 43, 27, 24, 43, 27, 33, 44, 31, 27, 50, 34, 34, 49, 34, 30, 60, 31, 36, 57, 38, 40

Offset: 1

Clark Kimberling

nonn

We need to find the number of pairs of positive integers (b, w) so that there is a positive integer m such that m*b + m*(m-1)*w/2 = n. - Petros Hadjicostas, Sep 27 2019

			a(6) = 4 because we have the following strictly increasing arithmetic progressions of positive integers adding up to n = 6: 6, 1+5, 2+4, and 1+2+3. - _Petros Hadjicostas_, Sep 27 2019

Fausto A. C. Cariboni, 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.

Cf. A000217, A014405, A014406, A049981, A049982, A049983, A049986, A049987, A068322, A068323, A068324, A127938, A175342.

Conjecture: a(n) = 1 + Sum_{m|n, m odd > 1} floor(2 * (n - m)/(m* (m - 1))) + Sum_{m|n} floor((n - m * (5 - (-1)^(n/m))/2 + m^2 * (1 - (-1)^(n/m)))/(2*m * (2*m - 1))). - Petros Hadjicostas, Sep 27 2019

G.f.: x/(1-x) + Sum_{k >= 2} x^t(k)/(x^t(k) - x^t(k-1) - x^k + 1) = x/(1-x) + Sum_{k >= 2} x^t(k)/((1 - x^k) * (1 - x^t(k-1))), where t(k) = k*(k+1)/2 = A000217(k) is the k-th triangular number [Graeme McRae]. - Petros Hadjicostas, Sep 29 2019

A325349 Number of integer partitions of n whose augmented differences are distinct.

Original entry on oeis.org

1, 1, 1, 2, 3, 2, 4, 5, 7, 7, 12, 10, 13, 15, 21, 21, 31, 34, 38, 45, 55, 60, 71, 80, 84, 103, 119, 134, 152, 186, 192, 228, 263, 292, 321, 377, 399, 454, 514, 565, 618, 709, 752, 840, 958, 1050, 1140, 1297, 1402, 1568, 1755, 1901, 2080, 2343, 2524, 2758, 3074

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

			The a(1) = 1 through a(11) = 10 partitions (A = 10, B = 11):
  (1)  (2)  (3)   (4)   (5)   (6)   (7)    (8)    (9)    (A)    (B)
            (21)  (22)  (41)  (33)  (43)   (44)   (54)   (55)   (65)
                  (31)        (42)  (52)   (62)   (63)   (64)   (83)
                              (51)  (61)   (71)   (72)   (73)   (92)
                                    (421)  (422)  (81)   (82)   (A1)
                                           (431)  (522)  (91)   (443)
                                           (521)  (621)  (433)  (641)
                                                         (442)  (722)
                                                         (541)  (731)
                                                         (622)  (821)
                                                         (631)
                                                         (721)
For example, (4,4,3) has augmented differences (1,2,3), which are distinct, so (4,4,3) is counted under a(11).

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

Cf. A000837, A049988, A098859, A325324, A325325, A325328, A325351, A325366, A325404.

Table[Length[Select[IntegerPartitions[n],UnsameQ@@Differences[Append[#,1]]&]],{n,0,30}]

A054519 Number of increasing arithmetic progressions of nonnegative integers ending in n, including those of length 1 or 2.

Original entry on oeis.org

1, 2, 4, 6, 9, 11, 15, 17, 21, 24, 28, 30, 36, 38, 42, 46, 51, 53, 59, 61, 67, 71, 75, 77, 85, 88, 92, 96, 102, 104, 112, 114, 120, 124, 128, 132, 141, 143, 147, 151, 159, 161, 169, 171, 177, 183, 187, 189, 199, 202, 208, 212, 218, 220, 228, 232, 240, 244, 248

Offset: 0

Henry Bottomley, Apr 07 2000

a(0)=1, a(n) = a(n-1) + sigma_0(n) (A000005). - Ctibor O. Zizka, Nov 08 2008
a(n) is the index of the n-th term of A027750 whose value is 1. - Michel Marcus, Oct 15 2015
From Gus Wiseman, Jun 07 2019: (Start)
Also the number of subsets of {1..n} that are closed under taking the difference of two strictly decreasing terms. For example, the a(0) = 1 through a(6) = 15 subsets are:
  {}  {}   {}     {}       {}         {}           {}
      {1}  {1}    {1}      {1}        {1}          {1}
           {2}    {2}      {2}        {2}          {2}
           {1,2}  {3}      {3}        {3}          {3}
                  {1,2}    {4}        {4}          {4}
                  {1,2,3}  {1,2}      {5}          {5}
                           {2,4}      {1,2}        {6}
                           {1,2,3}    {2,4}        {1,2}
                           {1,2,3,4}  {1,2,3}      {2,4}
                                      {1,2,3,4}    {3,6}
                                      {1,2,3,4,5}  {1,2,3}
                                                   {2,4,6}
                                                   {1,2,3,4}
                                                   {1,2,3,4,5}
                                                   {1,2,3,4,5,6}
(End)

			a(3)=6 because the six increasing progressions (3), (2,3), (1,2,3), (0,1,2,3), (1,3) and (0,3) all end in 3.

Marius A. Burtea, Table of n, a(n) for n = 0..10000 (term 0..1000 from T. D. Noe).
Wikipedia, Arithmetic progression

Cf. A000005, A006218, A027750, A051336. Left edge of A056535.

Cf. A007862, A049988, A175342, A238423, A295370, A325849.

[1] cat [&+[Ceiling((k+1)/(i+1)): i in [1..k+1]]: k in [1..60]]; // Marius A. Burtea, Jun 10 2019

IBI:= {{}}: a[0]:= 1: for n from 1 to 45 do IBI:= IBI union map(t -> t union {n}, select(t -> (t minus map(q -> n-q, t)={}), IBI)); a[n]:= nops(IBI) od: seq(a[n], n=0..45); # Zerinvary Lajos, Mar 18 2007
with(numtheory):a[1]:=2: for n from 2 to 59 do a[n]:=a[n-1]+tau(n) od: seq(a[n], n=0..45); # Zerinvary Lajos, Mar 21 2009
map(`+`, ListTools:-PartialSums(map(numtheory:-tau, [$0..1000])),1); # Robert Israel, Oct 15 2015

a[0]=1; a[n_] := a[n] = a[n-1] + DivisorSigma[0, n]; Table[a[n], {n, 0, 45}] (* Jean-François Alcover, Oct 05 2012, after Ctibor O. Zizka *)
nxt[{n_,a_}]:={n+1,a+DivisorSigma[0,n+1]}; Transpose[NestList[nxt,{0,1},50]][[2]] (* Harvey P. Dale, Oct 15 2012 *)
Table[Length[Select[Subsets[Range[n]],SubsetQ[#,Subtract@@@Reverse/@Subsets[#,{2}]]&]],{n,0,10}] (* Gus Wiseman, Jun 07 2019 *)

vector(100, n, n--; sum(k=1, n, n\k) + 1) \\ Altug Alkan, Oct 15 2015

a(n) = A051336(n+1) - A051336(n) = a(n-1) + A000005(n) = A006218(n)+1.
G.f.: (1-x)^(-1) * (1 + Sum_{j>=1} x^j/(1-x^j)). - Robert Israel, Oct 15 2015
a(n) = Sum_{i=1..n+1} ceiling((n+1)/(i+1)). - Wesley Ivan Hurt, Sep 15 2017

A129654 Number of different ways to represent n as general polygonal number P(m,r) = 1/2r((m-2)*r-(m-4)) = n>1, for m,r>1.

Original entry on oeis.org

1, 2, 2, 2, 3, 2, 2, 3, 3, 2, 3, 2, 2, 4, 3, 2, 3, 2, 2, 4, 3, 2, 3, 3, 2, 3, 4, 2, 3, 2, 2, 3, 3, 3, 5, 2, 2, 3, 3, 2, 3, 2, 2, 5, 3, 2, 3, 3, 2, 4, 3, 2, 3, 4, 2, 3, 3, 2, 3, 2, 2, 3, 4, 3, 5, 2, 2, 3, 4, 2, 3, 2, 2, 4, 3, 2, 4, 2, 2, 5, 3, 2, 3, 3, 2, 3, 3, 2, 3, 4, 3, 3, 3, 3, 4, 2, 2, 3, 4, 2, 3, 2, 2, 5, 3

Offset: 2

Alexander Adamchuk, Apr 27 2007

nonn

The indices k of the first appearance of number n in a(k) are listed in A063778(n) = {2,3,6,15,36,225,...} = Least number k>1 such that k could be represented in n different ways as general m-gonal number P(m,r) = 1/2*r*((m-2)*r-(m-4)).
From Gus Wiseman, May 03 2019: (Start)
Also the number of integer partitions of n whose augmented differences are all equal, where 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). Equivalently, a(n) is the number of integer partitions of n whose differences are all equal to the last part minus one. The Heinz numbers of these partitions are given by A307824. For example, the a(35) = 5 partitions are:
  (35)
  (23,12)
  (11,9,7,5,3)
  (8,7,6,5,4,3,2)
  (1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1)
(End)

			a(6) = 3 because 6 = P(2,6) = P(3,3) = P(6,2).

Alois P. Heinz, Table of n, a(n) for n = 2..10000
E. Deza and M. Deza, Figurate Numbers, World Scientific, 2012; see p. 45.
Eric Weisstein's World of Mathematics, Polygonal Number
Gus Wiseman, Sequences counting and ranking integer partitions by the differences of their successive parts.

Cf. A063778, A177025.
Column k=0 of A239550.
Cf. A007862, A049988, A307824, A325349, A325350, A325356, A325357, A325358, A325458, A325459.

A129654 := proc(n) local resul, dvs, i, r, m ;
   dvs := numtheory[divisors](2*n) ;
   resul := 0 ;
   for i from 1 to nops(dvs) do
      r := op(i, dvs) ;
      if r > 1 then
         m := (2*n/r-4+2*r)/(r-1) ;
         if is(m, integer) then
            resul := resul+1 ;
         fi ;
      fi ;
   od ;
   RETURN(resul) ;
end: # R. J. Mathar, May 14 2007

a[n_] := (dvs = Divisors[2*n]; resul = 0; For[i = 1, i <= Length[dvs], i++, r = dvs[[i]]; If[r > 1, m = (2*n/r-4+2*r)/(r-1); If[IntegerQ[m], resul = resul+1 ] ] ]; resul); Table[a[n], {n, 2, 106}] (* Jean-François Alcover, Sep 13 2012, translated from R. J. Mathar's Maple program *)
Table[Length[Intersection[Divisors[2 n - 2] + 1, Divisors[2 n]]], {n, 2, 106}] (* Jonathan Sondow, May 09 2014 *)
atpms[n_]:=Select[Join@@Table[i*Range[k,1,-1],{k,n},{i,0,n}],Total[#+1]==n&];
Table[Length[atpms[n]],{n,100}] (* Gus Wiseman, May 03 2019 *)

a(n) = sumdiv(2*n, d, (d>1) && (2*n/d + 2*d - 4) % (d-1) == 0); \\ Daniel Suteu, Dec 22 2018

a(n) = A177025(n) + 1.

G.f.: x * Sum_{k>=1} x^k / (1 - x^(k*(k + 1)/2)) (conjecture). - Ilya Gutkovskiy, Apr 09 2020

A049982 Number of arithmetic progressions of 2 or more positive integers, strictly increasing with sum n.

Original entry on oeis.org

0, 0, 1, 1, 2, 3, 3, 3, 6, 5, 5, 8, 6, 7, 12, 8, 8, 14, 9, 11, 17, 12, 11, 19, 14, 14, 22, 16, 14, 27, 15, 17, 27, 19, 21, 32, 18, 21, 32, 25, 20, 38, 21, 25, 42, 26, 23, 42, 26, 32, 43, 30, 26, 49, 33, 33, 48, 33, 29, 59, 30, 35, 56, 37, 39, 61, 33, 39, 58, 49, 35, 67, 36, 42

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.
Graeme McRae, Counting arithmetic sequences whose sum is n.
Graeme McRae, Counting arithmetic sequences whose sum is n [Cached copy]
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.

Cf. A000005, A000217, A014405, A014406, A049980, A049981, A049983, A049986, A049987, A049988, A068322, A127938, A175342.

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

a(n) has generating function x^3/(x^3 - x - x^2 + 1) + x^6/(x^6 - x^3 - x^3 + 1) + x^10/(x^10 - x^6 - x^4 + 1) + ... = Sum_{k >= 2} x^t(k)/(x^t(k) - x^t(k-1) - x^k + 1), where t(k) = A000217(k) is the k-th triangular number. Term k of this generating function generates the number of arithmetic progressions of k positive integers, strictly increasing with sum n. - Graeme McRae, Feb 08 2007
From Petros Hadjicostas, Sep 27 2019: (Start)
a(n) = A049980(n) - 1 = A049988(n) - A000005(n).
a(n) = A049981(n) - A049981(n-1) - 1 for n >= 2.
Conjecture: a(n) = Sum_{m|n, m odd > 1} floor(2 * (n - m)/(m* (m - 1))) + Sum_{m|n} floor((n - m * (5 - (-1)^(n/m))/2 + m^2 * (1 - (-1)^(n/m)))/(2*m * (2*m - 1))).
(End)

More terms from Petros Hadjicostas, Sep 28 2019

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

A004119 a(0) = 1; thereafter a(n) = 3*2^(n-1) + 1.

Original entry on oeis.org

1, 4, 7, 13, 25, 49, 97, 193, 385, 769, 1537, 3073, 6145, 12289, 24577, 49153, 98305, 196609, 393217, 786433, 1572865, 3145729, 6291457, 12582913, 25165825, 50331649, 100663297, 201326593, 402653185, 805306369, 1610612737, 3221225473, 6442450945, 12884901889

Offset: 0

N. J. A. Sloane, R. K. Guy

Also Pisot sequence L(4,7) (cf. A008776).
Alternatively, define the sequence S(a(1),a(2)) by: a(n+2) is the least integer such that a(n+2)/a(n+1) > a(n+1)/a(n) for n > 0. This is S(4,7).
a(n) = number of terms of the arithmetic progression with first term 2^(2n-1) and last term 2^(2n+1). So common difference is 2^n. E.g., a(2)=7 corresponds to (8,12,16,20,24,28,32). - Augustine O. Munagi, Feb 21 2007
Equals binomial transform of [1, 3, 0, 3, 0, 3, 0, 3, ...]. - Gary W. Adamson, Aug 27 2010

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

Vincenzo Librandi, Table of n, a(n) for n = 0..1000
D. W. Boyd, Linear recurrence relations for some generalized Pisot sequences, Advances in Number Theory ( Kingston ON, 1991) 333-340, Oxford Sci. Publ., Oxford Univ. Press, New York, 1993
S. W. Golomb, Properties of the sequence 3.2^n+1, Math. Comp., 30 (1976), 657-663.
S. W. Golomb, Properties of the sequence 3.2^n+1, Math. Comp., 30 (1976), 657-663. [Annotated scanned copy]
A. O. Munagi and T. Shonhiwa, On the partitions of a number into arithmetic progressions, J. Integer Sequences, 11 (2008), #08.5.4.
Simon Plouffe, Approximations de séries génératrices et quelques conjectures, Dissertation, Université du Québec à Montréal, 1992; arXiv:0911.4975 [math.NT], 2009.
Simon Plouffe, 1031 Generating Functions, Appendix to Thesis, Montreal, 1992
Index entries for linear recurrences with constant coefficients, signature (3, -2).
Index entries for Pisot sequences

Cf. A049988, A049775, A000051, A008776.
A181565 is an essentially identical sequence.
For primes see A002253 and A039687.

[1] cat [n le 1 select 4 else 2*Self(n-1)-1: n in [1..40]]; // Vincenzo Librandi, Dec 16 2015

A004119:=-(-1-z+3*z**2)/(2*z-1)/(z-1); # Simon Plouffe in his 1992 dissertation

s=4;lst={1,s};Do[s=s+(s-1);AppendTo[lst,s],{n,5!}];lst (* Vladimir Joseph Stephan Orlovsky, Nov 30 2009 *)
Prepend[Table[3*2^n + 1, {n, 0, 32}], 1] (* or *)
{1}~Join~LinearRecurrence[{3, -2}, {4, 7}, 33] (* Michael De Vlieger, Dec 16 2015 *)

a(n)=3<Charles R Greathouse IV, Sep 28 2015

a(n) = 3a(n-1) - 2a(n-2).
For n>3, a(3)=13, a(n)= a(n-1)+2*floor(a(n-1)/2). - Benoit Cloitre, Aug 14 2002
For n>=1, a(n) = A049775(n+1)/2^(n-2). For n>=2, a(n) = 2a(n-1)-1; see also A000051. - Philippe Deléham, Feb 20 2004
O.g.f.: -(-1-x+3*x^2)/((2*x-1)*(x-1)). - R. J. Mathar, Nov 23 2007
For n>0, a(n) = 2*a(n-1)-1. - Vincenzo Librandi, Dec 16 2015
E.g.f.: exp(x)*(1 + 3*sinh(x)). - Stefano Spezia, May 06 2023

Edited by N. J. A. Sloane, Dec 16 2015 at the suggestion of Bruno Berselli

A049987 a(n) is the number of arithmetic progressions of 4 or more positive integers, strictly increasing with sum <= n.

Original entry on oeis.org

0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 2, 3, 4, 4, 5, 5, 7, 8, 10, 10, 11, 13, 15, 16, 19, 19, 23, 23, 25, 26, 29, 33, 37, 37, 40, 41, 47, 47, 52, 52, 56, 62, 66, 66, 70, 72, 80, 82, 87, 87, 93, 99, 105, 107, 112, 112, 123, 123, 128, 133, 139, 146, 154, 154, 160, 162, 177, 177, 186, 186, 192, 202

Offset: 1

Clark Kimberling

nonn

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.

Cf. A014405, A014406, A049980, A049981, A049982, A049983, A049986, A049987, A049988, A049989, A049990, A127938.

From Petros Hadjicostas, Sep 29 2019: (Start)
a(n) = Sum_{k = 1..n} A049986(k).
G.f.: (g.f. of A049986)/(1-x). (End)

More terms from Petros Hadjicostas, Sep 29 2019

A325557 Number of compositions of n with equal differences up to sign.

Original entry on oeis.org

1, 1, 2, 4, 6, 8, 13, 12, 20, 24, 25, 29, 49, 40, 50, 64, 86, 80, 105, 102, 164, 175, 186, 208, 325, 316, 382, 476, 624, 660, 814, 961, 1331, 1500, 1739, 2140, 2877, 3274, 3939, 4901, 6345, 7448, 9054, 11157, 14315, 17181, 20769, 25843, 32947, 39639, 48257, 60075

Offset: 0

Gus Wiseman, May 11 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(8) = 20 compositions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)        (8)
       (11)  (12)   (13)    (14)     (15)      (16)       (17)
             (21)   (22)    (23)     (24)      (25)       (26)
             (111)  (31)    (32)     (33)      (34)       (35)
                    (121)   (41)     (42)      (43)       (44)
                    (1111)  (131)    (51)      (52)       (53)
                            (212)    (123)     (61)       (62)
                            (11111)  (141)     (151)      (71)
                                     (222)     (232)      (161)
                                     (321)     (313)      (242)
                                     (1212)    (12121)    (323)
                                     (2121)    (1111111)  (1232)
                                     (111111)             (1313)
                                                          (2123)
                                                          (2222)
                                                          (2321)
                                                          (3131)
                                                          (3212)
                                                          (21212)
                                                          (11111111)

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

Cf. A000079, A047966, A049988, A070211, A098504, A173258, A175342, A325545, A325546, A325547, A325548, A325552, A325558.

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

step(R,n,s)={matrix(n, n, i, j, if(i>j, if(j>s, R[i-j, j-s]) + if(j+s<=n, R[i-j, j+s])) )}
w(n,s)={my(R=matid(n), t=0); while(R, R=step(R,n,s); t+=vecsum(R[n,])); t}
a(n) = {numdiv(max(1,n)) + sum(s=1, n-1, w(n,s))} \\ Andrew Howroyd, Aug 22 2019

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

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

A049983 a(n) is the number of arithmetic progressions of 2 or more positive integers, strictly increasing with sum <= n.

Original entry on oeis.org

0, 0, 1, 2, 4, 7, 10, 13, 19, 24, 29, 37, 43, 50, 62, 70, 78, 92, 101, 112, 129, 141, 152, 171, 185, 199, 221, 237, 251, 278, 293, 310, 337, 356, 377, 409, 427, 448, 480, 505, 525, 563, 584, 609, 651, 677, 700, 742, 768, 800, 843, 873, 899, 948, 981, 1014, 1062, 1095, 1124, 1183, 1213, 1248, 1304, 1341, 1380

Offset: 1

Clark Kimberling

nonn

			a(7) = 10 because we have the following arithmetic progressions of two or more positive integers, strictly increasing with sum <= n = 7: 1+2, 1+3, 1+4, 1+5, 1+6, 2+3, 2+4, 2+5, 3+4, and 1+2+3. - _Petros Hadjicostas_, Sep 27 2019

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.

Cf. A014405, A014406, A049980, A049981, A049982, A049986, A049987, A068322, A127938, A175342.

From Petros Hadjicostas, Sep 29 2019: (Start)
a(n) = Sum_{k = 1..n} A049982(k) = -n + Sum_{k = 1..n} A049980(k) = -n + A049981(k).
G.f.: (g.f. of A049982)/(1-x). (End)

More terms from Petros Hadjicostas, Sep 27 2019

cp's OEIS Frontend

A049980 a(n) is the number of arithmetic progressions of positive integers, strictly increasing with sum n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Formula

A325349 Number of integer partitions of n whose augmented differences are distinct.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A054519 Number of increasing arithmetic progressions of nonnegative integers ending in n, including those of length 1 or 2.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Magma

Maple

Mathematica

PARI

Formula

A129654 Number of different ways to represent n as general polygonal number P(m,r) = 1/2*r*((m-2)*r-(m-4)) = n>1, for m,r>1.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

PARI

Formula

A049982 Number of arithmetic progressions of 2 or more positive integers, strictly increasing with sum n.

Views

Author

Keywords

Links

Crossrefs

Programs

PARI

Formula

Extensions

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

A004119 a(0) = 1; thereafter a(n) = 3*2^(n-1) + 1.

Views

Author

Keywords

Comments

References

Links

Crossrefs

Programs

Magma

Maple

Mathematica

A129654 Number of different ways to represent n as general polygonal number P(m,r) = 1/2r((m-2)*r-(m-4)) = n>1, for m,r>1.