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

A327076 Maximum divisor of n that is 1 or connected.

Original entry on oeis.org

1, 2, 3, 2, 5, 3, 7, 2, 9, 5, 11, 3, 13, 7, 5, 2, 17, 9, 19, 5, 21, 11, 23, 3, 25, 13, 27, 7, 29, 5, 31, 2, 11, 17, 7, 9, 37, 19, 39, 5, 41, 21, 43, 11, 9, 23, 47, 3, 49, 25, 17, 13, 53, 27, 11, 7, 57, 29, 59, 5, 61, 31, 63, 2, 65, 11, 67, 17, 23, 7, 71, 9, 73
Offset: 1

Views

Author

Gus Wiseman, Sep 05 2019

Keywords

Comments

A number n with prime factorization n = prime(m_1)^s_1 * ... * prime(m_k)^s_k is connected if the simple labeled graph with vertex set {m_1,...,m_k} and edges between any two vertices with a common divisor greater than 1 is connected. Connected numbers are listed in A305078, which is the union of this sequence without 1.
Also the maximum MM-number (A302242) of a connected subset of the multiset of multisets with MM-number n.

Links

Crossrefs

Positions of prime numbers are A302569.
Connected numbers are A305078.
Cf. A007947, A056239, A112798, A286518, A302242, A304716, A305079, A322338, A322390, A322391.

Programs

  • Mathematica
    primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
