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

A330232 MM-numbers of achiral multisets of multisets.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 36, 38, 40, 41, 42, 43, 44, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 62, 63, 64, 66, 67, 68, 72, 73, 76, 79, 80
Offset: 1

Views

Author

Gus Wiseman, Dec 08 2019

Keywords

Comments

First differs from A322554 in lacking 141.
A multiset of multisets is achiral if it is not changed by any permutation of the vertices.
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 of non-achiral multisets of multisets (the complement of this sequence) together with their MM-numbers begins:
  35: {{2},{1,1}}
  37: {{1,1,2}}
  39: {{1},{1,2}}
  45: {{1},{1},{2}}
  61: {{1,2,2}}
  65: {{2},{1,2}}
  69: {{1},{2,2}}
  70: {{},{2},{1,1}}
  71: {{1,1,3}}
  74: {{},{1,1,2}}
  75: {{1},{2},{2}}
  77: {{1,1},{3}}
  78: {{},{1},{1,2}}
  87: {{1},{1,3}}
  89: {{1,1,1,2}}
  90: {{},{1},{1},{2}}

Crossrefs

The fully-chiral version is A330236.
Achiral set-systems are counted by A083323.
MG-numbers of planted achiral trees are A214577.
MM-weight is A302242.
MM-numbers of costrict (or T_0) multisets of multisets are A322847.
BII-numbers of achiral set-systems are A330217.
Non-isomorphic achiral multiset partitions are A330223.
Achiral integer partitions are counted by A330224.
Achiral factorizations are A330234.
Cf. A001055, A003238, A007716, A056239, A112798, A303975, A330098, A330230, A330233.

Programs

  • Mathematica
    primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
