A038041 -id:A038041 - cp's OEIS frontend

A306386 Number of chord diagrams with n chords all having arc length at least 3.

1, 0, 0, 1, 7, 68, 837, 11863, 189503, 3377341, 66564396, 1439304777, 33902511983, 864514417843, 23735220814661, 698226455579492, 21914096529153695, 731009183350476805, 25829581529376423945, 963786767538027630275, 37871891147795243899204, 1563295398737378236910447

Offset: 0

Gus Wiseman, Feb 26 2019

nonn

A cyclical form of A190823.

Also the number of 2-uniform set partitions of {1...2n} such that, when the vertices are arranged uniformly around a circle, no block has its two vertices separated by an arc length of less than 3.

			The a(8) = 7 2-uniform set partitions with all arc lengths at least 3:
  {{1,4},{2,6},{3,7},{5,8}}
  {{1,4},{2,7},{3,6},{5,8}}
  {{1,5},{2,6},{3,7},{4,8}}
  {{1,5},{2,6},{3,8},{4,7}}
  {{1,5},{2,7},{3,6},{4,8}}
  {{1,6},{2,5},{3,7},{4,8}}
  {{1,6},{2,5},{3,8},{4,7}}

Alois P. Heinz, Table of n, a(n) for n = 0..404
Gus Wiseman, The a(5) = 68 chord diagrams with all arc lengths at least 3.

Cf. A000296, A000699, A001006, A001147, A001610, A003436, A038041, A054726, A135042, A170941, A190823, A278990, A306419, A322402, A324011, A324169.

Column k=3 of A324428.

a:= proc(n) option remember; `if`(n<8, [1, 0$2, 1, 7, 68, 837, 11863][n+1],
      ((8*n^4-64*n^3+142*n^2-66*n+109)    *a(n-1)
      -(24*n^4-248*n^3+870*n^2-1106*n+241)*a(n-2)
      +(24*n^4-264*n^3+982*n^2-1270*n+145)*a(n-3)
      -(8*n^4-96*n^3+374*n^2-486*n+33)    *a(n-4)
      -(4*n^3-24*n^2+39*n-2)              *a(n-5))/(4*n^3-36*n^2+99*n-69))
    end:
seq(a(n), n=0..23);  # Alois P. Heinz, Feb 27 2019

