cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-9 of 9 results.

A050331 Number of factorizations into numbers with an odd number of prime factors indexed by prime signatures. A050330(A025487).

Original entry on oeis.org

1, 1, 1, 1, 2, 2, 2, 3, 2, 3, 3, 4, 4, 4, 5, 6, 6, 5, 8, 7, 8, 5, 9, 10, 6, 11, 13, 11, 9, 13, 14, 8, 16, 20, 14, 17, 20, 15, 21, 10, 22, 22, 20, 21, 31, 19, 27, 29, 26, 29, 12, 37, 30, 12, 36, 32, 46, 24, 42, 41, 44, 40, 15, 58, 40, 27, 61, 48, 49, 66, 31, 43, 63, 64, 56, 70, 68
Offset: 1

Views

Author

Christian G. Bower, Oct 15 1999

Keywords

Crossrefs

Cf. A025487, A050330.

A356932 Number of multiset partitions of integer partitions of n such that all blocks have odd size.

Original entry on oeis.org

1, 1, 2, 4, 7, 13, 24, 42, 74, 130, 224, 383, 653, 1100, 1846, 3079, 5104, 8418, 13827, 22592, 36774, 59613, 96271, 154908, 248441, 397110, 632823, 1005445, 1592962, 2516905, 3966474, 6235107, 9777791, 15297678, 23880160, 37196958, 57819018, 89691934, 138862937
Offset: 0

Views

Author

Gus Wiseman, Sep 11 2022

Keywords

Examples

			The a(1) = 1 through a(5) = 13 multiset partitions:
  {1}  {2}     {3}        {4}           {5}
       {1}{1}  {111}      {112}         {113}
               {1}{2}     {1}{3}        {122}
               {1}{1}{1}  {2}{2}        {1}{4}
                          {1}{111}      {2}{3}
                          {1}{1}{2}     {11111}
                          {1}{1}{1}{1}  {1}{112}
                                        {2}{111}
                                        {1}{1}{3}
                                        {1}{2}{2}
                                        {1}{1}{111}
                                        {1}{1}{1}{2}
                                        {1}{1}{1}{1}{1}

Links

Crossrefs

Partitions with odd multiplicities are counted by A055922.
Odd-length multisets are counted by A000302, A027193, A058695, ranked by A026424.
Other types: A050330, A356933, A356934, A356935.
Other conditions: A001970, A006171, A007294, A089259, A107742, A356941.
A000041 counts integer partitions, strict A000009.
A001055 counts factorizations.
Cf. A000670, A011782, A055887, A072233, A117958, A270995, A304969.

