A307824 -id:A307824 - cp's OEIS frontend

A049992 a(n) is the number of arithmetic progressions of 3 or more positive integers, nondecreasing with sum n.

0, 0, 1, 1, 1, 3, 1, 2, 4, 3, 1, 7, 1, 3, 8, 4, 1, 10, 1, 6, 10, 4, 1, 14, 4, 4, 12, 7, 1, 19, 1, 6, 14, 5, 7, 22, 1, 5, 16, 12, 1, 24, 1, 8, 25, 6, 1, 27, 4, 12, 21, 9, 1, 29, 9, 12, 23, 7, 1, 40, 1, 7, 30, 11, 10, 35, 1, 10, 27, 21, 1, 42, 1, 8, 39, 11, 7, 40, 1, 22, 35, 9, 1, 49, 12, 9, 34

Offset: 1

Clark Kimberling

nonn

Antti Karttunen, Table of n, a(n) for n = 1..12580
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.
Jon Maiga, Computer-generated formulas for A049992, Sequence Machine.
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.
Wikipedia, Arithmetic progression.

Cf. A007862, A014405, A023645, A049980, A049981, A049982, A049983, A049986, A049987, A049988, A049989, A049990, A049991, A049992, A049994, A175676, A240026, A240027, A307824, A320466.

A049992(n) = (A014405(n)+A023645(n)); \\ (Uses the programs given in A014405 and A023645) - Antti Karttunen, Feb 20 2023

G.f.: Sum_{k>=3} x^k/(1-x^(k*(k-1)/2))/(1-x^k). [Leroy Quet from A049988] - Petros Hadjicostas, Sep 29 2019

a(n) = A014405(n) + A023645(n) = A049994(n) + A175676(n). [Two of the formulas listed by Sequence Machine, both obviously true] - Antti Karttunen, Feb 20 2023

More terms from Petros Hadjicostas, Sep 29 2019

A355532 Maximal augmented difference between adjacent reversed prime indices of n; a(1) = 0.

Original entry on oeis.org

0, 1, 2, 1, 3, 2, 4, 1, 2, 3, 5, 2, 6, 4, 2, 1, 7, 2, 8, 3, 3, 5, 9, 2, 3, 6, 2, 4, 10, 2, 11, 1, 4, 7, 3, 2, 12, 8, 5, 3, 13, 3, 14, 5, 2, 9, 15, 2, 4, 3, 6, 6, 16, 2, 3, 4, 7, 10, 17, 2, 18, 11, 3, 1, 4, 4, 19, 7, 8, 3, 20, 2, 21, 12, 2, 8, 4, 5, 22, 3, 2

Offset: 1

Gus Wiseman, Jul 14 2022

nonn

A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798.

The augmented differences aug(q) of a (usually weakly decreasing) sequence q of length k are given by aug(q)i = q_i - q{i+1} + 1 if i < k and aug(q)_k = q_k. For example, we have aug(6,5,5,3,3,3) = (2,1,3,1,1,3).

			The reversed prime indices of 825 are (5,3,3,2), with augmented differences (3,1,2,2), so a(825) = 3.

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

Crossrefs found in the link are not repeated here.
Prepending 1 to the positions of 1's gives A000079.
Positions of first appearances are A008578.
Positions of 2's are A065119.
The non-augmented version is A286470, also A355526.
The non-augmented minimal version is A355524, also A355525.
The minimal version is A355531.
Row maxima of A355534, which has Heinz number A325351.
A001222 counts prime indices, distinct A001221.
A112798 lists prime indices, sum A056239.
Cf. A066312, A124010, A129654, A243055, A243056, A307824, A325366, A325394, A355533, A355536.

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

A332668 Number of strict integer partitions of n without three consecutive parts in arithmetic progression.

Original entry on oeis.org

1, 1, 1, 2, 2, 3, 3, 5, 6, 6, 9, 11, 11, 15, 20, 19, 26, 31, 34, 41, 50, 53, 67, 78, 84, 99, 120, 130, 154, 177, 193, 226, 262, 291, 332, 375, 419, 479, 543, 608, 676, 765, 859, 961, 1075, 1202, 1336, 1495, 1672, 1854, 2050, 2301, 2536, 2814, 3142, 3448, 3809

Offset: 0

Gus Wiseman, Mar 28 2020

nonn

Also the number of strict integer partitions of n whose first differences are an anti-run, meaning there are no adjacent equal differences.

			The a(1) = 1 through a(10) = 9 partitions (A = 10):
  (1)  (2)  (3)   (4)   (5)   (6)   (7)    (8)    (9)    (A)
            (21)  (31)  (32)  (42)  (43)   (53)   (54)   (64)
                        (41)  (51)  (52)   (62)   (63)   (73)
                                    (61)   (71)   (72)   (82)
                                    (421)  (431)  (81)   (91)
                                           (521)  (621)  (532)
                                                         (541)
                                                         (631)
                                                         (721)

Fausto A. C. Cariboni, Table of n, a(n) for n = 0..450
Wikipedia, Arithmetic progression

Anti-run compositions are counted by A003242.
Normal anti-runs of length n + 1 are counted by A005649.
Strict partitions with equal differences are A049980.
Partitions with equal differences are A049988.
The non-strict version is A238424.
The version for permutations is A295370.
Anti-run compositions are ranked by A333489.
Cf. A006560, A007862, A238423, A307824, A325328, A325852, A325874, A333195.

