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-10 of 10 results.

A296119 Number of ways to choose a strict factorization of each factor in a factorization of n.

Original entry on oeis.org

1, 1, 1, 2, 1, 3, 1, 4, 2, 3, 1, 7, 1, 3, 3, 7, 1, 7, 1, 7, 3, 3, 1, 16, 2, 3, 4, 7, 1, 12, 1, 12, 3, 3, 3, 21, 1, 3, 3, 16, 1, 12, 1, 7, 7, 3, 1, 33, 2, 7, 3, 7, 1, 16, 3, 16, 3, 3, 1, 34, 1, 3, 7, 23, 3, 12, 1, 7, 3, 12, 1, 50, 1, 3, 7, 7, 3, 12, 1, 33, 7, 3
Offset: 1

Views

Author

Gus Wiseman, Dec 05 2017

Keywords

Examples

			The a(24) = 16 twice-factorizations:
(2)*(2)*(2)*(3),
(2)*(2)*(2*3), (2)*(2)*(6), (2)*(3)*(4),
(2)*(2*6), (2)*(3*4), (2)*(12), (3)*(2*4), (3)*(8), (4)*(2*3), (4)*(6),
(2*3*4), (2*12), (3*8), (4*6), (24).
		

Crossrefs

Programs

  • Mathematica
    facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
    Table[Sum[Times@@(Length[Select[facs[#],UnsameQ@@#&]]&/@fac),{fac,facs[n]}],{n,100}]
  • PARI
    A045778(n, m=n) = ((n<=m) + sumdiv(n, d, if((d>1)&&(d<=m)&&(dA045778(n/d, d-1))));
    A296119(n, m=n) = if(1==n, 1, sumdiv(n, d, if((d>1)&&(d<=m), A045778(d)*A296119(n/d, d)))); \\ Antti Karttunen, Oct 08 2018

Formula

Dirichlet g.f.: 1/Product_{n > 1}(1 - A045778(n)/n^s).

A296120 Number of ways to choose a strict factorization of each factor in a strict factorization of n.

Original entry on oeis.org

1, 1, 1, 1, 1, 3, 1, 3, 1, 3, 1, 6, 1, 3, 3, 4, 1, 6, 1, 6, 3, 3, 1, 13, 1, 3, 3, 6, 1, 12, 1, 7, 3, 3, 3, 14, 1, 3, 3, 13, 1, 12, 1, 6, 6, 3, 1, 25, 1, 6, 3, 6, 1, 13, 3, 13, 3, 3, 1, 31, 1, 3, 6, 11, 3, 12, 1, 6, 3, 12, 1, 36, 1, 3, 6, 6, 3, 12, 1, 25, 4, 3
Offset: 1

Views

Author

Gus Wiseman, Dec 05 2017

Keywords

Examples

			The a(36) = 14 twice-factorizations:
(36), (4*9), (3*12), (2*18), (2*3*6),
(4)*(9), (3)*(12), (3)*(3*4), (3)*(2*6), (2)*(18), (2)*(3*6), (2)*(2*9),
(2)*(3)*(6), (2)*(3)*(2*3).
		

Crossrefs

Programs

  • Mathematica
    sfs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[sfs[n/d],Min@@#>d&]],{d,Rest[Divisors[n]]}]];
    Table[Sum[Times@@Length/@sfs/@fac,{fac,sfs[n]}],{n,100}]

Formula

Dirichlet g.f.: Product_{n > 1}(1 + A045778(n)/n^s).

A381452 Number of multisets that can be obtained by partitioning the prime indices of n into a set of multisets and taking their sums.

Original entry on oeis.org

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

Views

Author

Gus Wiseman, Mar 06 2025

Keywords

Comments

First differs from A045778 at a(24) = 4, A045778(24) = 5.
Also the number of multisets that can be obtained by taking the sums of prime indices of each factor in a factorization of n into distinct factors > 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.
A multiset partition can be regarded as an arrow in the poset of integer partitions. For example, we have {{1},{1,2},{1,3},{1,2,3}}: {1,1,1,1,2,2,3,3} -> {1,3,4,6}, or (33221111) -> (6431) (depending on notation).
Sets of multisets are generally not transitive. For example, we have arrows: {{1},{2},{1,2}}: {1,1,2,2} -> {1,2,3} and {{1,2},{3}}: {1,2,3} -> {3,3}, but there is no set of multisets {1,1,2,2} -> {3,3}.

Examples

			The prime indices of 24 are {1,1,1,2}, with 5 partitions into a set of multisets:
  {{1,1,1,2}}
  {{1},{1,1,2}}
  {{2},{1,1,1}}
  {{1,1},{1,2}}
  {{1},{2},{1,1}}
with block-sums: {5}, {1,4}, {2,3}, {2,3}, {1,2,2}, of which 4 are distinct, so a(24) = 4.
		

Crossrefs

Before taking sums we had A045778.
If each block is a set we have A381441, before sums A050326.
For distinct block-sums instead of blocks we have A381637, before sums A321469.
Other multiset partitions of prime indices:
- For multisets of constant multisets (A000688) see A381455 (upper), A381453 (lower).
- For multiset partitions (A001055) see A317141 (upper), A300383 (lower).
- For set multipartitions (A050320) see A381078 (upper), A381454 (lower).
- For sets of constant multisets (A050361) see A381715.
- For set systems with distinct sums (A381633) see A381634, zeros A293243.
- For sets of constant multisets with distinct sums (A381635) see A381716, A381636.
More on sets of multisets: A261049, A317776, A317775, A296118, A318286.
A000041 counts integer partitions, strict A000009.
A000040 lists the primes.
A003963 gives product of prime indices.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798.
A122111 represents conjugation in terms of Heinz numbers.
A265947 counts refinement-ordered pairs of integer partitions.

Programs

  • Mathematica
    prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
    sps[{}]:={{}};sps[set:{i_,_}]:=Join@@Function[s,Prepend[#,s]& /@ sps[Complement[set,s]]]/@Cases[Subsets[set],{i,_}];
    mps[mset_]:=Union[Sort[Sort/@(#/.x_Integer:>mset[[x]])]&/@sps[Range[Length[mset]]]];
    Table[Length[Union[Sort[Total/@#]&/@Select[mps[prix[n]],UnsameQ@@#&]]],{n,100}]

Formula

a(A002110(n)) = A066723(n).

A050345 Number of ways to factor n into distinct factors with one level of parentheses.

Original entry on oeis.org

1, 1, 1, 1, 1, 3, 1, 3, 1, 3, 1, 6, 1, 3, 3, 4, 1, 6, 1, 6, 3, 3, 1, 13, 1, 3, 3, 6, 1, 12, 1, 7, 3, 3, 3, 15, 1, 3, 3, 13, 1, 12, 1, 6, 6, 3, 1, 25, 1, 6, 3, 6, 1, 13, 3, 13, 3, 3, 1, 31, 1, 3, 6, 12, 3, 12, 1, 6, 3, 12, 1, 37, 1, 3, 6, 6, 3, 12, 1, 25, 4, 3, 1, 31, 3, 3, 3, 13, 1, 31, 3, 6, 3, 3
Offset: 1

Views

Author

Christian G. Bower, Oct 15 1999

Keywords

Comments

First differs from A296120 at a(36) = 15, A296120(36) = 14. - Gus Wiseman, Apr 27 2025
Each "part" in parentheses is distinct from all others at the same level. Thus (3*2)*(2) is allowed but (3)*(2*2) and (3*2*2) are not.
a(n) depends only on prime signature of n (cf. A025487). So a(24) = a(375) since 24 = 2^3*3 and 375 = 3*5^3 both have prime signature (3,1).

Examples

			12 = (12) = (6*2) = (6)*(2) = (4*3) = (4)*(3) = (3*2)*(2).
From _Gus Wiseman_, Apr 26 2025: (Start)
This is the number of ways to partition a factorization of n (counted by A001055) into a set of sets. For example, the a(12) = 6 choices are:
  {{2},{2,3}}
  {{2},{6}}
  {{3},{4}}
  {{2,6}}
  {{3,4}}
  {{12}}
(End)
		

Crossrefs

For multisets of multisets we have A050336.
For integer partitions we have a(p^k) = A050342(k), see A001970, A089259, A261049.
For normal multiset partitions see A116539, A292432, A292444, A381996, A382214, A382216.
The case of a unique choice (positions of 1) is A166684.
Twice-partitions of this type are counted by A358914, see A270995, A281113, A294788.
For sets of multisets we have A383310 (distinct products A296118).
For multisets of sets we have we have A383311, see A296119.
A001055 counts factorizations, strict A045778.
A050320 counts factorizations into squarefree numbers, distinct A050326.
A302494 gives MM-numbers of sets of sets.
A382077 counts partitions that can be partitioned into a sets of sets, ranks A382200.
A382078 counts partitions that cannot be partitioned into a sets of sets, ranks A293243.

Programs

  • Mathematica
    facs[n_]:=If[n<=1,{{}}, Join@@Table[Map[Prepend[#,d]&, Select[facs[n/d],Min@@#>=d&]],{d, Rest[Divisors[n]]}]];
    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[y], UnsameQ@@#&&And@@UnsameQ@@@#&]], {y,facs[n]}],{n,30}] (* Gus Wiseman, Apr 26 2025 *)

Formula

Dirichlet g.f.: Product_{n>=2}(1+1/n^s)^A045778(n).
a(n) = A050346(A025487^(-1)(A046523(n))), where A025487^(-1) is the inverse with A025487^(-1)(A025487(n))=n. - R. J. Mathar, May 25 2017
a(n) = A050346(A101296(n)). - Antti Karttunen, May 25 2017

A296121 Number of twice-factorizations of n with no repeated factorizations.

Original entry on oeis.org

1, 1, 1, 2, 1, 3, 1, 5, 2, 3, 1, 8, 1, 3, 3, 10, 1, 8, 1, 8, 3, 3, 1, 20, 2, 3, 5, 8, 1, 12, 1, 20, 3, 3, 3, 25, 1, 3, 3, 20, 1, 12, 1, 8, 8, 3, 1, 47, 2, 8, 3, 8, 1, 20, 3, 20, 3, 3, 1, 38, 1, 3, 8, 40, 3, 12, 1, 8, 3, 12, 1, 68, 1, 3, 8, 8, 3, 12, 1, 47, 10
Offset: 1

Views

Author

Gus Wiseman, Dec 05 2017

Keywords

Comments

From Robert G. Wilson v, Dec 05 2017: (Start)
a(n) = 1 iff n equals 1 or is a prime;
a(n) = 2 iff n is a prime squared;
a(n) = 3 iff n is a squarefree semiprime;
a(n) = 5 iff n is a prime cube;
a(n) = 8 iff n is of the form p^2*q, etc.
(End)

Examples

			The a(12) = 8 twice-factorizations:
(2)*(2*3), (3)*(2*2), (2*2*3),
(2)*(6), (2*6),
(3)*(4), (3*4),
(12).
		

Crossrefs

Programs

  • Mathematica
    facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
    Table[Length[Join@@Table[Select[Tuples[facs/@p],UnsameQ@@#&],{p,facs[n]}]],{n,100}]

A296131 Number of twice-factorizations of n where the first factorization is strict and the latter factorizations are constant, i.e., type (P,Q,R).

Original entry on oeis.org

1, 1, 1, 2, 1, 2, 1, 4, 2, 2, 1, 4, 1, 2, 2, 5, 1, 4, 1, 4, 2, 2, 1, 8, 2, 2, 4, 4, 1, 5, 1, 9, 2, 2, 2, 9, 1, 2, 2, 8, 1, 5, 1, 4, 4, 2, 1, 13, 2, 4, 2, 4, 1, 8, 2, 8, 2, 2, 1, 11, 1, 2, 4, 16, 2, 5, 1, 4, 2, 5, 1, 18, 1, 2, 4, 4, 2, 5, 1, 13, 5, 2, 1, 11, 2
Offset: 1

Views

Author

Gus Wiseman, Dec 05 2017

Keywords

Comments

a(n) is the number of ways to choose a perfect divisor of each factor in a strict factorization of n.

Examples

			The a(24) = 8 twice-factorizations: (2)*(3)*(2*2), (2)*(3)*(4), (2)*(12), (3)*(2*2*2), (3)*(8), (2*2)*(6), (4)*(6), (24).
		

Crossrefs

Programs

  • Mathematica
    sfs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[sfs[n/d],Min@@#>d&]],{d,Rest[Divisors[n]]}]];
    Table[Sum[Product[DivisorSigma[0,GCD@@FactorInteger[d][[All,2]]],{d,fac}],{fac,sfs[n]}],{n,100}]

Formula

Dirichlet g.f.: Product_{n > 1}(1 + A089723(n)/n^s).

A301751 Number of ways to choose a rooted partition of each part in a strict rooted partition of n.

Original entry on oeis.org

1, 1, 1, 3, 5, 10, 17, 32, 54, 100, 166, 289, 494, 840, 1393, 2400, 3931, 6498, 10861, 17728, 28863, 47557, 77042, 123881, 201172, 322459, 517032, 827993, 1316064, 2084632, 3328204, 5236828, 8247676, 13005652, 20417628, 31934709, 49970815, 77789059, 121144373
Offset: 1

Views

Author

Gus Wiseman, Mar 26 2018

Keywords

Comments

A rooted partition of n is an integer partition of n - 1.

Examples

			The a(7) = 17 rooted twice-partitions:
(5), (41), (32), (311), (221), (2111), (11111),
(4)(), (31)(), (22)(), (211)(), (1111)(), (3)(1), (21)(1), (111)(1),
(2)(1)(), (11)(1)().
		

Crossrefs

Programs

  • Mathematica
    nn=50;
    ser=x*Product[1+PartitionsP[n-1]x^n,{n,nn}];
    Table[SeriesCoefficient[ser,{x,0,n}],{n,nn}]
  • PARI
    seq(n)={Vec(prod(k=1, n-1, 1 + numbpart(k-1)*x^k + O(x^n)))} \\ Andrew Howroyd, Aug 29 2018

Formula

O.g.f.: x * Product_{n > 0} (1 + A000041(n-1) x^n).

A383310 Number of ways to choose a strict multiset partition of a factorization of n into factors > 1.

Original entry on oeis.org

1, 1, 1, 2, 1, 3, 1, 5, 2, 3, 1, 8, 1, 3, 3, 9, 1, 8, 1, 8, 3, 3, 1, 20, 2, 3, 5, 8, 1, 12, 1, 19, 3, 3, 3, 24, 1, 3, 3, 20, 1, 12, 1, 8, 8, 3, 1, 46, 2, 8, 3, 8, 1, 20, 3, 20, 3, 3, 1, 38, 1, 3, 8, 37, 3, 12, 1, 8, 3, 12, 1, 67, 1, 3, 8, 8, 3, 12, 1, 46, 9, 3
Offset: 1

Views

Author

Gus Wiseman, Apr 26 2025

Keywords

Examples

			The a(36) = 24 choices:
  {{2,2,3,3}}  {{2},{2,3,3}}  {{2},{3},{2,3}}
  {{2,2,9}}    {{3},{2,2,3}}  {{2},{3},{6}}
  {{2,3,6}}    {{2,2},{3,3}}
  {{2,18}}     {{2},{2,9}}
  {{3,3,4}}    {{9},{2,2}}
  {{3,12}}     {{2},{3,6}}
  {{4,9}}      {{3},{2,6}}
  {{6,6}}      {{6},{2,3}}
  {{36}}       {{2},{18}}
               {{3},{3,4}}
               {{4},{3,3}}
               {{3},{12}}
               {{4},{9}}
		

Crossrefs

The case of a unique choice (positions of 1) is A008578.
This is the strict case of A050336.
For distinct strict blocks we have A050345.
For integer partitions we have A261049, strict case of A001970.
For strict blocks that are not necessarily distinct we have A296119.
Twice-partitions of this type are counted by A296122.
For normal multisets we have A317776, strict case of A255906.
A001055 counts factorizations, strict A045778.
A050320 counts factorizations into squarefree numbers, distinct A050326.
A281113 counts twice-factorizations, strict A296121, see A296118, A296120.

Programs

  • Mathematica
    facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
    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[y],UnsameQ@@#&]],{y,facs[n]}],{n,30}]

A383311 Number of ways to choose a set multipartition (multiset of sets) of a factorization of n into factors > 1.

Original entry on oeis.org

1, 1, 1, 2, 1, 3, 1, 4, 2, 3, 1, 7, 1, 3, 3, 7, 1, 7, 1, 7, 3, 3, 1, 16, 2, 3, 4, 7, 1, 12, 1, 12, 3, 3, 3, 20, 1, 3, 3, 16, 1, 12, 1, 7, 7, 3, 1, 33, 2, 7, 3, 7, 1, 16, 3, 16, 3, 3, 1, 34, 1, 3, 7, 22, 3, 12, 1, 7, 3, 12, 1, 49, 1, 3, 7, 7, 3, 12, 1, 33, 7, 3
Offset: 1

Views

Author

Gus Wiseman, Apr 28 2025

Keywords

Comments

First differs from A296119 at a(36) = 20, A296119(36) = 21.

Examples

			The a(36) = 20 choices are:
  {{2,3,6}}  {{2,3},{2,3}}  {{2},{3},{2,3}}  {{2},{2},{3},{3}}
  {{2,18}}   {{2},{2,9}}    {{2},{2},{9}}
  {{3,12}}   {{2},{3,6}}    {{2},{3},{6}}
  {{4,9}}    {{3},{2,6}}    {{3},{3},{4}}
  {{36}}     {{6},{2,3}}
             {{2},{18}}
             {{3},{3,4}}
             {{3},{12}}
             {{4},{9}}
             {{6},{6}}
		

Crossrefs

The case of a unique choice (positions of 1) is A008578.
For multisets of multisets we have A050336.
For sets of sets we have A050345.
For normal multisets we have A116540, strong A330783.
For integer partitions instead of factorizations we have A089259.
Twice-partitions of this type are counted by A270995.
For sets of multisets we have A383310 (distinct products A296118).
A001055 counts factorizations, strict A045778.
A050320 counts factorizations into squarefree numbers, distinct A050326.
A281113 counts twice-factorizations, see A294788, A296120, A296121.
A302478 gives MM-numbers of set multipartitions.
A302494 gives MM-numbers of sets of sets.

Programs

  • Mathematica
    facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
    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[y], And@@UnsameQ@@@#&]], {y,facs[n]}],{n,100}]

A306268 Number of ways to choose a strict factorization into squarefree factors of each factor in a strict factorization of n.

Original entry on oeis.org

1, 1, 1, 0, 1, 3, 1, 0, 0, 3, 1, 3, 1, 3, 3, 0, 1, 3, 1, 3, 3, 3, 1, 1, 0, 3, 0, 3, 1, 12, 1, 0, 3, 3, 3, 5, 1, 3, 3, 1, 1, 12, 1, 3, 3, 3, 1, 0, 0, 3, 3, 3, 1, 1, 3, 1, 3, 3, 1, 19, 1, 3, 3, 0, 3, 12, 1, 3, 3, 12, 1, 4, 1, 3, 3, 3, 3, 12, 1, 0, 0, 3, 1, 19, 3
Offset: 1

Views

Author

Gus Wiseman, Feb 01 2019

Keywords

Examples

			The a(216) = 8 factorizations:
   (2*3)*(2*3*6)    (2*6)*(3*6)
  (2)*(2*3)*(3*6)   (6)*(2*3*6)
  (2)*(3)*(2*3*6)  (2)*(6)*(3*6)
  (3)*(2*3)*(2*6)  (3)*(6)*(2*6)
		

Crossrefs

Programs

  • Mathematica
    facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
    Table[Length[Join@@Table[Tuples[Select[facs[#],And[UnsameQ@@#,And@@SquareFreeQ/@#]&]&/@fac],{fac,Select[facs[n],UnsameQ@@#&]}]],{n,60}]
Showing 1-10 of 10 results.