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

A319786 Number of factorizations of n where no two factors are relatively prime.

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, 4, 2, 1, 3, 2, 1, 1, 1, 7, 1, 1, 1, 4, 1, 1, 1, 4, 1, 1, 1, 2, 2, 1, 1, 7, 2, 2, 1, 2, 1, 4, 1, 4, 1, 1, 1, 3, 1, 1, 2, 11, 1, 1, 1, 2, 1, 1, 1, 7, 1, 1, 2, 2, 1, 1, 1, 7, 5, 1, 1, 3, 1, 1, 1, 4, 1, 3, 1, 2, 1, 1, 1, 12, 1, 2, 2, 4, 1, 1, 1, 4, 1
Offset: 1

Views

Author

Gus Wiseman, Sep 27 2018

Keywords

Comments

First differs from A305193 at a(36) = 4, A305193(36) = 5.
a(n) depends only on prime signature of n (cf. A025487). - Antti Karttunen, Nov 07 2018

Examples

			The a(48) = 7 factorizations are (2*2*2*6), (2*2*12), (2*4*6), (2*24), (4*12), (6*8), (48).
		

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[Select[facs[n],!Or@@CoprimeQ@@@Subsets[#,{2}]&]],{n,100}]
  • PARI
    A319786(n, m=n, facs=List([])) = if(1==n, (1!=gcd(Vec(facs))), my(s=0, newfacs); fordiv(n, d, if((d>1)&&(d<=m), newfacs = List(facs); listput(newfacs,d); s += A319786(n/d, d, newfacs))); (s)); \\ Antti Karttunen, Nov 07 2018

Extensions

More terms from Antti Karttunen, Nov 07 2018

A319787 Number of intersecting multiset partitions of normal multisets of size n.

Original entry on oeis.org

1, 1, 3, 8, 27, 95, 373, 1532, 6724
Offset: 0

Views

Author

Gus Wiseman, Sep 27 2018

Keywords

Comments

A multiset is normal if it spans an initial interval of positive integers.
A multiset partition is intersecting iff no two parts are disjoint.

Examples

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

Crossrefs

A319789 Number of intersecting multiset partitions of strongly normal multisets of size n.

Original entry on oeis.org

1, 1, 3, 6, 17, 40, 122, 330, 1032
Offset: 0

Views

Author

Gus Wiseman, Sep 27 2018

Keywords

Comments

A multiset is normal if it spans an initial interval of positive integers, and strongly normal if in addition its multiplicities are weakly decreasing. A multiset partition is intersecting iff no two parts are disjoint.

Examples

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

Crossrefs

A319784 Number of non-isomorphic intersecting T_0 set systems of weight n.

Original entry on oeis.org

1, 1, 0, 1, 1, 1, 3, 5, 7, 14, 25
Offset: 0

Views

Author

Gus Wiseman, Sep 27 2018

Keywords

Comments

A multiset partition is intersecting if no two parts are disjoint. The weight of a multiset partition is the sum of sizes of its parts. The dual of a multiset partition has, for each vertex, one part consisting of the indices (or positions) of the parts containing that vertex, counted with multiplicity. For example, the dual of {{1,2},{2,2}} is {{1},{1,2,2}}. The T_0 condition means the dual is strict.

Examples

			Non-isomorphic representatives of the a(1) = 1 through a(8) = 7 multiset partitions:
1: {{1}}
3: {{2},{1,2}}
4: {{1,3},{2,3}}
5: {{3},{1,3},{2,3}}
6: {{3},{2,3},{1,2,3}}
   {{1,2},{1,3},{2,3}}
   {{1,4},{2,4},{3,4}}
7: {{4},{1,3,4},{2,3,4}}
   {{1,3},{1,4},{2,3,4}}
   {{1,3},{2,3},{1,2,3}}
   {{1,4},{3,4},{2,3,4}}
   {{4},{1,4},{2,4},{3,4}}
8: {{1,5},{2,4,5},{3,4,5}}
   {{2,4},{3,4},{1,2,3,4}}
   {{2,4},{1,2,5},{3,4,5}}
   {{2,4},{1,3,4},{2,3,4}}
   {{3},{1,3},{2,3},{1,2,3}}
   {{4},{1,4},{3,4},{2,3,4}}
   {{1,5},{2,5},{3,5},{4,5}}
		

Crossrefs

Showing 1-4 of 4 results.