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.

A328514 MM-numbers of connected sets of sets.

Original entry on oeis.org

1, 2, 3, 5, 11, 13, 17, 29, 31, 39, 41, 43, 47, 59, 65, 67, 73, 79, 83, 87, 101, 109, 113, 127, 129, 137, 139, 149, 157, 163, 167, 179, 181, 191, 195, 199, 211, 233, 235, 237, 241, 257, 269, 271, 277, 283, 293, 303, 313, 317, 319, 331, 339, 347, 349, 353, 365
Offset: 1

Views

Author

Gus Wiseman, Oct 20 2019

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. The multiset of multisets with MM-number n is formed by taking the multiset of prime indices of each part of the multiset of prime indices of 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 sequence all connected set of sets together with their MM-numbers begins:
   1: {}
   2: {{}}
   3: {{1}}
   5: {{2}}
  11: {{3}}
  13: {{1,2}}
  17: {{4}}
  29: {{1,3}}
  31: {{5}}
  39: {{1},{1,2}}
  41: {{6}}
  43: {{1,4}}
  47: {{2,3}}
  59: {{7}}
  65: {{2},{1,2}}
  67: {{8}}
  73: {{2,4}}
  79: {{1,5}}
  83: {{9}}
  87: {{1},{1,3}}

Crossrefs

The not-necessarily-connected case is A302494.
BII-numbers of connected set-systems are A326749.
MM-numbers of connected sets of multisets are A328513.
Cf. A005117, A007947, A056239, A112798, A286518, A302242, A302569, A304714, A305078, A305079, A327398.

Programs

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

Formula

Intersection of A302494 and A305078.

A328513 Connected squarefree numbers.

Original entry on oeis.org

1, 2, 3, 5, 7, 11, 13, 17, 19, 21, 23, 29, 31, 37, 39, 41, 43, 47, 53, 57, 59, 61, 65, 67, 71, 73, 79, 83, 87, 89, 91, 97, 101, 103, 107, 109, 111, 113, 115, 127, 129, 131, 133, 137, 139, 149, 151, 157, 159, 163, 167, 173, 179, 181, 183, 185, 191, 193, 195
Offset: 1

Views

Author

Gus Wiseman, Oct 20 2019

Keywords

Comments

First differs from A318718 and A318719 in having 195 = prime(2) * prime(3) * prime(6).
A squarefree number with prime factorization prime(m_1) * ... * prime(m_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.

Examples

			The sequence of all connected sets of multisets together with their MM-numbers (A302242) begins:
   1: {}
   2: {{}}
   3: {{1}}
   5: {{2}}
   7: {{1,1}}
  11: {{3}}
  13: {{1,2}}
  17: {{4}}
  19: {{1,1,1}}
  21: {{1},{1,1}}
  23: {{2,2}}
  29: {{1,3}}
  31: {{5}}
  37: {{1,1,2}}
  39: {{1},{1,2}}
  41: {{6}}
  43: {{1,4}}
  47: {{2,3}}
  53: {{1,1,1,1}}
  57: {{1},{1,1,1}}

Links

Crossrefs

A subset of A005117.
These are Heinz numbers of the partitions counted by A304714.
The maximum connected squarefree divisor of n is A327398(n).
Cf. A056239, A112798, A286518, A302242, A304716, A305078, A305079, A327076, A328514.

Programs

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

Formula

Intersection of A005117 and A305078.

A329629 Products of distinct odd primes of squarefree index.

Original entry on oeis.org

1, 3, 5, 11, 13, 15, 17, 29, 31, 33, 39, 41, 43, 47, 51, 55, 59, 65, 67, 73, 79, 83, 85, 87, 93, 101, 109, 113, 123, 127, 129, 137, 139, 141, 143, 145, 149, 155, 157, 163, 165, 167, 177, 179, 181, 187, 191, 195, 199, 201, 205, 211, 215, 219, 221, 233, 235, 237
Offset: 1

Views

Author

Gus Wiseman, Nov 18 2019

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. The multiset of multisets with MM-number n is formed by taking the multiset of prime indices of each part of the multiset of prime indices of 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}}. This sequence lists all MM-numbers of set-systems (sets of nonempty sets).

Examples

			The sequence of terms together with their corresponding set-systems begins:
   1: {}
   3: {{1}}
   5: {{2}}
  11: {{3}}
  13: {{1,2}}
  15: {{1},{2}}
  17: {{4}}
  29: {{1,3}}
  31: {{5}}
  33: {{1},{3}}
  39: {{1},{1,2}}
  41: {{6}}
  43: {{1,4}}
  47: {{2,3}}
  51: {{1},{4}}
  55: {{2},{3}}
  59: {{7}}
  65: {{2},{1,2}}
  67: {{8}}
  73: {{2,4}}

Crossrefs

Allowing even terms (systems with empty edges) gives A302494.
Cf. A005117, A056239, A112798, A302242, A327398, A328514, A329557, A329630.
Classes of MM-numbers: A305078 (connected), A316476 (antichains), A318991 (chains), A320456 (covers), A329559 (clutters).

Programs

  • Mathematica
    Select[Range[100],OddQ[#]&&SquareFreeQ[#]&&And@@SquareFreeQ/@PrimePi/@First/@If[#==1,{},FactorInteger[#]]&]

A327389 Maximum divisor of n that is prime or whose prime indices are pairwise coprime.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 3, 10, 11, 12, 13, 14, 15, 16, 17, 6, 19, 20, 7, 22, 23, 24, 5, 26, 3, 28, 29, 30, 31, 32, 33, 34, 35, 12, 37, 38, 13, 40, 41, 14, 43, 44, 15, 46, 47, 48, 7, 10, 51, 52, 53, 6, 55, 56, 19, 58, 59, 60, 61, 62, 7, 64, 13, 66, 67, 68, 69
Offset: 1

Views

Author

Gus Wiseman, Sep 15 2019

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.

Links

Crossrefs

See link for additional cross-references.
Cf. A000005, A000837, A006530, A056239, A112798, A327398.

Programs

  • Mathematica
    primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Table[Max[Select[Divisors[n],UnsameQ@@Sort[Join@@Union/@primeMS/@primeMS[#]]&]],{n,100}]

Formula

If n is in A302569, then a(n) = n.
Showing 1-4 of 4 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.