A116932 -id:A116932 - cp's OEIS frontend

A350842 Number of integer partitions of n with no difference -2.

1, 1, 2, 3, 4, 6, 9, 12, 16, 24, 30, 40, 54, 69, 89, 118, 146, 187, 239, 297, 372, 468, 575, 711, 880, 1075, 1314, 1610, 1947, 2359, 2864, 3438, 4135, 4973, 5936, 7090, 8466, 10044, 11922, 14144, 16698, 19704, 23249, 27306, 32071, 37639, 44019, 51457, 60113

Offset: 0

Gus Wiseman, Jan 20 2022

nonn

			The a(1) = 1 through a(7) = 12 partitions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)
       (11)  (21)   (22)    (32)     (33)      (43)
             (111)  (211)   (41)     (51)      (52)
                    (1111)  (221)    (222)     (61)
                            (2111)   (321)     (322)
                            (11111)  (411)     (511)
                                     (2211)    (2221)
                                     (21111)   (3211)
                                     (111111)  (4111)
                                               (22111)
                                               (211111)
                                               (1111111)

Gus Wiseman, Sequences counting and ranking partitions and compositions by their differences and quotients.

Heinz number rankings are in parentheses below.
The version for no difference 0 is A000009.
The version for subsets of prescribed maximum is A005314.
The version for all differences < -2 is A025157, non-strict A116932.
The version for all differences > -2 is A034296, strict A001227.
The opposite version is A072670.
The version for no difference -1 is A116931 (A319630), strict A003114.
The multiplicative version is A350837 (A350838), strict A350840.
The strict case is A350844.
The complement for quotients is counted by A350846 (A350845).
A000041 = integer partitions.
A027187 = partitions of even length.
A027193 = partitions of odd length (A026424).
A323092 = double-free partitions (A320340), strict A120641.
A325534 = separable partitions (A335433).
A325535 = inseparable partitions (A335448).
A350839 = partitions with a gap and conjugate gap (A350841).
Cf. A000070, A000929, A001511, A003242, A007359, A018819, A040039, A045690, A045691, A101417, A154402, A323093.

