A342098
Number of (necessarily strict) integer partitions of n with all adjacent parts having quotients > 2.
Original entry on oeis.org
1, 1, 1, 2, 2, 2, 3, 3, 3, 4, 5, 5, 6, 7, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 18, 20, 21, 23, 25, 26, 28, 31, 33, 35, 38, 40, 42, 45, 48, 51, 55, 58, 61, 65, 68, 72, 77, 81, 85, 90, 94, 98, 104, 109, 114, 121, 127, 132, 139, 146
Offset: 1
The a(1) = 1 through a(16) = 8 partitions (A..G = 10..16):
1 2 3 4 5 6 7 8 9 A B C D E F G
31 41 51 52 62 72 73 83 93 94 A4 B4 B5
61 71 81 82 92 A2 A3 B3 C3 C4
91 A1 B1 B2 C2 D2 D3
731 831 C1 D1 E1 E2
931 941 A41 F1
A31 B31 B41
C31
The version allowing equality is
A000929.
The case of equality (all adjacent parts having quotient 2) is
A154402.
The multiplicative version is
A342083.
A003114 counts partitions with adjacent parts differing by more than 1.
A034296 counts partitions with adjacent parts differing by at most 1.
A342094
Number of integer partitions of n with no adjacent parts having quotient > 2.
Original entry on oeis.org
1, 2, 3, 4, 5, 8, 9, 13, 16, 21, 27, 37, 44, 59, 75, 94, 117, 153, 186, 238, 296, 369, 458, 573, 701, 870, 1068, 1312, 1601, 1964, 2384, 2907, 3523, 4270, 5159, 6235, 7491, 9021, 10819, 12964, 15494, 18517, 22049, 26260, 31195, 37020, 43851, 51906, 61290
Offset: 1
The a(1) = 1 through a(8) = 13 partitions:
(1) (2) (3) (4) (5) (6) (7) (8)
(11) (21) (22) (32) (33) (43) (44)
(111) (211) (221) (42) (322) (53)
(1111) (2111) (222) (421) (332)
(11111) (321) (2221) (422)
(2211) (3211) (2222)
(21111) (22111) (3221)
(111111) (211111) (4211)
(1111111) (22211)
(32111)
(221111)
(2111111)
(11111111)
The version with no adjacent parts having quotient < 2 is
A000929.
The case of equality (all adjacent parts having quotient 2) is
A154402.
The multiplicative version is
A342085, with reciprocal version
A337135.
The version with all adjacent parts having quotient < 2 is
A342096, with strict case
A342097.
The version with all adjacent parts having quotient > 2 is
A342098.
The Heinz numbers of these partitions are listed by
A342191.
A003114 counts partitions with adjacent parts differing by more than 1.
A034296 counts partitions with adjacent parts differing by at most 1.
A161908 lists superior prime divisors.
A342096
Number of integer partitions of n with no adjacent parts having quotient >= 2.
Original entry on oeis.org
1, 2, 2, 3, 3, 4, 4, 6, 6, 8, 9, 11, 13, 17, 19, 24, 29, 35, 42, 51, 61, 75, 90, 108, 130, 158, 189, 227, 272, 325, 389, 464, 553, 659, 782, 929, 1102, 1306, 1545, 1824, 2153, 2538, 2989, 3514, 4127, 4842, 5673, 6642, 7766, 9068, 10583, 12335, 14361, 16705
Offset: 1
The a(1) = 1 through a(10) = 8 partitions:
1 2 3 4 5 6 7 8 9 A
11 111 22 32 33 43 44 54 55
1111 11111 222 322 53 333 64
111111 1111111 332 432 433
2222 3222 532
11111111 111111111 3322
22222
1111111111
The case of equality (all adjacent parts having quotient 2) is
A154402.
The version allowing quotients of 2 exactly is
A342094.
The strict case allowing quotients of 2 exactly is
A342095.
A000929 counts partitions with no adjacent parts having quotient < 2.
A003114 counts partitions with adjacent parts differing by more than 1.
A034296 counts partitions with adjacent parts differing by at most 1.
A342097
Number of strict integer partitions of n with no adjacent parts having quotient >= 2.
Original entry on oeis.org
1, 1, 1, 1, 2, 1, 2, 2, 3, 3, 3, 3, 4, 6, 6, 7, 8, 8, 9, 11, 13, 15, 18, 20, 24, 25, 29, 32, 39, 42, 48, 54, 63, 72, 81, 89, 102, 116, 132, 147, 165, 187, 210, 238, 264, 296, 329, 371, 414, 465, 516, 580, 644, 722, 803, 897, 994, 1108, 1229, 1367, 1512, 1678
Offset: 1
The a(1) = 1 through a(16) = 7 partitions (A..G = 10..16):
1 2 3 4 5 6 7 8 9 A B C D E F G
32 43 53 54 64 65 75 76 86 87 97
432 532 74 543 85 95 96 A6
643 653 654 754
743 753 853
5432 6432 6532
7432
The case of equality (all adjacent parts having quotient 2) is
A154402.
The non-strict version allowing quotients of 2 exactly is
A342094.
The version allowing quotients of 2 exactly is
A342095.
A000929 counts partitions with no adjacent parts having quotient < 2.
A003114 counts partitions with adjacent parts differing by more than 1.
A034296 counts partitions with adjacent parts differing by at most 1.
A342095
Number of strict integer partitions of n with no adjacent parts having quotient > 2.
Original entry on oeis.org
1, 1, 2, 1, 2, 3, 3, 2, 4, 4, 6, 7, 6, 8, 10, 9, 13, 16, 17, 20, 25, 26, 29, 36, 40, 45, 55, 61, 69, 81, 90, 103, 119, 132, 154, 176, 196, 225, 254, 282, 323, 364, 403, 458, 519, 582, 655, 735, 822, 922, 1035, 1153, 1290, 1441, 1600, 1788, 1997, 2217, 2468
Offset: 1
The a(1) = 1 through a(15) = 10 partitions (A..F = 10..15):
1 2 3 4 5 6 7 8 9 A B C D E F
21 32 42 43 53 54 64 65 75 76 86 87
321 421 63 532 74 84 85 95 96
432 4321 542 543 643 653 A5
632 642 742 743 654
5321 5421 6421 842 753
6321 5432 843
7421 6432
8421
54321
The reciprocal version (no adjacent parts having quotient < 2) is
A000929.
The case of equality (all adjacent parts having quotient 2) is
A154402.
The non-strict version without quotients of 2 exactly is
A342096.
The version without quotients of 2 exactly is
A342097.
A003114 counts partitions with adjacent parts differing by more than 1.
A034296 counts partitions with adjacent parts differing by at most 1.
-
Table[Length[Select[IntegerPartitions[n],UnsameQ@@#&&And@@Thread[Differences[-#]<=Rest[#]]&]],{n,30}]
A045690
Number of binary words of length n (beginning with 0) whose autocorrelation function is the indicator of a singleton.
Original entry on oeis.org
1, 1, 2, 3, 6, 10, 20, 37, 74, 142, 284, 558, 1116, 2212, 4424, 8811, 17622, 35170, 70340, 140538, 281076, 561868, 1123736, 2246914, 4493828, 8986540, 17973080, 35943948, 71887896, 143771368, 287542736, 575076661, 1150153322, 2300289022, 4600578044, 9201120918
Offset: 1
Torsten.Sillke(AT)uni-bielefeld.de
- Alois P. Heinz, Table of n, a(n) for n = 1..3324 (first 500 terms from T. D. Noe)
- E. H. Rivals, Autocorrelation of Strings.
- E. H. Rivals, S. Rahmann Combinatorics of Periods in Strings
- E. H. Rivals, S. Rahmann, Combinatorics of Periods in Strings, Journal of Combinatorial Theory - Series A, Vol. 104(1) (2003), pp. 95-113.
- T. Sillke, How many words have the same autocorrelation value?
The version with quotients <= 1/2 is
A018819.
The version with quotients < 1/2 is
A040039.
A000045 counts sets containing n with all differences > 2.
A000929 counts partitions with no adjacent parts having quotient < 2.
A342094 counts partitions with no adjacent parts having quotient > 2.
-
a:= proc(n) option remember; `if`(n=0, 1/2,
2*a(n-1)-`if`(n::odd, 0, a(n/2)))
end:
seq(a(n), n=1..40); # Alois P. Heinz, Jun 24 2021
-
a[1] = 1; a[n_] := a[n] = If[EvenQ[n], 2*a[n-1] - a[n/2], 2*a[n-1]]; Array[a, 40] (* Jean-François Alcover, Jul 17 2015 *)
Table[Length[Select[Subsets[Range[n]],MemberQ[#,n]&&Min@@Divide@@@Partition[#,2,1]>1/2&]],{n,8}] (* Gus Wiseman, Mar 08 2021 *)
-
a(n)=if(n<2,n>0,2*a(n-1)-(1-n%2)*a(n\2))
A040039
First differences of A033485; also A033485 with terms repeated.
Original entry on oeis.org
1, 1, 2, 2, 3, 3, 5, 5, 7, 7, 10, 10, 13, 13, 18, 18, 23, 23, 30, 30, 37, 37, 47, 47, 57, 57, 70, 70, 83, 83, 101, 101, 119, 119, 142, 142, 165, 165, 195, 195, 225, 225, 262, 262, 299, 299, 346, 346, 393, 393, 450, 450, 507, 507, 577, 577, 647, 647, 730, 730, 813, 813, 914, 914, 1015, 1015, 1134, 1134, 1253, 1253, 1395, 1395
Offset: 0
From _Joerg Arndt_, Dec 17 2012: (Start)
The a(19-1)=30 strongly decreasing partitions of 19 are (in lexicographic order)
[ 1] [ 10 5 3 1 ]
[ 2] [ 10 5 4 ]
[ 3] [ 10 6 2 1 ]
[ 4] [ 10 6 3 ]
[ 5] [ 10 7 2 ]
[ 6] [ 10 8 1 ]
[ 7] [ 10 9 ]
[ 8] [ 11 5 2 1 ]
[ 9] [ 11 5 3 ]
[10] [ 11 6 2 ]
[11] [ 11 7 1 ]
[12] [ 11 8 ]
[13] [ 12 4 2 1 ]
[14] [ 12 4 3 ]
[15] [ 12 5 2 ]
[16] [ 12 6 1 ]
[17] [ 12 7 ]
[18] [ 13 4 2 ]
[19] [ 13 5 1 ]
[20] [ 13 6 ]
[21] [ 14 3 2 ]
[22] [ 14 4 1 ]
[23] [ 14 5 ]
[24] [ 15 3 1 ]
[25] [ 15 4 ]
[26] [ 16 2 1 ]
[27] [ 16 3 ]
[28] [ 17 2 ]
[29] [ 18 1 ]
[30] [ 19 ]
The a(20-1)=30 strongly decreasing partitions of 20 are obtained by adding 1 to the first part in each partition in the list.
(End)
From _Gus Wiseman_, Oct 08 2018: (Start)
The a(-1) = 1 through a(4) = 3 semichiral binary rooted trees:
o (oo) (o(oo)) ((oo)(oo)) (o((oo)(oo))) ((o(oo))(o(oo)))
(o(o(oo))) (o(o(o(oo)))) (o(o((oo)(oo))))
(o(o(o(o(oo)))))
(End)
- Seiichi Manyama, Table of n, a(n) for n = 0..10000 (terms 0..500 from Joerg Arndt)
- Christine Bessenrodt, Jorn B. Olsson, and James A. Sellers, Unique path partitions: Characterization and Congruences, arXiv:1107.1156 [math.CO], 2011-2012.
- J. Jordan and R. Southwell, Further Properties of Reproducing Graphs, Applied Mathematics, Vol. 1 No. 5, 2010, pp. 344-350. - From _N. J. A. Sloane_, Feb 03 2013
The unequal (anti-run) version is
A045691.
A000929 counts partitions with all adjacent parts x >= 2y.
A002843 counts compositions with all adjacent parts x <= 2y.
A018819 counts partitions into powers of 2.
A154402 counts partitions with all adjacent parts x = 2y.
A274199 counts compositions with all adjacent parts x < 2y.
A342094 counts partitions with all adjacent parts x <= 2y (strict:
A342095).
A342098 counts partitions with all adjacent parts x > 2y.
A342337 counts partitions with all adjacent parts x = y or x = 2y.
-
# For example, the five partitions of 4, written in nonincreasing order, are
# [1,1,1,1], [2,1,1], [2,2], [3,1], [4].
# Only the last two satisfy the condition, and a(3)=2.
# The Maple program below verifies this for small values of n.
with(combinat); N:=8; a:=array(1..N); c:=array(1..N);
for n from 1 to N do p:=partition(n); np:=nops(p); t:=0;
for s to np do r:=p[s]; r:=sort(r,`>`); nr:=nops(r); j:=1;
while jsum(r[k],k=j+1..nr) do j:=j+1;od; # gives A040039
#while j= sum(r[k],k=j+1..nr) do j:=j+1;od; # gives A018819
if j=nr then t:=t+1;fi od; a[n]:=t; od;
# John McKay
-
T[n_, m_] := T[n, m] = Sum[Binomial[n-2k-1, n-2k-m] Sum[Binomial[m, i] T[k, i], {i, 1, k}], {k, 0, (n-m)/2}] + Binomial[n-1, n-m];
a[n_] := T[n+1, 1];
Table[a[n], {n, 0, 80}] (* Jean-François Alcover, Jul 27 2018, after Vladimir Kruchinin *)
Table[Length[Select[Subsets[Range[n]],MemberQ[#,n]&&And@@Table[#[[i-1]]/#[[i]]<1/2,{i,2,Length[#]}]&]],{n,15}] (* Gus Wiseman, Apr 06 2021 *)
-
T(n,m):=sum(binomial(n-2*k-1,n-2*k-m)*sum(binomial(m,i)*T(k,i),i,1,k),k,0,(n-m)/2)+binomial(n-1,n-m);
makelist(T(n+1,1),n,0,40); /* Vladimir Kruchinin, Mar 19 2015 */
-
/* compute as "A033485 with terms repeated" */
b(n) = if(n<2, 1, b(floor(n/2))+b(n-1)); /* A033485 */
a(n) = b(n\2+1); /* note different offsets */
for(n=0,99, print1(a(n),", ")); /* Joerg Arndt, Jan 21 2011 */
-
from itertools import islice
from collections import deque
def A040039_gen(): # generator of terms
aqueue, f, b, a = deque([2]), True, 1, 2
yield from (1, 1, 2, 2)
while True:
a += b
yield from (a, a)
aqueue.append(a)
if f: b = aqueue.popleft()
f = not f
A040039_list = list(islice(A040039_gen(),40)) # Chai Wah Wu, Jun 07 2022
A350842
Number of integer partitions of n with no difference -2.
Original entry on oeis.org
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
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)
Heinz number rankings are in parentheses below.
The version for no difference 0 is
A000009.
The version for subsets of prescribed maximum is
A005314.
A027187 = partitions of even length.
Cf.
A000070,
A000929,
A001511,
A003242,
A007359,
A018819,
A040039,
A045690,
A045691,
A101417,
A154402,
A323093.
-
Table[Length[Select[IntegerPartitions[n],FreeQ[Differences[#],-2]&]],{n,0,30}]
A342191
Numbers with no adjacent prime indices having quotient < 1/2.
Original entry on oeis.org
1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 12, 13, 15, 16, 17, 18, 19, 21, 23, 24, 25, 27, 29, 30, 31, 32, 35, 36, 37, 41, 42, 43, 45, 47, 48, 49, 53, 54, 55, 59, 60, 61, 63, 64, 65, 67, 71, 72, 73, 75, 77, 79, 81, 83, 84, 89, 90, 91, 96, 97, 101, 103, 105, 107, 108, 109
Offset: 1
The sequence of terms together with their prime indices begins:
1: {} 18: {1,2,2} 42: {1,2,4}
2: {1} 19: {8} 43: {14}
3: {2} 21: {2,4} 45: {2,2,3}
4: {1,1} 23: {9} 47: {15}
5: {3} 24: {1,1,1,2} 48: {1,1,1,1,2}
6: {1,2} 25: {3,3} 49: {4,4}
7: {4} 27: {2,2,2} 53: {16}
8: {1,1,1} 29: {10} 54: {1,2,2,2}
9: {2,2} 30: {1,2,3} 55: {3,5}
11: {5} 31: {11} 59: {17}
12: {1,1,2} 32: {1,1,1,1,1} 60: {1,1,2,3}
13: {6} 35: {3,4} 61: {18}
15: {2,3} 36: {1,1,2,2} 63: {2,2,4}
16: {1,1,1,1} 37: {12} 64: {1,1,1,1,1,1}
17: {7} 41: {13} 65: {3,6}
The multiplicative version (squared instead of doubled) for prime factors is
A253784.
These are the Heinz numbers of the partitions counted by
A342094.
A003114 counts partitions with adjacent parts differing by more than 1.
A034296 counts partitions with adjacent parts differing by at most 1.
Cf.
A000929,
A003242,
A056239,
A056924,
A112798,
A154402,
A167606,
A337135,
A342085,
A342096,
A342098.
A274199
Limiting reverse row of the array A274190.
Original entry on oeis.org
1, 1, 2, 3, 5, 8, 12, 19, 29, 44, 67, 101, 152, 228, 342, 511, 763, 1138, 1695, 2523, 3752, 5578, 8287, 12307, 18272, 27119, 40241, 59700, 88556, 131340, 194772, 288815, 428229, 634900, 941263, 1395397, 2068560, 3066372, 4545387, 6737633, 9987026, 14803303
Offset: 0
Row (g(14,k)): 1, 51, 73, 69, 55, 40, 28, 19, 12, 8, 5, 3, 2, 1, 1; the reversal is 1 1 2 3 5 8 12 19 28 ..., which agrees with A274199 up to 19.
Cf.
A000929,
A003242,
A154402,
A224957,
A342094,
A342095,
A342096,
A342097,
A342098,
A342191,
A342330-
A342342.
-
g[n_, 0] = g[n, 0] = 1;
g[n_, k_] := g[n, k] = If[k > n, 0, g[n - 1, k - 1] + g[n - 1, 2 k]];
z = 300; u = Reverse[Table[g[z, k], {k, 0, z}]];
z = 301; v = Reverse[Table[g[z, k], {k, 0, z}]];
w = Join[{1}, Intersection[u, v]] (* A274199 *)
Table[Length[Select[Join@@Permutations/@IntegerPartitions[n],And@@Table[#[[i]]<2*#[[i-1]],{i,2,Length[#]}]&]],{n,15}] (* Gus Wiseman, Mar 12 2021 *)
Showing 1-10 of 42 results.
Comments