zsm[s_]:=With[{c=Select[Subsets[Range[Length[s]],{2}],GCD@@s[[#]]>1&]},If[c=={},s,zsm[Sort[Append[Delete[s,List/@c[[1]]],LCM@@s[[c[[1]]]]]]]]];
Table[Max[Select[Divisors[n],Length[zsm[primeMS[#]]]<=1&]],{n,30}]

Formula

If n is in A305078, then a(n) = n.

A322390 Number of integer partitions of n with vertex-connectivity 1.

Original entry on oeis.org

0, 1, 1, 2, 1, 3, 1, 4, 2, 5, 1, 8, 1, 7, 3, 11, 1, 14, 2, 18, 7, 21, 6, 35, 14, 43, 28, 65, 42, 96, 70, 141, 120, 205, 187, 315, 286, 445, 445, 657
Offset: 1

Views

Author

Gus Wiseman, Dec 05 2018

Keywords

Comments

The vertex-connectivity of an integer partition is the minimum number of primes that must be divided out (and any parts then equal to 1 removed) so that the prime factorizations of the remaining parts form a disconnected (or empty) hypergraph.

Examples

			The a(14) = 7 integer partitions are (842), (8222), (77), (4442), (44222), (422222), (2222222).
The a(18) = 14 integer partitions:
  (9,9), (16,2),
  (8,8,2), (10,6,2),
  (8,4,4,2), (9,3,3,3),
  (4,4,4,4,2), (8,4,2,2,2),
  (3,3,3,3,3,3), (4,4,4,2,2,2), (8,2,2,2,2,2),
  (4,4,2,2,2,2,2),
  (4,2,2,2,2,2,2,2),
  (2,2,2,2,2,2,2,2,2).

Links

Crossrefs

Cf. A013922, A054921, A095983, A304714, A304716, A305078, A305079, A322335, A322338, A322387, A322389, A322391.

Programs

  • Mathematica
    primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
csm[s_]:=With[{c=Select[Tuples[Range[Length[s]],2],And[OrderedQ[#],UnsameQ@@#,Length[Intersection@@s[[#]]]>0]&]},If[c=={},s,csm[Sort[Append[Delete[s,List/@c[[1]]],Union@@s[[c[[1]]]]]]]]];
vertConn[y_]:=If[Length[csm[primeMS/@y]]!=1,0,Min@@Length/@Select[Subsets[Union@@primeMS/@y],Function[del,Length[csm[DeleteCases[DeleteCases[primeMS/@y,Alternatives@@del,{2}],{}]]]!=1]]];
Table[Length[Select[IntegerPartitions[n],vertConn[#]==1&]],{n,20}]

A322394 Heinz numbers of integer partitions with edge-connectivity 1.

Original entry on oeis.org

2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97, 101, 103, 107, 109, 113, 127, 131, 137, 139, 149, 151, 157, 163, 167, 173, 179, 181, 191, 193, 195, 197, 199, 211, 223, 227, 229, 233, 239, 241, 251, 257, 263, 269
Offset: 1

Views

Author

Gus Wiseman, Dec 06 2018

Keywords

Comments

The first nonprime term is 195, which is the Heinz number of (6,3,2).
The Heinz number of an integer partition (y_1, ..., y_k) is prime(y_1) * ... * prime(y_k).
An integer partition has edge-connectivity 1 if the prime factorizations of the parts form a connected hypergraph that can be disconnected (or made empty) by removing a single part.

Links

Crossrefs

Cf. A007718, A013922, A054921, A056239, A095983, A112798, A218970, A304716, A305078, A305079, A322336, A322391, A322393.

Programs

  • Mathematica
    primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
csm[s_]:=With[{c=Select[Tuples[Range[Length[s]],2],And[OrderedQ[#],UnsameQ@@#,Length[Intersection@@s[[#]]]>0]&]},If[c=={},s,csm[Sort[Append[Delete[s,List/@c[[1]]],Union@@s[[c[[1]]]]]]]]];
edgeConn[y_]:=If[Length[csm[primeMS/@y]]!=1,0,Length[y]-Max@@Length/@Select[Union[Subsets[y]],Length[csm[primeMS/@#]]!=1&]];
Select[Range[100],edgeConn[primeMS[#]]==1&]

A322393 Regular triangle read by rows where T(n,k) is the number of integer partitions of n with edge-connectivity k, for 0 <= k <= n.

Original entry on oeis.org

1, 0, 1, 1, 1, 0, 2, 1, 0, 0, 3, 1, 1, 0, 0, 6, 1, 0, 0, 0, 0, 7, 1, 2, 1, 0, 0, 0, 14, 1, 0, 0, 0, 0, 0, 0, 17, 1, 2, 1, 1, 0, 0, 0, 0, 27, 1, 1, 1, 0, 0, 0, 0, 0, 0, 34, 1, 3, 2, 1, 1, 0, 0, 0, 0, 0, 54, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 63, 1, 4, 4, 3, 1, 1
Offset: 0

Views

Author

Gus Wiseman, Dec 06 2018

Keywords

Comments

The edge connectivity of an integer partition is the minimum number of parts that must be removed so that the prime factorizations of the remaining parts form a disconnected (or empty) hypergraph.

Examples

			Triangle begins:
   1
   0  1
   1  1  0
   2  1  0  0
   3  1  1  0  0
   6  1  0  0  0  0
   7  1  2  1  0  0  0
  14  1  0  0  0  0  0  0
  17  1  2  1  1  0  0  0  0
  27  1  1  1  0  0  0  0  0  0
  34  1  3  2  1  1  0  0  0  0  0
  54  2  0  0  0  0  0  0  0  0  0  0
  63  1  4  4  3  1  1  0  0  0  0  0  0
Row 6 {7, 1, 2, 1} counts the following integer partitions:
  (51)      (6)  (33)  (222)
  (321)          (42)
  (411)
  (2211)
  (3111)
  (21111)
  (111111)

Links

Crossrefs

Row sums are A000041. First column is A322367. Second column is A322391.
Cf. A013922, A054921, A095983, A304716, A305078, A305079, A322335, A322336, A322337, A322338, A322387.

Programs

  • Mathematica
    primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
csm[s_]:=With[{c=Select[Tuples[Range[Length[s]],2],And[OrderedQ[#],UnsameQ@@#,Length[Intersection@@s[[#]]]>0]&]},If[c=={},s,csm[Sort[Append[Delete[s,List/@c[[1]]],Union@@s[[c[[1]]]]]]]]];
edgeConn[y_]:=Length[y]-Max@@Length/@Select[Union[Subsets[y]],Length[csm[primeMS/@#]]!=1&]
Table[Length[Select[IntegerPartitions[n],edgeConn[#]==k&]],{n,10},{k,0,n}]

A322401 Number of strict integer partitions of n with edge-connectivity 1.

Original entry on oeis.org

0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 2, 1, 2, 1, 5, 1, 6, 2, 7, 2, 13, 3, 14, 6, 18, 8, 28, 11, 33, 19, 38, 22, 54, 28, 71, 44, 83, 53, 110, 68, 134, 98, 154, 120, 209, 145, 253, 191, 302, 244, 385, 299, 459, 390, 553, 483, 693, 578
Offset: 0

Views

Author

Gus Wiseman, Dec 06 2018

Keywords

Comments

The edge-connectivity of an integer partition is the minimum number of parts that must be removed so that the prime factorizations of the remaining parts form a disconnected (or empty) hypergraph.

Examples

			The a(30) = 11 strict integer partitions with edge-connectivity 1:
  (30),
  (10,9,6,5), (12,10,5,3), (14,7,6,3), (15,6,5,4), (15,10,3,2),
  (9,8,6,4,3), (10,9,6,3,2), (12,9,4,3,2), (15,6,4,3,2),
  (10,6,5,4,3,2).

Links

Crossrefs

Cf. A095983, A218970, A304714, A304716, A305078, A305079, A322335, A322337, A322387, A322390, A322391, A322393, A322394, A322400.

Programs

  • Mathematica
    primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
csm[s_]:=With[{c=Select[Tuples[Range[Length[s]],2],And[OrderedQ[#],UnsameQ@@#,Length[Intersection@@s[[#]]]>0]&]},If[c=={},s,csm[Sort[Append[Delete[s,List/@c[[1]]],Union@@s[[c[[1]]]]]]]]];
edgeConn[y_]:=If[Length[csm[primeMS/@y]]!=1,0,Length[y]-Max@@Length/@Select[Union[Subsets[y]],Length[csm[primeMS/@#]]!=1&]];
Table[Length[Select[IntegerPartitions[n],UnsameQ@@#&&edgeConn[#]==1&]],{n,30}]
Showing 1-5 of 5 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.