Table[Length[Select[IntegerPartitions[n],FreeQ[Differences[#],-2]&]],{n,0,30}]

A116931 Number of partitions of n in which each part, with the possible exception of the largest, occurs at least twice.

Original entry on oeis.org

1, 2, 2, 4, 4, 8, 8, 13, 15, 22, 24, 37, 40, 57, 64, 89, 98, 135, 149, 199, 224, 292, 325, 424, 472, 601, 676, 850, 950, 1191, 1329, 1643, 1845, 2258, 2524, 3082, 3442, 4158, 4659, 5591, 6246, 7472, 8338, 9903, 11072, 13077, 14586, 17184, 19150, 22431, 25019

Offset: 1

Emeric Deutsch, Feb 27 2006

nonn

Also, partitions of n in which any two distinct parts differ by at least 2. Example: a(5) = 4 because we have [5], [4,1], [3,1,1] and [1,1,1,1,1].

			a(5) = 4 because we have [5], [3,1,1], [2,1,1,1] and [1,1,1,1,1].
q + 2*q^2 + 2*q^3 + 4*q^4 + 4*q^5 + 8*q^6 + 8*q^7 + 13*q^8 + 15*q^9 + ...
There are a(9) = 15 partitions of 9 where distinct parts differ by at least 2:
01:  [ 1 1 1 1 1 1 1 1 1 ]
02:  [ 3 1 1 1 1 1 1 ]
03:  [ 3 3 1 1 1 ]
04:  [ 3 3 3 ]
05:  [ 4 1 1 1 1 1 ]
06:  [ 4 4 1 ]
07:  [ 5 1 1 1 1 ]
08:  [ 5 2 2 ]
09:  [ 5 3 1 ]
10:  [ 6 1 1 1 ]
11:  [ 6 3 ]
12:  [ 7 1 1 ]
13:  [ 7 2 ]
14:  [ 8 1 ]
15:  [ 9 ]
- _Joerg Arndt_, Jun 09 2013

P. A. MacMahon, Combinatory Analysis, Cambridge Univ. Press, London and New York, Vol. 1, 1915 and Vol. 2, 1916; see vol. 2, p 52, Article 298.

Vaclav Kotesovec, Table of n, a(n) for n = 1..20000 (terms 1..7500 from Alois P. Heinz)
Mingjia Yang, Doron Zeilberger, Systematic Counting of Restricted Partitions, arXiv:1910.08989 [math.CO], 2019.

Cf. A116932, A007690.
Column k=2 of A218698. - Alois P. Heinz, Nov 04 2012
Column k=0 of A268193. - Alois P. Heinz, Feb 13 2016

g:=sum(x^k*product(1+x^(2*j)/(1-x^j),j=1..k-1)/(1-x^k),k=1..70): gser:=series(g,x=0,60): seq(coeff(gser,x^n),n=1..54);
# second Maple program:
b:= proc(n, i) option remember; `if`(n=0, 1, `if`(i<1, 0,
       b(n, i-1) +add(b(n-i*j, i-2), j=1..n/i)))
    end:
a:= n-> b(n, n):
seq(a(n), n=1..70);  # Alois P. Heinz, Nov 04 2012

b[n_, i_] := b[n, i] = If[n==0, 1, If[i<1, 0, b[n, i-1] + Sum[b[n-i*j, i-2], {j, 1, n/i}]]]; a[n_] := b[n, n]; Table[a[n], {n, 1, 70}] (* Jean-François Alcover, Mar 24 2015, after Alois P. Heinz *)

{a(n) = if( n<1, 0, polcoeff( sum( k=1, n, x^k / (1 - x^k) * prod( j=1, k-1, 1 + x^(2*j) / (1 - x^j), 1 + x * O(x^(n-k)))), n))} /* Michael Somos, Jan 26 2008 */

G.f.: sum(x^k*product(1+x^(2j)/(1-x^j), j=1..k-1)/(1-x^k), k=1..infinity). More generally, the g.f. of partitions of n in which each part, with the possible exception of the largest, occurs at least b times, is sum(x^k*product(1+x^(bj)/(1-x^j), j=1..k-1)/(1-x^k), k=1..infinity). It is also the g.f. of partitions of n in which any two distinct parts differ by at least b.

log(a(n)) ~ 2*Pi*sqrt(n)/3. - Vaclav Kotesovec, Jan 28 2022

A239955 Number of partitions p of n such that (number of distinct parts of p) <= max(p) - min(p).

Original entry on oeis.org

0, 0, 0, 0, 1, 2, 4, 7, 12, 17, 27, 38, 54, 75, 104, 137, 187, 245, 322, 418, 542, 691, 887, 1121, 1417, 1777, 2228, 2767, 3441, 4247, 5235, 6424, 7871, 9594, 11688, 14173, 17168, 20723, 24979, 30008, 36010, 43085, 51479, 61357, 73032, 86718, 102852, 121718

Offset: 0

Clark Kimberling, Mar 30 2014

From Gus Wiseman, Jun 26 2022: (Start)
Also the number of partitions of n with at least one gap, i.e., partitions whose parts do not form a contiguous interval. These partitions are ranked by A073492. For example, the a(0) = 0 through a(8) = 12 partitions are:
  .  .  .  .  (31)  (41)   (42)    (52)     (53)
                    (311)  (51)    (61)     (62)
                           (411)   (331)    (71)
                           (3111)  (421)    (422)
                                   (511)    (431)
                                   (4111)   (521)
                                   (31111)  (611)
                                            (3311)
                                            (4211)
                                            (5111)
                                            (41111)
                                            (311111)
Also the number of non-constant partitions of n with a repeated non-maximal part, ranked by A065201. The a(0) = 0 through a(8) = 12 partitions are:
  .  .  .  .  (211)  (311)   (411)    (322)     (422)
                     (2111)  (2211)   (511)     (611)
                             (3111)   (3211)    (3221)
                             (21111)  (4111)    (3311)
                                      (22111)   (4211)
                                      (31111)   (5111)
                                      (211111)  (22211)
                                                (32111)
                                                (41111)
                                                (221111)
                                                (311111)
                                                (2111111)
(End)

			a(6) counts these 4 partitions:  51, 42, 411, 3111.

Alois P. Heinz, Table of n, a(n) for n = 0..10000 (first 201 terms from John Tyler Rascoe)

Cf. A239954, A239956, A239958.
The complement is counted by A034296 (strict A137793), ranked by A073491.
These partitions are ranked by A073492, conjugate A065201.
Applying the condition to the conjugate gives A350839, ranked by A350841.
A000041 counts integer partitions, strict A000009.
A090858 counts partitions with a single hole, ranked by A325284.
A116931 counts partitions with differences != -1, strict A003114.
A116932 counts partitions with differences != -1 or -2, strict A025157.
Cf. A000070, A001227, A008284, A144300, A183558, A321440.

b:= proc(n, i) option remember; `if`(n=0, 1,
      `if`(i<1, 0, add(b(n-i*j, i-1), j=1..n/i)))
    end:
a:= n-> combinat[numbpart](n)-add(b(n, k), k=0..n):
seq(a(n), n=0..47);  # Alois P. Heinz, Aug 18 2025

z = 60; d[p_] := d[p] = Length[DeleteDuplicates[p]]; f[p_] := f[p] = Max[p] - Min[p]; g[n_] := g[n] = IntegerPartitions[n];
Table[Count[g[n], p_ /; d[p] < f[p]], {n, 0, z}]  (*A239954*)
Table[Count[g[n], p_ /; d[p] <= f[p]], {n, 0, z}] (*A239955*)
Table[Count[g[n], p_ /; d[p] == f[p]], {n, 0, z}] (*A239956*)
Table[Count[g[n], p_ /; d[p] > f[p]], {n, 0, z}]  (*A034296*)
Table[Count[g[n], p_ /; d[p] >= f[p]], {n, 0, z}] (*A239958*)
(* second program *)
Table[Length[Select[IntegerPartitions[n],Min@@Differences[#]<-1&]],{n,0,30}] (* Gus Wiseman, Jun 26 2022 *)

qs(a,q,n) = {prod(k=0,n,1-a*q^k)}
A_q(N) = {if(N<4, vector(N+1,i,0), my(q='q+O('q^(N-2)), g= sum(i=2,N+1, q^i/qs(q,q,i-1)*sum(j=1,i-1, q^(2*j)*qs(q^2,q^2,j-2)))); concat([0,0,0,0], Vec(g)))} \\ John Tyler Rascoe, Aug 16 2025

a(n) = A000041(n) - A034296(n).

G.f.: Sum_{i>1} q^i/(q;q){i-1} * Sum{j=1..i-1} (q^2;q^2){j-2} where (a;q)_k = Product{i>=0..k} (1-a*q^i). - John Tyler Rascoe, Aug 16 2025

A350839 Number of integer partitions of n with a difference < -1 and a conjugate difference < -1.

Original entry on oeis.org

0, 0, 0, 0, 0, 1, 2, 3, 7, 11, 17, 26, 39, 54, 81, 108, 148, 201, 269, 353, 467, 601, 779, 995, 1272, 1605, 2029, 2538, 3171, 3941, 4881, 6012, 7405, 9058, 11077, 13478, 16373, 19817, 23953, 28850, 34692, 41599, 49802, 59461, 70905, 84321, 100155, 118694

Offset: 0

Gus Wiseman, Jan 24 2022

nonn

We define a difference of a partition to be a difference of two adjacent parts.

			The a(5) = 1 through a(10) = 17 partitions:
  (311)  (411)   (511)    (422)     (522)      (622)
         (3111)  (4111)   (611)     (711)      (811)
                 (31111)  (3311)    (4221)     (4222)
                          (4211)    (4311)     (4411)
                          (5111)    (5211)     (5221)
                          (41111)   (6111)     (5311)
                          (311111)  (33111)    (6211)
                                    (42111)    (7111)
                                    (51111)    (42211)
                                    (411111)   (43111)
                                    (3111111)  (52111)
                                               (61111)
                                               (331111)
                                               (421111)
                                               (511111)
                                               (4111111)
                                               (31111111)

Allowing -1 gives A144300 = non-constant partitions.
Taking one of the two conditions gives A239955, ranked by A073492, A065201.
These partitions are ranked by A350841.
A000041 = integer partitions, strict A000009.
A034296 = flat (contiguous) partitions, strict A001227.
A073491 = numbers whose prime indices have no gaps, strict A137793.
A090858 = partitions with a single hole, ranked by A325284.
A116931 = partitions with differences != -1, strict A003114.
A116932 = partitions with differences != -1 or -2, strict A025157.
A277103 = partitions with the same number of odd parts as their conjugate.
A350837 = partitions with no adjacent doublings, strict A350840.
A350842 = partitions with differences != -2, strict A350844, sets A005314.
Cf. A000070, A000929, A008284, A040039, A183558, A319630, A321440, A350838.

conj[y_]:=If[Length[y]==0,y,Table[Length[Select[y,#>=k&]],{k,1,Max[y]}]];
Table[Length[Select[IntegerPartitions[n],(Min@@Differences[#]<-1)&&(Min@@Differences[conj[#]]<-1)&]],{n,0,30}]

A350844 Number of strict integer partitions of n with no difference -2.

Original entry on oeis.org

1, 1, 1, 2, 1, 3, 3, 4, 4, 7, 7, 8, 11, 12, 15, 18, 21, 23, 31, 32, 40, 45, 54, 59, 73, 78, 94, 106, 122, 136, 161, 177, 203, 231, 259, 293, 334, 372, 417, 476, 525, 592, 663, 742, 821, 931, 1020, 1147, 1271, 1416, 1558, 1752, 1916, 2137, 2357, 2613, 2867

Offset: 0

Gus Wiseman, Jan 21 2022

nonn

			The a(1) = 1 through a(12) = 11 partitions (A..C = 10..12):
  1   2   3    4   5    6     7    8     9     A      B     C
          21       32   51    43   62    54    73     65    84
                   41   321   52   71    63    82     74    93
                              61   521   72    91     83    A2
                                         81    541    92    B1
                                         432   721    A1    543
                                         621   4321   632   651
                                                      821   732
                                                            741
                                                            921
                                                            6321

Gus Wiseman, Sequences counting and ranking partitions and compositions by their differences and quotients.

The version for no difference 0 is A000009.
The version for no difference > -2 is A001227, non-strict A034296.
The version for no difference -1 is A003114 (A325160).
The version for subsets of prescribed maximum is A005314.
The version for all differences < -2 is A025157, non-strict A116932.
The opposite version is A072670.
The multiplicative version is A350840, non-strict A350837 (A350838).
The non-strict version is A350842.
A000041 counts integer partitions.
A027187 counts partitions of even length.
A027193 counts partitions of odd length (A026424).
A116931 counts partitions with no difference -1 (A319630).
A323092 counts double-free integer partitions (A320340) strict A120641.
A325534 counts separable partitions (A335433).
A325535 counts inseparable partitions (A335448).
Cf. A000929, A003000, A018819, A040039, A045690, A045691, A154402, A303362, A323094, A342095, A342097.

Table[Length[Select[IntegerPartitions[n],FreeQ[Differences[#],0|-2]&]],{n,0,30}]

A218698 Number T(n,k) of ways to divide the partitions of n into nonempty consecutive subsequences each of which contains only equal parts and parts from distinct subsequences differ by at least k; triangle T(n,k), n>=0, 0<=k<=n, read by rows.

Original entry on oeis.org

1, 1, 1, 3, 2, 2, 6, 3, 2, 2, 14, 5, 4, 3, 3, 27, 7, 4, 3, 2, 2, 60, 11, 8, 6, 5, 4, 4, 117, 15, 8, 6, 4, 3, 2, 2, 246, 22, 13, 9, 8, 6, 5, 4, 4, 490, 30, 15, 12, 8, 7, 5, 4, 3, 3, 1002, 42, 22, 14, 12, 9, 8, 6, 5, 4, 4, 1998, 56, 24, 16, 12, 10, 7, 6, 4, 3, 2, 2

Offset: 0

Alois P. Heinz, Nov 04 2012

T(n,k) is defined for n,k >= 0. The triangle contains terms with k <= n. T(n,k) = T(n,n) = A000005(n) for k >= n. For k>0: T(n,k) = number of partitions of n in which any two distinct parts differ by at least k, or, equivalently, T(n,k) = number of partitions of n in which each part, with the possible exception of the largest, occurs at least k times.

			T(4,0) = 14: [[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],[2]], [[1,1],[2]], [[2],[2]], [[2,2]], [[1],[3]], [[4]].
T(4,1) = 5: [[1,1,1,1]], [[1,1],[2]], [[2,2]], [[1],[3]], [[4]].
T(4,2) = 4: [[1,1,1,1]], [[2,2]], [[1],[3]], [[4]].
T(4,3) = T(4,4) = A000005(4) = 3: [[1,1,1,1]], [[2,2]], [[4]].
Triangle T(n,k) begins:
    1;
    1,  1;
    3,  2,  2;
    6,  3,  2,  2;
   14,  5,  4,  3,  3;
   27,  7,  4,  3,  2,  2;
   60, 11,  8,  6,  5,  4,  4;
  117, 15,  8,  6,  4,  3,  2,  2;
  ...

Alois P. Heinz, Rows n = 0..140, flattened

Columns k=0-10 give: A006951, A000041, A116931, A116932, A218699, A218700, A218701, A218702, A218703, A218704, A218705.
Main diagonal gives: A000005.
T(2n,n) gives A319776.

b:= proc(n, i, k) option remember; `if`(n=0, 1, `if`(i<1, 0,
       b(n, i-1, k) +add(b(n-i*j, i-k, k), j=1..n/i)))
    end:
T:= (n, k)-> b(n, n, k):
seq(seq(T(n,k), k=0..n), n=0..12);

b[n_, i_, k_] :=  b[n, i, k] =  If[n == 0, 1, If[i < 1, 0,  b[n, i - 1, k] + Sum[b[n - i*j, i - k, k], {j, 1, n/i}]]]; T[n_, k_] := b[n, n, k]; Table[Table[T[n, k], {k, 0, n}], {n, 0, 12}] // Flatten (* Jean-François Alcover, Dec 27 2013, translated from Maple *)

G.f. of column k: 1 + Sum_{j>=1} x^j/(1-x^j) * Product_{i=1..j-1} (1+x^(k*i)/(1-x^i)).

A350841 Heinz numbers of integer partitions with a difference < -1 and a conjugate difference < -1.

Original entry on oeis.org

20, 28, 40, 44, 52, 56, 63, 68, 76, 80, 84, 88, 92, 99, 100, 104, 112, 116, 117, 124, 126, 132, 136, 140, 148, 152, 153, 156, 160, 164, 168, 171, 172, 176, 184, 188, 189, 196, 198, 200, 204, 207, 208, 212, 220, 224, 228, 232, 234, 236, 244, 248, 252, 260, 261

Offset: 1

Gus Wiseman, Jan 26 2022

nonn

We define a difference of a partition to be a difference of two adjacent parts.

			The terms together with their prime indices begin:
   20: (3,1,1)
   28: (4,1,1)
   40: (3,1,1,1)
   44: (5,1,1)
   52: (6,1,1)
   56: (4,1,1,1)
   63: (4,2,2)
   68: (7,1,1)
   76: (8,1,1)
   80: (3,1,1,1,1)
   84: (4,2,1,1)
   88: (5,1,1,1)
   92: (9,1,1)
   99: (5,2,2)

Heinz number rankings are in parentheses below.
Taking just one condition gives (A073492) and (A065201), counted by A239955.
These partitions are counted by A350839.
A000041 = integer partitions, strict A000009.
A034296 = partitions with no gaps (A073491), strict A001227 (A073485).
A090858 = partitions with a single gap of size 1 (A325284).
A116931 = partitions with no successions (A319630), strict A003114.
A116932 = partitions with no successions or gaps of size 1, strict A025157.
A350842 = partitions with no gaps of size 1, strict A350844, sets A005314.
Cf. A000070, A024619, A026424, A055932, A183558, A277103, A305148, A321440, A350838.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
conj[y_]:=If[Length[y]==0,y,Table[Length[Select[y,#>=k&]],{k,1,Max[y]}]];
Select[Range[100],(Min@@Differences[Reverse[primeMS[#]]]<-1)&&(Min@@Differences[conj[primeMS[#]]]<-1)&]

A350837 Number of integer partitions of n with no adjacent parts of quotient 2.

Original entry on oeis.org

1, 1, 2, 2, 4, 5, 7, 10, 14, 18, 24, 31, 41, 53, 70, 87, 112, 140, 178, 221, 277, 344, 428, 526, 648, 792, 971, 1180, 1436, 1738, 2103, 2533, 3049, 3660, 4387, 5242, 6259, 7450, 8860, 10511, 12453, 14723, 17387, 20489, 24121, 28343, 33269, 38982, 45632, 53327

Offset: 0

Gus Wiseman, Jan 18 2022

nonn

The first of these partitions that is not double-free (see A323092 for definition) is (4,3,2).

			The a(1) = 1 through a(7) = 10 partitions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)
       (11)  (111)  (22)    (32)     (33)      (43)
                    (31)    (41)     (51)      (52)
                    (1111)  (311)    (222)     (61)
                            (11111)  (411)     (322)
                                     (3111)    (331)
                                     (111111)  (511)
                                               (4111)
                                               (31111)
                                               (1111111)

Gus Wiseman, Sequences counting and ranking partitions and compositions by their differences and quotients.

The version with quotients >= 2 is A000929, sets A018819.
                           <= 2 is A342094, ranked by A342191.
                           < 2 is A342096, sets A045690, strict A342097.
                           > 2 is A342098, sets A040039.
The sets version (subsets of prescribed maximum) is A045691.
These partitions are ranked by A350838.
The strict case is A350840.
A version for differences is A350842, strict A350844.
The complement is counted by A350846, ranked by A350845.
A000041 = integer partitions.
A116931 = partitions with no successions, ranked by A319630.
A116932 = partitions with differences != 1 or 2, strict A025157.
A323092 = double-free partitions, ranked by A320340.
Cf. A000070, A003000, A003114, `A003242, A051424, `A101417, A120641, A154402, A305148, A323093, A323094, A342095, A350839.

Table[Length[Select[IntegerPartitions[n], FreeQ[Divide@@@Partition[#,2,1],2]&]],{n,0,15}]

A350838 Heinz numbers of partitions with no adjacent parts of quotient 2.

Original entry on oeis.org

1, 2, 3, 4, 5, 7, 8, 9, 10, 11, 13, 14, 15, 16, 17, 19, 20, 22, 23, 25, 26, 27, 28, 29, 31, 32, 33, 34, 35, 37, 38, 39, 40, 41, 43, 44, 45, 46, 47, 49, 50, 51, 52, 53, 55, 56, 57, 58, 59, 61, 62, 64, 67, 68, 69, 70, 71, 73, 74, 75, 76, 77, 79, 80, 81, 82, 83

Offset: 1

Gus Wiseman, Jan 18 2022

nonn

Differs from A320340 in having 105: (4,3,2), 315: (4,3,2,2), 455: (6,4,3), etc.

The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k), so these are numbers with no adjacent prime indices of quotient 1/2.

			The terms and their prime indices begin:
      1: {}            19: {8}             38: {1,8}
      2: {1}           20: {1,1,3}         39: {2,6}
      3: {2}           22: {1,5}           40: {1,1,1,3}
      4: {1,1}         23: {9}             41: {13}
      5: {3}           25: {3,3}           43: {14}
      7: {4}           26: {1,6}           44: {1,1,5}
      8: {1,1,1}       27: {2,2,2}         45: {2,2,3}
      9: {2,2}         28: {1,1,4}         46: {1,9}
     10: {1,3}         29: {10}            47: {15}
     11: {5}           31: {11}            49: {4,4}
     13: {6}           32: {1,1,1,1,1}     50: {1,3,3}
     14: {1,4}         33: {2,5}           51: {2,7}
     15: {2,3}         34: {1,7}           52: {1,1,6}
     16: {1,1,1,1}     35: {3,4}           53: {16}
     17: {7}           37: {12}            55: {3,5}

The version with quotients >= 2 is counted by A000929, sets A018819.
                           <= 2 is A342191, counted by A342094.
                           < 2 is counted by A342096, sets A045690.
                           > 2 is counted by A342098, sets A040039.
The sets version (subsets of prescribed maximum) is counted by A045691.
These partitions are counted by A350837.
The strict case is counted by A350840.
For differences instead of quotients we have A350842, strict A350844.
The complement is A350845, counted by A350846.
A000041 = integer partitions.
A000045 = sets containing n with all differences > 2.
A003114 = strict partitions with no successions, ranked by A325160.
A056239 adds up prime indices, row sums of A112798, counted by A001222.
A116931 = partitions with no successions, ranked by A319630.
A116932 = partitions with differences != 1 or 2, strict A025157.
A323092 = double-free integer partitions, ranked by A320340.
A350839 = partitions with gaps and conjugate gaps, ranked by A350841.
Cf. A000302, A001105, A003000, A018819, A094537, A120641, A154402, A319613, A323093, A337135, A342097, A342095.

primeptn[n_]:=If[n==1,{},Reverse[Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]]];
Select[Range[100],And@@Table[FreeQ[Divide@@@Partition[primeptn[#],2,1],2],{i,2,PrimeOmega[#]}]&]

A350840 Number of strict integer partitions of n with no adjacent parts of quotient 2.

Original entry on oeis.org

1, 1, 1, 1, 2, 3, 2, 4, 5, 6, 7, 8, 10, 13, 17, 19, 22, 25, 30, 35, 43, 52, 60, 70, 81, 93, 106, 122, 142, 166, 190, 216, 249, 287, 325, 371, 420, 479, 543, 617, 695, 784, 888, 1000, 1126, 1266, 1420, 1594, 1792, 2008, 2247, 2514, 2809, 3135, 3496, 3891, 4332

Offset: 0

Gus Wiseman, Jan 20 2022

nonn

			The a(1) = 1 through a(13) = 13 partitions (A..D = 10..13):
  1   2   3   4    5    6    7    8     9     A     B     C     D
              31   32   51   43   53    54    64    65    75    76
                   41        52   62    72    73    74    93    85
                             61   71    81    82    83    A2    94
                                  431   432   91    92    B1    A3
                                        531   532   A1    543   B2
                                              541   641   651   C1
                                                    731   732   643
                                                          741   652
                                                          831   751
                                                                832
                                                                931
                                                                5431

The version for subsets of prescribed maximum is A045691.
The double-free case is A120641.
The non-strict case is A350837, ranked by A350838.
An additive version (differences) is A350844, non-strict A350842.
The non-strict complement is counted by A350846, ranked by A350845.
Versions for prescribed quotients:
  = 2:  A154402, sets A001511.
  != 2: A350840 (this sequence), sets A045691.
  >= 2: A000929, sets A018819.
  <= 2: A342095, non-strict A342094.
  < 2:  A342097, non-strict A342096, sets A045690.
  > 2:  A342098, sets A040039.
A000041 = integer partitions.
A000045 = sets containing n with all differences > 2.
A003114 = strict partitions with no successions, ranked by A325160.
A116931 = partitions with no successions, ranked by A319630.
A116932 = partitions with differences != 1 or 2, strict A025157.
A323092 = double-free integer partitions, ranked by A320340.
A350839 = partitions with gaps and conjugate gaps, ranked by A350841.
Cf. A003000, A018819, A303362, A323093, A323094, A337135, A342191.

Table[Length[Select[IntegerPartitions[n],UnsameQ@@#&&And@@Table[#[[i-1]]/#[[i]]!=2,{i,2,Length[#]}]&]],{n,0,30}]

cp's OEIS Frontend

A350842 Number of integer partitions of n with no difference -2.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

A116931 Number of partitions of n in which each part, with the possible exception of the largest, occurs at least twice.

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Maple

Mathematica

PARI

Formula

A239955 Number of partitions p of n such that (number of distinct parts of p) <= max(p) - min(p).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

PARI

Formula

A350839 Number of integer partitions of n with a difference < -1 and a conjugate difference < -1.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A350844 Number of strict integer partitions of n with no difference -2.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

A218698 Number T(n,k) of ways to divide the partitions of n into nonempty consecutive subsequences each of which contains only equal parts and parts from distinct subsequences differ by at least k; triangle T(n,k), n>=0, 0<=k<=n, read by rows.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Formula

A350841 Heinz numbers of integer partitions with a difference < -1 and a conjugate difference < -1.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A350837 Number of integer partitions of n with no adjacent parts of quotient 2.

Views

Author

Keywords