dtui[{},]:={{}};dtui[set:{i,___},n_]:=Join@@Function[s,Prepend[#,s]&/@dtui[Complement[set,s],n]]/@Table[{i,j},{j,Switch[i,1,Select[set,3<#i+2&]]}];
Table[Length[dtui[Range[n],n]],{n,0,12,2}]

a(n) is even <=> n in { A135042 }. - Alois P. Heinz, Feb 27 2019

a(10)-a(16) from Alois P. Heinz, Feb 26 2019

a(17)-a(21) from Alois P. Heinz, Feb 27 2019

A322785 Number of uniform multiset partitions of uniform multisets of size n whose union is an initial interval of positive integers.

Original entry on oeis.org

1, 1, 4, 4, 12, 4, 48, 4, 183, 297, 1186, 4, 33950, 4, 139527, 1529608, 4726356, 4, 229255536, 4, 3705777010, 36279746314, 13764663019, 4, 14096735197959, 5194673049514, 7907992957755, 2977586461058927, 13426396910491001, 4, 1350012288268171854, 4, 59487352224070807287

Offset: 0

Gus Wiseman, Dec 26 2018

nonn

A multiset is uniform if all multiplicities are equal. A multiset partition is uniform if all parts have the same size.

			The a(1) = 1 though a(6) = 48 multiset partitions:
  {1}  {11}    {111}      {1111}        {11111}          {111111}
       {12}    {123}      {1122}        {12345}          {111222}
       {1}{1}  {1}{1}{1}  {1234}        {1}{1}{1}{1}{1}  {112233}
       {1}{2}  {1}{2}{3}  {11}{11}      {1}{2}{3}{4}{5}  {123456}
                          {11}{22}                       {111}{111}
                          {12}{12}                       {111}{222}
                          {12}{34}                       {112}{122}
                          {13}{24}                       {112}{233}
                          {14}{23}                       {113}{223}
                          {1}{1}{1}{1}                   {122}{133}
                          {1}{1}{2}{2}                   {123}{123}
                          {1}{2}{3}{4}                   {123}{456}
                                                         {124}{356}
                                                         {125}{346}
                                                         {126}{345}
                                                         {134}{256}
                                                         {135}{246}
                                                         {136}{245}
                                                         {145}{236}
                                                         {146}{235}
                                                         {156}{234}
                                                         {11}{11}{11}
                                                         {11}{12}{22}
                                                         {11}{22}{33}
                                                         {11}{23}{23}
                                                         {12}{12}{12}
                                                         {12}{12}{33}
                                                         {12}{13}{23}
                                                         {12}{34}{56}
                                                         {12}{35}{46}
                                                         {12}{36}{45}
                                                         {13}{13}{22}
                                                         {13}{24}{56}
                                                         {13}{25}{46}
                                                         {13}{26}{45}
                                                         {14}{23}{56}
                                                         {14}{25}{36}
                                                         {14}{26}{35}
                                                         {15}{23}{46}
                                                         {15}{24}{36}
                                                         {15}{26}{34}
                                                         {16}{23}{45}
                                                         {16}{24}{35}
                                                         {16}{25}{34}
                                                         {1}{1}{1}{1}{1}{1}
                                                         {1}{1}{1}{2}{2}{2}
                                                         {1}{1}{2}{2}{3}{3}
                                                         {1}{2}{3}{4}{5}{6}

Andrew Howroyd, Table of n, a(n) for n = 0..100

Row sums of A322788.

Cf. A000040, A038041, A072774, A100778, A299353, A306017, A306018, A306021, A317583, A317584, A319056, A319189, A321721, A322705, A322784, A322788.

sps[{}]:={{}};sps[set:{i_,_}]:=Join@@Function[s,Prepend[#,s]&/@sps[Complement[set,s]]]/@Cases[Subsets[set],{i,_}];
mps[set_]:=Union[Sort[Sort/@(#/.x_Integer:>set[[x]])]&/@sps[Range[Length[set]]]];
Table[Sum[Length[Select[mps[m],SameQ@@Length/@#&]],{m,Table[Join@@Table[Range[n/d],{d}],{d,Divisors[n]}]}],{n,8}]

a(n) = 4 <=> n in { A000040 }. - Alois P. Heinz, Feb 03 2022

More terms from Alois P. Heinz, Jan 30 2019

Terms a(14) and beyond from Andrew Howroyd, Feb 03 2022

A327908 Nonprime squarefree numbers whose prime indices all have the same Omega (A001222) and the same sum of prime indices (A056239).

Original entry on oeis.org

1, 667, 2021, 4331, 5767, 7081, 7663, 11021, 11639, 12091, 13837, 15049, 20413, 23213, 26123, 31553, 34933, 35657, 35723, 37909, 37979, 38021, 41449, 42919, 44197, 45113, 51019, 53531, 58339, 63407, 66013, 70531, 72929, 73373, 73903, 75763, 83411, 87361, 90581

Offset: 1

Gus Wiseman, Sep 30 2019

nonn

			The sequence of terms together with their prime indices begins:
      1: {}
    667: {9,10}
   2021: {14,15}
   4331: {18,20}
   5767: {21,22}
   7081: {21,25}
   7663: {22,25}
  11021: {27,28}
  11639: {27,30}
  12091: {28,30}
  13837: {26,33}
  15049: {26,35}
  20413: {33,35}
  23213: {34,39}
  26123: {36,40}
  31553: {34,49}
  34933: {42,44}
  35657: {42,45}
  35723: {34,55}
  37909: {39,49}

Gus Wiseman, Sequences counting and ranking multiset partitions whose part lengths, sums, or averages are constant or strict.

Equal omega: A327900
Equal sum of prime indices: A327901
Equal average of prime indices: A327902
Cf. A001222, A038041, A056239, A112798, A320324, A326574, A327899.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[10000],!PrimeQ[#]&&SquareFreeQ[#]&&SameQ@@PrimeOmega/@primeMS[#]&&SameQ@@Total/@primeMS/@primeMS[#]&]

A361911 Number of set partitions of {1..n} with block-medians summing to an integer.

Original entry on oeis.org

1, 1, 3, 10, 30, 107, 479, 2249, 11173, 60144, 351086, 2171087, 14138253, 97097101, 701820663, 5303701310, 41838047938, 343716647215, 2935346815495, 25999729551523, 238473713427285, 2261375071834708, 22141326012712122, 223519686318676559, 2323959300370456901

Offset: 1

Gus Wiseman, Apr 14 2023

nonn

The median of a multiset is either the middle part (for odd length), or the average of the two middle parts (for even length).

			The a(1) = 1 through a(4) = 10 set partitions:
  {{1}}  {{1}{2}}  {{123}}      {{1}{234}}
                   {{13}{2}}    {{12}{34}}
                   {{1}{2}{3}}  {{123}{4}}
                                {{124}{3}}
                                {{13}{24}}
                                {{134}{2}}
                                {{14}{23}}
                                {{1}{24}{3}}
                                {{13}{2}{4}}
                                {{1}{2}{3}{4}}
The set partition {{1,4},{2,3}} has medians {5/2,5/2}, with sum 5, so is counted under a(4).

For median instead of sum we have A361864.
For mean of means we have A361865.
For mean instead of median we have A361866.
A000110 counts set partitions.
A000975 counts subsets with integer median, mean A327475.
A013580 appears to count subsets by median, A327481 by mean.
A308037 counts set partitions with integer average block-size.
A325347 = partitions w/ integer median, complement A307683, strict A359907.
A360005 gives twice median of prime indices, distinct A360457.
Cf. A007837, A035470, A038041, A079309, A231147, A275714, A275780, A359893, A361801, A361910.

sps[{}]:={{}}; sps[set:{i_,_}] := Join@@Function[s,Prepend[#,s]& /@ sps[Complement[set,s]]] /@ Cases[Subsets[set],{i,_}];
Table[Length[Select[sps[Range[n]], IntegerQ[Total[Median/@#]]&]],{n,10}]

a(12)-a(25) from Christian Sievers, Aug 26 2024

A371733 Maximal length of a factorization of n into factors > 1 all having the same sum of prime indices.

Original entry on oeis.org

0, 1, 1, 2, 1, 1, 1, 3, 2, 1, 1, 2, 1, 1, 1, 4, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 3, 1, 1, 2, 1, 5, 1, 1, 1, 3, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 3, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 6, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 4, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 4

Offset: 1

Gus Wiseman, Apr 13 2024

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. Sum of prime indices is given by A056239.

Factorizations into factors all having the same sum of prime indices are counted by A321455.

			The factorizations of 588 of this type are (7*7*12), (21*28), (588), so a(588) = 3.
The factorizations of 900 of this type are (5*5*6*6), (9*10*10), (25*36), (30*30), (900), so a(900) = 4.

Positions of 1's are A321453, counted by A321451.
Positions of terms > 1 are A321454, counted by A321452.
Factorizations of this type are counted by A321455, different sums A321469.
For different sums instead of same sums we have A371734.
For set partitions of binary indices we have A371735.
A001055 counts factorizations.
A002219 (aerated) counts biquanimous partitions, ranks A357976.
A112798 lists prime indices, reverse A296150, length A001222, sum A056239.
A321142 and A371794 count non-biquanimous strict partitions.
A371789 counts non-quanimous sets, differences A371790.
A371796 counts quanimous sets, differences A371797.
Cf. A035470, A279787, A305551, A322794, A326515, A326518, A326534, A336137, A371783, A371791.

facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&, Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
hwt[n_]:=Total[Cases[FactorInteger[n],{p_,k_}:>PrimePi[p]*k]];
Table[Max[Length/@Select[facs[n],SameQ@@hwt/@#&]],{n,100}]

A056239(n) = if(1==n, 0, my(f=factor(n)); sum(i=1, #f~, f[i, 2] * primepi(f[i, 1])));
all_have_same_sum_of_pis(facs) = if(!#facs, 1, (#Set(apply(A056239,facs)) == 1));
A371733(n, m=n, facs=List([])) = if(1==n, if(all_have_same_sum_of_pis(facs),#facs,0), my(s=0, newfacs); fordiv(n, d, if((d>1)&&(d<=m), newfacs = List(facs); listput(newfacs,d); s = max(s, A371733(n/d, d, newfacs)))); (s)); \\ Antti Karttunen, Jan 20 2025

Data section extended to a(108) by Antti Karttunen, Jan 20 2025

A088142 Number of partitions of n-set with 2 block sizes.

Original entry on oeis.org

3, 10, 50, 116, 560, 1730, 6123, 30122, 116908, 507277, 2492737, 15328119, 56182092, 441156796, 2093130576, 15965840718, 77353276330, 693400983344, 3517825829117, 35126205660152, 187347585491624, 1952969742765476

Offset: 3

Vladeta Jovovic, Nov 02 2003

nonn

Alois P. Heinz, Table of n, a(n) for n = 3..300

Cf. A005772, A038041, A002133.

Column k=2 of A208437.

with(numtheory): with(combinat):
a:= n-> add(add(add(multinomial(n, i$j, d$((n-i*j)/d))/j!/((n-i*j)/d)!,
        d=select(x->xAlois P. Heinz, Feb 01 2014

max = 25; G[x_] = Sum[Exp[x^k/k!]-1, {k, 1, max}]; H[x_] = Sum[(Exp[x^k/k!]-1)^2, {k, 1, max}]; Drop[CoefficientList[(G[x]^2-H[x])/2 + O[x]^max, x]*Range[0, max-1]!, 3] (* Jean-François Alcover, Jul 01 2015 *)

E.g.f.: (G(x)^2-H(x))/2 where G(x) = Sum {k>=1} (exp(x^k/k!)-1) and H(x) = Sum {k>=1} (exp(x^k/k!)-1)^2. - Vladeta Jovovic, Sep 18 2007

A275679 Number of set partitions of [n] with alternating block size parities.

Original entry on oeis.org

1, 1, 1, 4, 3, 20, 43, 136, 711, 1606, 12653, 36852, 250673, 1212498, 6016715, 45081688, 196537387, 1789229594, 8963510621, 76863454428, 512264745473, 3744799424978, 32870550965259, 219159966518160, 2257073412153459, 15778075163815474, 165231652982941085

Offset: 0

Alois P. Heinz, Aug 05 2016

nonn

			a(3) = 4: 123, 12|3, 13|2, 1|23.
a(4) = 3: 1234, 1|23|4, 1|24|3.
a(5) = 20: 12345, 1234|5, 1235|4, 123|45, 1245|3, 124|35, 125|34, 12|345, 12|3|45, 1345|2, 134|25, 135|24, 13|245, 13|2|45, 145|23, 14|235, 15|234, 1|2345, 14|2|35, 15|2|34.

Alois P. Heinz, Table of n, a(n) for n = 0..592

Cf. A003724, A005046, A007837, A038041, A275309, A275310, A275311, A275312, A275313, A286076, A361804.

b:= proc(n, t) option remember; `if`(n=0, 1, add(
      `if`((i+t)::odd, b(n-i, 1-t)*binomial(n-1, i-1), 0), i=1..n))
    end:
a:= n-> `if`(n=0, 1, b(n, 0)+b(n, 1)):
seq(a(n), n=0..35);

b[n_, t_] := b[n, t] = If[n==0, 1, Sum[If[OddQ[i+t], b[n-i, 1-t] * Binomial[n-1, i-1], 0], {i, 1, n}]]; a[n_] := If[n==0, 1, b[n, 0] + b[n, 1]]; Table[a[n], {n, 0, 35}] (* Jean-François Alcover, Feb 27 2017, translated from Maple *)

A301920 Number of unlabeled uniform connected hypergraphs spanning n vertices.

Original entry on oeis.org

1, 1, 1, 3, 10, 55, 2369, 14026242, 29284932065996223, 468863491068204425232922367146585, 1994324729204021501147398087008429476673379600542622915802043455294332

Offset: 0

Gus Wiseman, Jun 19 2018

nonn

A hypergraph is uniform if all edges have the same size.

			Non-isomorphic representatives of the a(4) = 10 hypergraphs:
  {{1,2,3,4}}
  {{1,3,4},{2,3,4}}
  {{1,3},{2,4},{3,4}}
  {{1,4},{2,4},{3,4}}
  {{1,2,4},{1,3,4},{2,3,4}}
  {{1,2},{1,3},{2,4},{3,4}}
  {{1,4},{2,3},{2,4},{3,4}}
  {{1,3},{1,4},{2,3},{2,4},{3,4}}
  {{1,2,3},{1,2,4},{1,3,4},{2,3,4}}
  {{1,2},{1,3},{1,4},{2,3},{2,4},{3,4}}

Andrew Howroyd, Table of n, a(n) for n = 0..13

Row sums of A301924.

Cf. A003465, A006129, A038041, A055621, A298422, A299353, A299354, A301481, A306017-A306021.

Terms a(6) and beyond from Andrew Howroyd, Aug 26 2019

A336133 Number of ways to split a strict integer partition of n into contiguous subsequences with strictly increasing sums.

Original entry on oeis.org

1, 1, 1, 2, 2, 3, 4, 5, 6, 9, 11, 14, 17, 22, 26, 35, 40, 51, 60, 75, 86, 109, 124, 153, 175, 214, 243, 297, 336, 403, 456, 546, 614, 731, 821, 975, 1095, 1283, 1437, 1689, 1887, 2195, 2448, 2851, 3172, 3676, 4083, 4724, 5245, 6022, 6677, 7695, 8504, 9720

Offset: 0

Gus Wiseman, Jul 11 2020

nonn

			The a(1) = 1 through a(9) = 9 splittings:
  (1)  (2)  (3)    (4)    (5)    (6)      (7)      (8)      (9)
            (2,1)  (3,1)  (3,2)  (4,2)    (4,3)    (5,3)    (5,4)
                          (4,1)  (5,1)    (5,2)    (6,2)    (6,3)
                                 (3,2,1)  (6,1)    (7,1)    (7,2)
                                          (4,2,1)  (4,3,1)  (8,1)
                                                   (5,2,1)  (4,3,2)
                                                            (5,3,1)
                                                            (6,2,1)
                                                            (4),(3,2)
The first splitting with more than two blocks is (8),(7,6),(5,4,3,2) under n = 35.

Gus Wiseman, Sequences counting and ranking multiset partitions whose part lengths, sums, or averages are constant or strict.

The version with equal sums is A318683.
The version with strictly decreasing sums is A318684.
The version with weakly decreasing sums is A319794.
The version with different sums is A336132.
Starting with a composition gives A304961.
Starting with a non-strict partition gives A336134.
Partitions of partitions are A001970.
Partitions of compositions are A075900.
Compositions of compositions are A133494.
Compositions of partitions are A323583.
Cf. A006951, A063834, A279786, A305551, A316245, A317715, A323433, A336127, A336128, A336130, A336135.

splits[dom_]:=Append[Join@@Table[Prepend[#,Take[dom,i]]&/@splits[Drop[dom,i]],{i,Length[dom]-1}],{dom}];
Table[Sum[Length[Select[splits[ctn],Less@@Total/@#&]],{ctn,Select[IntegerPartitions[n],UnsameQ@@#&]}],{n,0,30}]

A361865 Number of set partitions of {1..n} such that the mean of the means of the blocks is an integer.

Original entry on oeis.org

1, 0, 3, 2, 12, 18, 101, 232, 1547, 3768, 24974, 116728, 687419, 3489664, 26436217, 159031250, 1129056772

Offset: 1

Gus Wiseman, Apr 04 2023

			The set partition y = {{1,4},{2,5},{3}} has block-means {5/2,7/2,3}, with mean 3, so y is counted under a(5).
The a(1) = 1 through a(5) = 12 set partitions:
  {{1}}  .  {{123}}      {{1}{234}}  {{12345}}
            {{13}{2}}    {{123}{4}}  {{1245}{3}}
            {{1}{2}{3}}              {{135}{24}}
                                     {{15}{234}}
                                     {{1}{234}{5}}
                                     {{12}{3}{45}}
                                     {{135}{2}{4}}
                                     {{14}{25}{3}}
                                     {{15}{24}{3}}
                                     {{1}{24}{3}{5}}
                                     {{15}{2}{3}{4}}
                                     {{1}{2}{3}{4}{5}}

For median instead of mean we have A361864.
For sum instead of outer mean we have A361866, median A361911.
A000110 counts set partitions.
A067538 counts partitions with integer mean, ranks A326836, strict A102627.
A308037 counts set partitions whose block-sizes have integer mean.
A327475 counts subsets with integer mean, median A000975.
Cf. A007837, A035470, A038041, A275714, A275780, A326512, A326513, A326521, A326537, A327481.

sps[{}]:={{}};sps[set:{i_,_}]:=Join@@Function[s,Prepend[#,s]& /@ sps[Complement[set,s]]]/@Cases[Subsets[set],{i,_}];
Table[Length[Select[sps[Range[n]],IntegerQ[Mean[Mean/@#]]&]],{n,6}]

a(13)-a(17) from Christian Sievers, Jun 30 2025

cp's OEIS Frontend

A306386 Number of chord diagrams with n chords all having arc length at least 3.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Formula

Extensions

A322785 Number of uniform multiset partitions of uniform multisets of size n whose union is an initial interval of positive integers.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

Extensions

A327908 Nonprime squarefree numbers whose prime indices all have the same Omega (A001222) and the same sum of prime indices (A056239).

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

A361911 Number of set partitions of {1..n} with block-medians summing to an integer.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Extensions

A371733 Maximal length of a factorization of n into factors > 1 all having the same sum of prime indices.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Extensions

A088142 Number of partitions of n-set with 2 block sizes.

Views

Author

Keywords

Links

Crossrefs

Programs

Maple

Mathematica

Formula

A275679 Number of set partitions of [n] with alternating block size parities.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Maple

Mathematica

A301920 Number of unlabeled uniform connected hypergraphs spanning n vertices.

Views

Author