Programs

  • Mathematica
    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[Length[Select[Join@@mps/@IntegerPartitions[n],OddQ[Times@@Length/@#]&]],{n,0,8}]
  • PARI
    P(n,y) = {1/prod(k=1, n, 1 - y*x^k + O(x*x^n))}
seq(n) = {my(u=Vec(P(n,1)-P(n,-1))/2); Vec(1/prod(k=1, n, (1 - x^k + O(x*x^n))^u[k])) } \\ Andrew Howroyd, Dec 30 2022

Formula

G.f.: 1/Product_{k>=1} (1 - x^k)^A027193(k). - Andrew Howroyd, Dec 30 2022

Extensions

Terms a(13) and beyond from Andrew Howroyd, Dec 30 2022

A356935 Numbers whose prime indices all have odd bigomega (number of prime factors with multiplicity). Products of primes indexed by elements of A026424. MM-numbers of finite multisets of finite odd-length multisets of positive integers.

Original entry on oeis.org

1, 3, 5, 9, 11, 15, 17, 19, 25, 27, 31, 33, 37, 41, 45, 51, 55, 57, 59, 61, 67, 71, 75, 81, 83, 85, 93, 95, 99, 103, 107, 109, 111, 113, 121, 123, 125, 127, 131, 135, 153, 155, 157, 165, 171, 177, 179, 181, 183, 185, 187, 191, 193, 197, 201, 205, 209, 211, 213
Offset: 1

Views

Author

Gus Wiseman, Sep 12 2022

Keywords

Comments

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. We define the multiset of multisets with MM-number n to be formed by taking the multiset of prime indices of each part of the multiset of prime indices of n. The size of this multiset of multisets is A302242(n). For example, the prime indices of 78 are {1,2,6}, so the multiset of multisets with MM-number 78 is {{},{1},{1,2}}.

Examples

			The initial terms and corresponding multiset partitions:
   1: {}
   3: {{1}}
   5: {{2}}
   9: {{1},{1}}
  11: {{3}}
  15: {{1},{2}}
  17: {{4}}
  19: {{1,1,1}}
  25: {{2},{2}}
  27: {{1},{1},{1}}
  31: {{5}}
  33: {{1},{3}}
  37: {{1,1,2}}
  41: {{6}}
  45: {{1},{1},{2}}
  51: {{1},{4}}
  55: {{2},{3}}
  57: {{1},{1,1,1}}

Links

Crossrefs

A000041 counts integer partitions, strict A000009.
A000688 counts factorizations into prime powers.
A001055 counts factorizations.
A001221 counts prime divisors, sum A001414.
A001222 counts prime factors with multiplicity.
A056239 adds up prime indices, row sums of A112798.
Odd-size multisets are ctd by A000302, A027193, A058695, rkd by A026424.
Other types: A050330, A356932, A356933, A356934.
Other conditions: A302478, A302492, A356930, A356939, A356940, A356944, A356945.
Cf. A000040, A000720, A003963, A270995, A302242, A304969, A349050, A349055.

Programs

  • Mathematica
    primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],OddQ[Times@@Length/@primeMS/@primeMS[#]]&]

A356934 Number of multisets of odd-size multisets whose multiset union is a size-n multiset covering an initial interval with weakly decreasing multiplicities.

Original entry on oeis.org

1, 1, 2, 6, 17, 46, 166, 553, 2093
Offset: 0

Views

Author

Gus Wiseman, Sep 09 2022

Keywords

Examples

			The a(1) = 1 through a(4) = 17 multiset partitions:
  {{1}}  {{1},{1}}  {{1,1,1}}      {{1},{1,1,1}}
         {{1},{2}}  {{1,1,2}}      {{1},{1,1,2}}
                    {{1,2,3}}      {{1},{1,2,2}}
                    {{1},{1},{1}}  {{1},{1,2,3}}
                    {{1},{1},{2}}  {{1},{2,3,4}}
                    {{1},{2},{3}}  {{2},{1,1,1}}
                                   {{2},{1,1,2}}
                                   {{2},{1,1,3}}
                                   {{2},{1,3,4}}
                                   {{3},{1,1,2}}
                                   {{3},{1,2,4}}
                                   {{4},{1,2,3}}
                                   {{1},{1},{1},{1}}
                                   {{1},{1},{1},{2}}
                                   {{1},{1},{2},{2}}
                                   {{1},{1},{2},{3}}
                                   {{1},{2},{3},{4}}

Links

Crossrefs

A000041 counts integer partitions, strict A000009.
A000670 counts patterns, ranked by A333217, necklace A019536.
A011782 counts multisets covering an initial interval.
Odd-size multisets are counted by A000302, A027193, A058695, ranked by A026424.
Other conditions: A035310, A063834, A330783, A356938, A356943, A356954.
Other types: A050330, A356932, A356933, A356935.
Cf. A055887, A072233, A270995, A304969, A349050, A349055.

Programs

  • Mathematica
    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]]]];
strnorm[n_]:=Flatten[MapIndexed[Table[#2,{#1}]&,#]]&/@IntegerPartitions[n];
Table[Length[Select[Join@@mps/@strnorm[n],OddQ[Times@@Length/@#]&]],{n,0,5}]

A356933 Number of multisets of multisets, each of odd size, whose multiset union is a size-n multiset covering an initial interval.

Original entry on oeis.org

1, 1, 2, 8, 28, 108, 524, 2608, 14176, 86576, 550672, 3782496, 27843880, 214071392, 1751823600, 15041687664, 134843207240, 1269731540864, 12427331494304, 126619822952928, 1341762163389920, 14712726577081248, 167209881188545344, 1963715680476759040, 23794190474350155856
Offset: 0

Views

Author

Gus Wiseman, Sep 08 2022

Keywords

Examples

			The a(4) = 28 multiset partitions:
  {1}{111}      {1}{112}      {1}{123}      {1}{234}
  {1}{1}{1}{1}  {1}{122}      {1}{223}      {2}{134}
                {1}{222}      {1}{233}      {3}{124}
                {2}{111}      {2}{113}      {4}{123}
                {2}{112}      {2}{123}      {1}{2}{3}{4}
                {2}{122}      {2}{133}
                {1}{1}{1}{2}  {3}{112}
                {1}{1}{2}{2}  {3}{122}
                {1}{2}{2}{2}  {3}{123}
                              {1}{1}{2}{3}
                              {1}{2}{2}{3}
                              {1}{2}{3}{3}

Links

Crossrefs

A000041 counts integer partitions, strict A000009.
A000670 counts patterns, ranked by A333217, necklace A019536.
A011782 counts multisets covering an initial interval.
Cf. A055887, A063834, A072233, A270995, A304969, A349050, A349055.
Odd-size multisets are counted by A000302, A027193, A058695, ranked by A026424.
Other conditions: A034691, A116540, A255906, A356937, A356942.
Other types: A050330, A356932, A356934, A356935.

Programs

  • Mathematica
    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]]]];
allnorm[n_]:=If[n<=0,{{}},Function[s,Array[Count[s,y_/;y<=#]+1&,n]]/@Subsets[Range[n-1]+1]];
Table[Length[Select[Join@@mps/@allnorm[n],OddQ[Times@@Length/@#]&]],{n,0,5}]
  • PARI
    EulerT(v)={Vec(exp(x*Ser(dirmul(v,vector(#v,n,1/n))))-1, -#v)}
R(n,k) = {EulerT(vector(n, j, if(j%2 == 1, binomial(j+k-1, j))))}
seq(n) = {concat([1], sum(k=1, n, R(n, k)*sum(r=k, n, binomial(r, k)*(-1)^(r-k)) ))} \\ Andrew Howroyd, Jan 01 2023

Extensions

Terms a(9) and beyond from Andrew Howroyd, Jan 01 2023

A356936 Number of multiset partitions of the multiset of prime indices of n into intervals. Number of factorizations of n into members of A073485.

Original entry on oeis.org

1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1, 1, 2, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 4, 1, 1, 1, 1, 2, 3, 1, 1, 1, 1, 1, 2, 1, 1, 2, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 4, 1, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 3, 1, 1, 2, 1, 2, 2, 1, 1, 1, 1, 1, 2, 1, 1, 1
Offset: 1

Views

Author

Gus Wiseman, Sep 08 2022

Keywords

Comments

An interval is a set of positive integers with all differences of adjacent elements equal to 1.
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.

Examples

			The a(n) multiset partitions for n = 6, 30, 36, 90, 180:
  {12}    {123}      {12}{12}      {12}{23}      {12}{123}
  {1}{2}  {1}{23}    {1}{2}{12}    {2}{123}      {1}{12}{23}
          {3}{12}    {1}{1}{2}{2}  {1}{2}{23}    {1}{2}{123}
          {1}{2}{3}                {2}{3}{12}    {3}{12}{12}
                                   {1}{2}{2}{3}  {1}{1}{2}{23}
                                                 {1}{2}{3}{12}
                                                 {1}{1}{2}{2}{3}
The a(n) factorizations for n = 6, 30, 36, 90, 180:
  (6)    (30)     (6*6)      (3*30)     (6*30)
  (2*3)  (5*6)    (2*3*6)    (6*15)     (5*6*6)
         (2*15)   (2*2*3*3)  (3*5*6)    (2*3*30)
         (2*3*5)             (2*3*15)   (2*6*15)
                             (2*3*3*5)  (2*3*5*6)
                                        (2*2*3*15)
                                        (2*2*3*3*5)

Links

Crossrefs

A000688 counts factorizations into prime powers.
A001055 counts factorizations.
A001221 counts prime divisors, sum A001414.
A001222 counts prime factors with multiplicity.
A356069 counts gapless divisors, initial A356224 (complement A356225).
A056239 adds up prime indices, row sums of A112798.
Intervals are counted by A000012, A001227, ranked by A073485.
Other types: A107742, A356233, A356937, A356938, A356939.
Other conditions: A050320, A050330, A322585, A356931, A356945.
Cf. A003963, A073491, A287170, A328195, A356234.

Programs

  • Mathematica
    primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
chQ[y_]:=Or[Length[y]<=1,Union[Differences[y]]=={1}];
Table[Length[Select[facs[n],And@@chQ/@primeMS/@#&]],{n,100}]

A356945 Number of multiset partitions of the prime indices of n such that each block covers an initial interval. Number of factorizations of n into members of A055932.

Original entry on oeis.org

1, 1, 0, 2, 0, 1, 0, 3, 0, 0, 0, 2, 0, 0, 0, 5, 0, 1, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 1, 0, 7, 0, 0, 0, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 2, 0, 0, 0, 11, 0, 0, 0, 0, 0, 0, 0, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
Offset: 1

Views

Author

Gus Wiseman, Sep 08 2022

Keywords

Comments

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.

Examples

			The a{n} multiset partitions for n = 8, 24, 72, 96:
  {{111}}      {{1112}}      {{11122}}      {{111112}}
  {{1}{11}}    {{1}{112}}    {{1}{1122}}    {{1}{11112}}
  {{1}{1}{1}}  {{11}{12}}    {{11}{122}}    {{11}{1112}}
               {{1}{1}{12}}  {{12}{112}}    {{111}{112}}
                             {{1}{1}{122}}  {{12}{1111}}
                             {{1}{12}{12}}  {{1}{1}{1112}}
                                            {{1}{11}{112}}
                                            {{11}{11}{12}}
                                            {{1}{12}{111}}
                                            {{1}{1}{1}{112}}
                                            {{1}{1}{11}{12}}
                                            {{1}{1}{1}{1}{12}}

Links

Crossrefs

Positions of 0's are A080259, complement A055932.
A000688 counts factorizations into prime powers.
A001055 counts factorizations.
A001221 counts prime divisors, with sum A001414.
A001222 counts prime factors with multiplicity.
A056239 adds up prime indices, row sums of A112798.
A356069 counts gapless divisors, initial A356224 (complement A356225).
Multisets covering an initial interval are counted by A000009, A000041, A011782, ranked by A055932.
Other types: A034691, A089259, A356954, A356955.
Other conditions: A050320, A050330, A322585, A356233, A356931, A356936.
Cf. A003963, A073491, A107742, A287170, A324929, A340852, A356234.

Programs

  • Mathematica
    facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
nnQ[m_]:=PrimePi/@First/@FactorInteger[m]==Range[PrimePi[Max@@First/@FactorInteger[m]]];
Table[Length[Select[facs[n],And@@nnQ/@#&]],{n,100}]

A356931 Number of multiset partitions of the prime indices of n into multisets of odd numbers. Number of factorizations of n into members of A066208.

Original entry on oeis.org

1, 1, 0, 2, 1, 0, 0, 3, 0, 2, 1, 0, 0, 0, 0, 5, 1, 0, 0, 4, 0, 2, 1, 0, 2, 0, 0, 0, 0, 0, 1, 7, 0, 2, 0, 0, 0, 0, 0, 7, 1, 0, 0, 4, 0, 2, 1, 0, 0, 4, 0, 0, 0, 0, 2, 0, 0, 0, 1, 0, 0, 2, 0, 11, 0, 0, 1, 4, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 12, 0, 2, 1, 0, 2, 0
Offset: 1

Views

Author

Gus Wiseman, Sep 08 2022

Keywords

Comments

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.

Examples

			The a(440) = 21 multiset partitions of {1,1,1,3,5}:
  {1}{1}{1}{3}{5}  {1}{1}{1}{35}  {1}{1}{135}  {1}{1135}  {11135}
                   {1}{1}{13}{5}  {1}{11}{35}  {11}{135}
                   {1}{11}{3}{5}  {11}{13}{5}  {111}{35}
                   {1}{1}{3}{15}  {1}{13}{15}  {113}{15}
                                  {11}{3}{15}  {13}{115}
                                  {1}{3}{115}  {3}{1115}
                                  {1}{5}{113}  {5}{1113}
                                  {3}{111}{5}

Links

Crossrefs

Positions of 0's are A324929, complement A066208.
A000688 counts factorizations into prime powers.
A001055 counts factorizations.
A001221 counts prime divisors, sum A001414.
A001222 counts prime factors with multiplicity.
A056239 adds up prime indices, row sums of A112798.
A356069 counts gapless divisors, initial A356224 (complement A356225).
Other types: A000009, A000012, A000041, A089259, A356930.
Other conditions: A050320, A050330, A356936, A322585, A356233, A356945.
Cf. A003963, A073491, A107742, A287170, A325534, A325535, A340852, A356234.

Programs

  • Mathematica
    primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
Table[Length[Select[facs[n],And@@(OddQ[Times@@primeMS[#]]&/@#)&]],{n,100}]

Formula

a(n) = 0 if n is in A324929, otherwise a(n) = A001055(n).

A328855 Number of factorizations of n into numbers with an odd number of distinct prime factors.

Original entry on oeis.org

1, 1, 1, 2, 1, 1, 1, 3, 2, 1, 1, 2, 1, 1, 1, 5, 1, 2, 1, 2, 1, 1, 1, 3, 2, 1, 3, 2, 1, 2, 1, 7, 1, 1, 1, 4, 1, 1, 1, 3, 1, 2, 1, 2, 2, 1, 1, 5, 2, 2, 1, 2, 1, 3, 1, 3, 1, 1, 1, 4, 1, 1, 2, 11, 1, 2, 1, 2, 1, 2, 1, 6, 1, 1, 2, 2, 1, 2, 1, 5, 5, 1, 1, 4, 1, 1, 1, 3, 1, 4
Offset: 1

Views

Author

Ilya Gutkovskiy, Oct 28 2019

Keywords

Examples

			a(8) = 3 because 8 = 2 * 4 = 2 * 2 * 2.

Crossrefs

Cf. A001055, A030230, A050330, A328856.

Formula

Dirichlet g.f.: Product_{k>=1} 1 / (1 - A030230(k)^(-s)).
Showing 1-9 of 9 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.