graprms[m_]:=Union[Table[Sort[Sort/@(m/.Apply[Rule,Table[{p[[i]],i},{i,Length[p]}],{1}])],{p,Permutations[Union@@m]}]]
Select[Range[100],Length[graprms[primeMS/@primeMS[#]]]==1&]

A326784 BII-numbers of regular set-systems.

Original entry on oeis.org

0, 1, 2, 3, 4, 7, 8, 9, 10, 11, 12, 16, 18, 25, 30, 32, 33, 42, 45, 51, 52, 63, 64, 75, 76, 82, 94, 97, 109, 115, 116, 127, 128, 129, 130, 131, 132, 136, 137, 138, 139, 140, 144, 146, 160, 161, 192, 256, 258, 264, 266, 288, 385, 390, 408, 427, 428, 434, 458
Offset: 1

Views

Author

Gus Wiseman, Jul 25 2019

Keywords

Comments

A binary index of n is any position of a 1 in its reversed binary expansion. The binary indices of n are row n of A048793. We define the set-system with BII-number n to be obtained by taking the binary indices of each binary index of n. A set-system is regular if all vertices appear the same number of times.

Examples

			The sequence of all regular set-systems together with their BII-numbers begins:
   0: {}
   1: {{1}}
   2: {{2}}
   3: {{1},{2}}
   4: {{1,2}}
   7: {{1},{2},{1,2}}
   8: {{3}}
   9: {{1},{3}}
  10: {{2},{3}}
  11: {{1},{2},{3}}
  12: {{1,2},{3}}
  16: {{1,3}}
  18: {{2},{1,3}}
  25: {{1},{3},{1,3}}
  30: {{2},{1,2},{3},{1,3}}
  32: {{2,3}}
  33: {{1},{2,3}}
  42: {{2},{3},{2,3}}
  45: {{1},{1,2},{3},{2,3}}
  51: {{1},{2},{1,3},{2,3}}

Crossrefs

Cf. A000120, A001511, A005176, A029931, A048793, A070939, A295193, A322554, A326031, A326701, A326783 (uniform), A326785 (uniform regular).

Programs

  • Mathematica
    bpe[n_]:=Join@@Position[Reverse[IntegerDigits[n,2]],1];
Select[Range[0,100],SameQ@@Length/@Split[Sort[Join@@bpe/@bpe[#]]]&]

A321698 MM-numbers of uniform regular multiset multisystems. Numbers whose prime indices all have the same number of prime factors counted with multiplicity, and such that the product of the same prime indices is a power of a squarefree number.

Original entry on oeis.org

1, 2, 3, 4, 5, 7, 8, 9, 11, 13, 15, 16, 17, 19, 23, 25, 27, 29, 31, 32, 33, 41, 43, 47, 49, 51, 53, 55, 59, 64, 67, 73, 79, 81, 83, 85, 93, 97, 101, 103, 109, 113, 121, 123, 125, 127, 128, 131, 137, 139, 149, 151, 155, 157, 161, 163, 165, 167, 169, 177, 179
Offset: 1

Views

Author

Gus Wiseman, Dec 27 2018

Keywords

Comments

A multiset multisystem is a finite multiset of finite multisets. 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 multisystem 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 multisystem with MM-number 78 is {{},{1},{1,2}}.
A multiset multisystem is uniform if all parts have the same size, and regular if all vertices appear the same number of times. For example, {{1,1},{2,3},{2,3}} is uniform and regular, so its MM-number 15463 belongs to the sequence.

Examples

			The sequence of all uniform regular multiset multisystems, together with their MM-numbers, begins:
   1: {}                   33: {{1},{3}}            109: {{10}}
   2: {{}}                 41: {{6}}                113: {{1,2,3}}
   3: {{1}}                43: {{1,4}}              121: {{3},{3}}
   4: {{},{}}              47: {{2,3}}              123: {{1},{6}}
   5: {{2}}                49: {{1,1},{1,1}}        125: {{2},{2},{2}}
   7: {{1,1}}              51: {{1},{4}}            127: {{11}}
   8: {{},{},{}}           53: {{1,1,1,1}}          128: {{},{},{},{},{},{}}
   9: {{1},{1}}            55: {{2},{3}}            131: {{1,1,1,1,1}}
  11: {{3}}                59: {{7}}                137: {{2,5}}
  13: {{1,2}}              64: {{},{},{},{},{},{}}  139: {{1,7}}
  15: {{1},{2}}            67: {{8}}                149: {{3,4}}
  16: {{},{},{},{}}        73: {{2,4}}              151: {{1,1,2,2}}
  17: {{4}}                79: {{1,5}}              155: {{2},{5}}
  19: {{1,1,1}}            81: {{1},{1},{1},{1}}    157: {{12}}
  23: {{2,2}}              83: {{9}}                161: {{1,1},{2,2}}
  25: {{2},{2}}            85: {{2},{4}}            163: {{1,8}}
  27: {{1},{1},{1}}        93: {{1},{5}}            165: {{1},{2},{3}}
  29: {{1,3}}              97: {{3,3}}              167: {{2,6}}
  31: {{5}}               101: {{1,6}}              169: {{1,2},{1,2}}
  32: {{},{},{},{},{}}    103: {{2,2,2}}            177: {{1},{7}}

Crossrefs

Cf. A005176, A007016, A112798, A271103, A283877, A299353, A302242, A306017, A319056, A319189, A320324, A321699, A321717, A322554, A322703, A322833.

Programs

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

A321699 MM-numbers of uniform regular multiset multisystems spanning an initial interval of positive integers.

Original entry on oeis.org

1, 2, 3, 4, 7, 8, 9, 13, 15, 16, 19, 27, 32, 49, 53, 64, 81, 113, 128, 131, 151, 161, 165, 169, 225, 243, 256, 311, 343, 361, 512, 719, 729, 1024, 1291, 1321, 1619, 1937, 1957, 2021, 2048, 2093, 2117, 2187, 2197, 2257, 2401, 2805, 2809, 3375, 3671, 4096, 6561
Offset: 1

Views

Author

Gus Wiseman, Dec 27 2018

Keywords

Comments

A multiset multisystem is a finite multiset of finite multisets. 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 multisystem 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 multisystem with MM-number 78 is {{},{1},{1,2}}.
A multiset multisystem is uniform if all parts have the same size, and regular if all vertices appear the same number of times. For example, {{1,1},{2,3},{2,3}} is uniform, regular, and spans an initial interval of positive integers, so its MM-number 15463 belongs to the sequence.

Examples

			The sequence of all uniform regular multiset multisystems spanning an initial interval of positive integers, together with their MM-numbers, begins:
    1: {}
    2: {{}}
    3: {{1}}
    4: {{},{}}
    7: {{1,1}}
    8: {{},{},{}}
    9: {{1},{1}}
   13: {{1,2}}
   15: {{1},{2}}
   16: {{},{},{},{}}
   19: {{1,1,1}}
   27: {{1},{1},{1}}
   32: {{},{},{},{},{}}
   49: {{1,1},{1,1}}
   53: {{1,1,1,1}}
   64: {{},{},{},{},{},{}}
   81: {{1},{1},{1},{1}}
  113: {{1,2,3}}
  128: {{},{},{},{},{},{},{}}
  131: {{1,1,1,1,1}}
  151: {{1,1,2,2}}
  161: {{1,1},{2,2}}
  165: {{1},{2},{3}}
  169: {{1,2},{1,2}}
  225: {{1},{1},{2},{2}}
  243: {{1},{1},{1},{1},{1}}
  256: {{},{},{},{},{},{},{},{}}
  311: {{1,1,1,1,1,1}}
  343: {{1,1},{1,1},{1,1}}
  361: {{1,1,1},{1,1,1}}
  512: {{},{},{},{},{},{},{},{},{}}
  719: {{1,1,1,1,1,1,1}}
  729: {{1},{1},{1},{1},{1},{1}}

Crossrefs

Cf. A005176, A007016, A112798, A302242, A306021, A319056, A319189, A320324, A321698, A321717, A322554, A322703, A322833.

Programs

  • Mathematica
    primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
normQ[sys_]:=Or[Length[sys]==0,Union@@sys==Range[Max@@Max@@sys]];
Select[Range[1000],And[normQ[primeMS/@primeMS[#]],SameQ@@PrimeOmega/@primeMS[#],SameQ@@Last/@FactorInteger[Times@@primeMS[#]]]&]

A322703 Squarefree MM-numbers of strict uniform regular multiset systems spanning an initial interval of positive integers.

Original entry on oeis.org

1, 2, 3, 7, 13, 15, 19, 53, 113, 131, 151, 161, 165, 311, 719, 1291, 1321, 1619, 1937, 1957, 2021, 2093, 2117, 2257, 2805, 3671, 6997, 8161, 10627, 13969, 13987, 14023, 15617, 17719, 17863, 20443, 22207, 22339, 38873, 79349, 84017, 86955, 180503, 202133
Offset: 1

Views

Author

Gus Wiseman, Dec 27 2018

Keywords

Comments

A multiset multisystem is a finite multiset of finite multisets. 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 multisystem 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 multisystem with MM-number 78 is {{},{1},{1,2}}.
A multiset multisystem is uniform if all parts have the same size, regular if all vertices appear the same number of times, and strict if there are no repeated parts. For example, {{1,1},{2,3},{2,3}} is uniform and regular but not strict, so its MM-number 15463 does not belong to the sequence. Note that the parts of parts such as {1,1} do not have to be distinct, only the multiset of parts.

Examples

			The sequence of all strict uniform regular multiset multisystems spanning an initial interval of positive integers, together with their MM-numbers, begins:
      1: {}
      2: {{}}
      3: {{1}}
      7: {{1,1}}
     13: {{1,2}}
     15: {{1},{2}}
     19: {{1,1,1}}
     53: {{1,1,1,1}}
    113: {{1,2,3}}
    131: {{1,1,1,1,1}}
    151: {{1,1,2,2}}
    161: {{1,1},{2,2}}
    165: {{1},{2},{3}}
    311: {{1,1,1,1,1,1}}
    719: {{1,1,1,1,1,1,1}}
   1291: {{1,2,3,4}}
   1321: {{1,1,1,2,2,2}}
   1619: {{1,1,1,1,1,1,1,1}}
   1937: {{1,2},{3,4}}
   1957: {{1,1,1},{2,2,2}}
   2021: {{1,4},{2,3}}
   2093: {{1,1},{1,2},{2,2}}
   2117: {{1,3},{2,4}}
   2257: {{1,1,2},{1,2,2}}
   2805: {{1},{2},{3},{4}}
   3671: {{1,1,1,1,1,1,1,1,1}}
   6997: {{1,1,2,2,3,3}}
   8161: {{1,1,1,1,1,1,1,1,1,1}}
  10627: {{1,1,1,1,2,2,2,2}}
  13969: {{1,2,2},{1,3,3}}
  13987: {{1,1,3},{2,2,3}}
  14023: {{1,1,2},{2,3,3}}
  15617: {{1,1},{2,2},{3,3}}
  17719: {{1,2},{1,3},{2,3}}
  17863: {{1,1,1,1,1,1,1,1,1,1,1}}

Crossrefs

Cf. A005117, A007016, A112798, A302242, A306017, A306021, A319056, A319189, A319190, A320324, A321698, A321699, A322554, A322833.

Programs

  • Mathematica
    primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
normQ[sys_]:=Or[Length[sys]==0,Union@@sys==Range[Max@@Max@@sys]];
Select[Range[1000],And[SquareFreeQ[#],normQ[primeMS/@primeMS[#]],SameQ@@PrimeOmega/@primeMS[#],SameQ@@Last/@FactorInteger[Times@@primeMS[#]]]&]

A322833 Squarefree MM-numbers of strict uniform regular multiset multisystems. Squarefree numbers whose prime indices all have the same number of prime factors counted with multiplicity, and such that the product of the same prime indices is a power of a squarefree number.

Original entry on oeis.org

1, 2, 3, 5, 7, 11, 13, 15, 17, 19, 23, 29, 31, 33, 41, 43, 47, 51, 53, 55, 59, 67, 73, 79, 83, 85, 93, 97, 101, 103, 109, 113, 123, 127, 131, 137, 139, 149, 151, 155, 157, 161, 163, 165, 167, 177, 179, 181, 187, 191, 199, 201, 205, 211, 227, 233, 241, 249, 255
Offset: 1

Views

Author

Gus Wiseman, Dec 27 2018

Keywords

Comments

A multiset multisystem is a finite multiset of finite multisets. 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 multisystem 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 multisystem with MM-number 78 is {{},{1},{1,2}}.
A multiset multisystem is uniform if all parts have the same size, regular if all vertices appear the same number of times, and strict if there are no repeated parts. For example, {{1,2,2},{1,3,3}} is uniform, regular, and strict, so its MM-number 13969 belongs to the sequence. Note that the parts of parts such as {1,2,2} do not have to be distinct, only the multiset of parts.

Examples

			The sequence of all strict uniform regular multiset multisystems, together with their MM-numbers, begins:
   1: {}           59: {{7}}         157: {{12}}        269: {{2,8}}
   2: {{}}         67: {{8}}         161: {{1,1},{2,2}} 271: {{1,10}}
   3: {{1}}        73: {{2,4}}       163: {{1,8}}       277: {{17}}
   5: {{2}}        79: {{1,5}}       165: {{1},{2},{3}} 283: {{18}}
   7: {{1,1}}      83: {{9}}         167: {{2,6}}       293: {{1,11}}
  11: {{3}}        85: {{2},{4}}     177: {{1},{7}}     295: {{2},{7}}
  13: {{1,2}}      93: {{1},{5}}     179: {{13}}        311: {{1,1,1,1,1,1}}
  15: {{1},{2}}    97: {{3,3}}       181: {{1,2,4}}     313: {{3,6}}
  17: {{4}}       101: {{1,6}}       187: {{3},{4}}     317: {{1,2,5}}
  19: {{1,1,1}}   103: {{2,2,2}}     191: {{14}}        327: {{1},{10}}
  23: {{2,2}}     109: {{10}}        199: {{1,9}}       331: {{19}}
  29: {{1,3}}     113: {{1,2,3}}     201: {{1},{8}}     335: {{2},{8}}
  31: {{5}}       123: {{1},{6}}     205: {{2},{6}}     341: {{3},{5}}
  33: {{1},{3}}   127: {{11}}        211: {{15}}        347: {{2,9}}
  41: {{6}}       131: {{1,1,1,1,1}} 227: {{4,4}}       349: {{1,3,4}}
  43: {{1,4}}     137: {{2,5}}       233: {{2,7}}       353: {{20}}
  47: {{2,3}}     139: {{1,7}}       241: {{16}}        367: {{21}}
  51: {{1},{4}}   149: {{3,4}}       249: {{1},{9}}     373: {{1,12}}
  53: {{1,1,1,1}} 151: {{1,1,2,2}}   255: {{1},{2},{4}} 381: {{1},{11}}
  55: {{2},{3}}   155: {{2},{5}}     257: {{3,5}}       389: {{4,5}}

Crossrefs

Cf. A005117, A007016, A112798, A302242, A306017, A319056, A319189, A320324, A321698, A321699, A322554, A322703.

Programs

  • Mathematica
    primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],And[SquareFreeQ[#],SameQ@@PrimeOmega/@primeMS[#],SameQ@@Last/@FactorInteger[Times@@primeMS[#]]]&]
Showing 1-6 of 6 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.