Table[Length[Select[IntegerPartitions[n],UnsameQ@@#&&!MatchQ[Differences[#],{_,x_,x_,_}]&]],{n,0,30}]

A358169 Row n lists the first differences plus one of the prime indices of n with 1 prepended.

Original entry on oeis.org

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

Offset: 2

Gus Wiseman, Nov 01 2022

Every nonempty composition appears as a row exactly once.
A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798. Here this multiset is regarded as a sequence in weakly increasing order.
Also the reversed augmented differences of the integer partition with Heinz number n, where the augmented differences aug(q) of a sequence q of length k are given by aug(q)i = q_i - q{i+1} + 1 if i < k and aug(q)_k = q_k, and the Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k). The non-reversed version is A355534.

			Triangle begins:
   2: 1
   3: 2
   4: 1 1
   5: 3
   6: 1 2
   7: 4
   8: 1 1 1
   9: 2 1
  10: 1 3
  11: 5
  12: 1 1 2
  13: 6
  14: 1 4
  15: 2 2
  16: 1 1 1 1
  17: 7
  18: 1 2 1
  19: 8
  20: 1 1 3

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

Row-lengths are A001222.
The first term of each row is A055396.
Row-sums are A252464.
The rows appear to be ranked by A253566.
Another variation is A287352.
Constant rows have indices A307824.
The Heinz numbers of the rows are A325351.
Strict rows have indices A325366.
Row-minima are A355531, also A355524 and A355525.
Row-maxima are A355532, non-augmented A286470, also A355526.
Reversing rows gives A355534.
The non-augmented version A355536, also A355533.
A112798 lists prime indices, sum A056239.
Cf. A124010, A243055, A243056, A325352, A325390, A355523, A355528.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Table[Differences[Prepend[primeMS[n],1]]+1,{n,30}]

A333195 Numbers with three consecutive prime indices in arithmetic progression.

Original entry on oeis.org

8, 16, 24, 27, 30, 32, 40, 48, 54, 56, 60, 64, 72, 80, 81, 88, 96, 104, 105, 108, 110, 112, 120, 125, 128, 135, 136, 144, 150, 152, 160, 162, 168, 176, 184, 189, 192, 200, 208, 210, 216, 220, 224, 232, 238, 240, 243, 248, 250, 256, 264, 270, 272, 273, 280, 288

Offset: 1

Gus Wiseman, Mar 29 2020

nonn

Also numbers whose first differences of prime indices do not form an anti-run, meaning there are adjacent equal differences.

A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798.

			The sequence of terms together with their prime indices begins:
    8: {1,1,1}          105: {2,3,4}
   16: {1,1,1,1}        108: {1,1,2,2,2}
   24: {1,1,1,2}        110: {1,3,5}
   27: {2,2,2}          112: {1,1,1,1,4}
   30: {1,2,3}          120: {1,1,1,2,3}
   32: {1,1,1,1,1}      125: {3,3,3}
   40: {1,1,1,3}        128: {1,1,1,1,1,1,1}
   48: {1,1,1,1,2}      135: {2,2,2,3}
   54: {1,2,2,2}        136: {1,1,1,7}
   56: {1,1,1,4}        144: {1,1,1,1,2,2}
   60: {1,1,2,3}        150: {1,2,3,3}
   64: {1,1,1,1,1,1}    152: {1,1,1,8}
   72: {1,1,1,2,2}      160: {1,1,1,1,1,3}
   80: {1,1,1,1,3}      162: {1,2,2,2,2}
   81: {2,2,2,2}        168: {1,1,1,2,4}
   88: {1,1,1,5}        176: {1,1,1,1,5}
   96: {1,1,1,1,1,2}    184: {1,1,1,9}
  104: {1,1,1,6}        189: {2,2,2,4}

Wikipedia, Arithmetic progression

Anti-run compositions are counted by A003242.
Normal anti-runs of length n + 1 are counted by A005649.
Strict partitions with equal differences are A049980.
Partitions with equal differences are A049988.
These are the Heinz numbers of the partitions *not* counted by A238424.
Permutations avoiding triples in arithmetic progression are A295370.
Strict partitions avoiding triples in arithmetic progression are A332668.
Anti-run compositions are ranked by A333489.
Cf. A006560, A007862, A238423, A307824, A325328, A325849, A325852.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],MatchQ[Differences[primeMS[#]],{_,x_,x_,_}]&]

A049993 a(n) is the number of arithmetic progressions of 3 or more positive integers, nondecreasing with sum <= n.

Original entry on oeis.org

0, 0, 1, 2, 3, 6, 7, 9, 13, 16, 17, 24, 25, 28, 36, 40, 41, 51, 52, 58, 68, 72, 73, 87, 91, 95, 107, 114, 115, 134, 135, 141, 155, 160, 167, 189, 190, 195, 211, 223, 224, 248, 249, 257, 282, 288, 289, 316, 320, 332, 353, 362, 363, 392, 401, 413, 436, 443, 444, 484, 485, 492, 522, 533, 543, 578

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

Cf. A007862, A014405, A014406, A049980, A049981, A049982, A049983, A049986, A049987, A049988, A049989, A049990, A049991, A049992, A240026, A240027, A307824, A320466, A325325.

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

More terms from Petros Hadjicostas, Sep 29 2019

cp's OEIS Frontend

A049992 a(n) is the number of arithmetic progressions of 3 or more positive integers, nondecreasing with sum n.

Views

Author

Keywords

Links

Crossrefs

Programs

PARI

Formula

Extensions

A355532 Maximal augmented difference between adjacent reversed prime indices of n; a(1) = 0.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A332668 Number of strict integer partitions of n without three consecutive parts in arithmetic progression.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A358169 Row n lists the first differences plus one of the prime indices of n with 1 prepended.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A333195 Numbers with three consecutive prime indices in arithmetic progression.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A049993 a(n) is the number of arithmetic progressions of 3 or more positive integers, nondecreasing with sum <= n.

Views

Author

Keywords

Links

Crossrefs

Formula

Extensions