A325852 -id:A325852 - cp's OEIS frontend

A238424 Number of partitions of n without three consecutive parts in arithmetic progression.

1, 1, 2, 2, 4, 5, 6, 8, 13, 13, 19, 24, 30, 36, 47, 54, 72, 85, 106, 123, 151, 178, 220, 256, 314, 362, 432, 505, 605, 692, 827, 953, 1121, 1303, 1522, 1729, 2037, 2321, 2691, 3095, 3577, 4061, 4699, 5334, 6126, 6959, 7966, 9005, 10317, 11638, 13252, 14977

Offset: 0

Joerg Arndt and Alois P. Heinz, Feb 26 2014

nonn

Also the number of partitions of n whose first differences are an anti-run, meaning there are no adjacent equal differences. - Gus Wiseman, Mar 31 2020

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

Vaclav Kotesovec, Table of n, a(n) for n = 0..1000 (terms 0..300 from Joerg Arndt and Alois P. Heinz, terms 301..350 from Fausto A. C. Cariboni)
Gus Wiseman, Sequences counting and ranking integer partitions by the differences of their successive parts

Cf. A238433 (partitions avoiding equidistant arithmetic progressions).
Cf. A238571 (partitions avoiding any arithmetic progression).
Cf. A238687.
The version for compositions is A238423, with strict case A325849.
The version for permutations is A295370.
The strict case is A332668.
The Heinz numbers of these partitions are the complement of A333195.
Partitions with equal differences are A049988.
Cf. A007862, A175342, A325850, A325851, A325852, A325874, A333631.

a[n_,r_,d_] := a[n,r,d] = Block[{j}, If[n == 0, 1, Sum[If[j == r+d, 0, a[n-j, j, j - r]], {j, Min[n, r]}]]]; a[n_] := a[n, 2*n+1, 0]; a /@ Range[0, 100] (* Giovanni Resta, Mar 02 2014 *)
Table[Length[Select[IntegerPartitions[n],!MemberQ[Differences[#,2],0]&]],{n,0,30}] (* Gus Wiseman, Mar 31 2020 *)

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}]

A325850 Number of permutations of {1..n} whose differences of all degrees are nonzero.

Original entry on oeis.org

1, 1, 2, 4, 18, 72, 446, 2804, 21560, 184364, 1788514

Offset: 0

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

			The a(1) = 1 through a(4) = 18 permutations:
  (1)  (12)  (132)  (1243)
       (21)  (213)  (1324)
             (231)  (1342)
             (312)  (1423)
                    (2134)
                    (2143)
                    (2314)
                    (2413)
                    (2431)
                    (3124)
                    (3142)
                    (3241)
                    (3412)
                    (3421)
                    (4132)
                    (4213)
                    (4231)
                    (4312)

Dominated by A295370, the case for only differences of degree 2.

Cf. A049988, A175342, A238423, A279945, A325545, A325851, A325852, A325874, A325875.

Table[Length[Select[Permutations[Range[n]],!MemberQ[Union@@Table[Differences[#,i],{i,Length[#]}],0]&]],{n,0,5}]

A325851 Number of (strict) compositions of n whose differences of all degrees are nonzero.

Original entry on oeis.org

1, 1, 1, 3, 4, 7, 12, 21, 35, 58, 102, 171, 284, 485, 819, 1355, 2301, 3884, 6528, 10983, 18380, 30824, 51851

Offset: 0

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

			The a(1) = 1 through a(7) = 21 compositions:
  (1)  (2)  (3)   (4)    (5)    (6)     (7)
            (12)  (13)   (14)   (15)    (16)
            (21)  (31)   (23)   (24)    (25)
                  (121)  (32)   (42)    (34)
                         (41)   (51)    (43)
                         (131)  (132)   (52)
                         (212)  (141)   (61)
                                (213)   (124)
                                (231)   (142)
                                (312)   (151)
                                (1212)  (214)
                                (2121)  (232)
                                        (241)
                                        (313)
                                        (412)
                                        (421)
                                        (1213)
                                        (1312)
                                        (2131)
                                        (3121)
                                        (12121)

The case for only degrees > 1 is A325875.

Cf. A049988, A175342, A238423, A295370, A325328, A325545, A325850, A325852, A325874.

Table[Length[Select[Join@@Permutations/@IntegerPartitions[n],!MemberQ[Union@@Table[Differences[#,i],{i,Length[#]}],0]&]],{n,0,10}]

A325875 Number of compositions of n whose differences of all degrees > 1 are nonzero.

Original entry on oeis.org

1, 1, 2, 3, 7, 13, 20, 38, 69, 129, 222, 407, 726, 1313, 2318, 4146, 7432, 13296, 23759, 42458, 75714

Offset: 0

Gus Wiseman, Jun 02 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 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.
A composition of n is a finite sequence of positive integers with sum n.
The case for all degrees including 1 is A325851.

			The a(1) = 1 through a(6) = 20 compositions:
  (1)  (2)   (3)   (4)    (5)     (6)
       (11)  (12)  (13)   (14)    (15)
             (21)  (22)   (23)    (24)
                   (31)   (32)    (33)
                   (112)  (41)    (42)
                   (121)  (113)   (51)
                   (211)  (122)   (114)
                          (131)   (132)
                          (212)   (141)
                          (221)   (213)
                          (311)   (231)
                          (1121)  (312)
                          (1211)  (411)
                                  (1122)
                                  (1131)
                                  (1212)
                                  (1311)
                                  (2121)
                                  (2211)
                                  (11211)

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, A325874, A325876.

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

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}]

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_,_}]&]

cp's OEIS Frontend

A238424 Number of partitions of n without three consecutive parts in arithmetic progression.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

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

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A325850 Number of permutations of {1..n} whose differences of all degrees are nonzero.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A325851 Number of (strict) compositions of n whose differences of all degrees are nonzero.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A325875 Number of compositions of n whose differences of all degrees > 1 are nonzero.

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

A333195 Numbers with three consecutive prime indices in arithmetic progression.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica