A320533 -id:A320533 - cp's OEIS frontend

A320628 Products of primes of nonprime index.

1, 2, 4, 7, 8, 13, 14, 16, 19, 23, 26, 28, 29, 32, 37, 38, 43, 46, 47, 49, 52, 53, 56, 58, 61, 64, 71, 73, 74, 76, 79, 86, 89, 91, 92, 94, 97, 98, 101, 103, 104, 106, 107, 112, 113, 116, 122, 128, 131, 133, 137, 139, 142, 146, 148, 149, 151, 152, 158, 161, 163

Offset: 1

Gus Wiseman, Oct 18 2018

nonn

The index of a prime number n is the number m such that n is the m-th prime.

The asymptotic density of this sequence is Product_{p in A006450} (1 - 1/p) = 1/(Sum_{n>=1} 1/A076610(n)) < 1/3. - Amiram Eldar, Feb 02 2021

			The sequence of terms begins:
   1 = 1
   2 = prime(1)
   4 = prime(1)^2
   7 = prime(4)
   8 = prime(1)^3
  13 = prime(6)
  14 = prime(1)*prime(4)
  16 = prime(1)^4
  19 = prime(8)
  23 = prime(9)
  26 = prime(1)*prime(6)
  28 = prime(1)^2*prime(4)
  29 = prime(10)
  32 = prime(1)^5
  37 = prime(12)
  38 = prime(1)*prime(8)
  43 = prime(14)
  46 = prime(1)*prime(9)
  47 = prime(15)
  49 = prime(4)^2
  52 = prime(1)^2*prime(6)
  53 = prime(16)
  56 = prime(1)^3*prime(4)
  58 = prime(1)*prime(10)
  61 = prime(18)
  64 = prime(1)^6
  71 = prime(20)
  73 = prime(21)
  74 = prime(1)*prime(12)
  76 = prime(1)^2*prime(8)
  79 = prime(22)
  86 = prime(1)*prime(14)
  89 = prime(24)
  91 = prime(4)*prime(6)
  92 = prime(1)^2*prime(9)
  94 = prime(1)*prime(15)
  97 = prime(25)
  98 = prime(1)*prime(4)^2

Amiram Eldar, Table of n, a(n) for n = 1..10000

Cf. A018252, A056239, A290103, A302242, A302478, A320533, A320629, A320630, A320631, A320633.
Complement of A331386.
Positions of zeros in A257994.
Primes of prime index are A006450.
Primes of nonprime index are A007821.
Products of primes of prime index are A076610.
Products of primes of nonprime index are this sequence.
The number of prime prime indices is given by A257994.
The number of nonprime prime indices is given by A330944.
Cf. A000040, A000720, A001222, A112798, A295665.

Select[Range[100],And@@Not/@PrimeQ/@PrimePi/@First/@FactorInteger[#]&]

A320456 Numbers whose multiset multisystem spans an initial interval of positive integers.

Original entry on oeis.org

1, 2, 3, 4, 6, 7, 8, 9, 12, 13, 14, 15, 16, 18, 19, 21, 24, 26, 27, 28, 30, 32, 35, 36, 37, 38, 39, 42, 45, 48, 49, 52, 53, 54, 56, 57, 60, 61, 63, 64, 65, 69, 70, 72, 74, 75, 76, 78, 81, 84, 89, 90, 91, 95, 96, 98, 104, 105, 106, 108, 111, 112, 113, 114, 117

Offset: 1

Gus Wiseman, Oct 13 2018

nonn

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 n-th multiset multisystem 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 78th multiset multisystem is {{},{1},{1,2}}.

			The sequence of terms together with their multiset multisystems begins:
   1: {}
   2: {{}}
   3: {{1}}
   4: {{},{}}
   6: {{},{1}}
   7: {{1,1}}
   8: {{},{},{}}
   9: {{1},{1}}
  12: {{},{},{1}}
  13: {{1,2}}
  14: {{},{1,1}}
  15: {{1},{2}}
  16: {{},{},{},{}}
  18: {{},{1},{1}}
  19: {{1,1,1}}
  21: {{1},{1,1}}
  24: {{},{},{},{1}}
  26: {{},{1,2}}
  27: {{1},{1},{1}}
  28: {{},{},{1,1}}
  30: {{},{1},{2}}
  32: {{},{},{},{},{}}

Cf. A001222, A003963, A034691, A034729, A055932, A056239, A112798, A255906, A290103, A302242, A305052.

Cf. A320458, A320459, A320461, A320462, A320463, A320464, A320532, A320533.

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[100],normQ[primeMS/@primeMS[#]]&]

A320629 Products of odd primes of nonprime index.

Original entry on oeis.org

1, 7, 13, 19, 23, 29, 37, 43, 47, 49, 53, 61, 71, 73, 79, 89, 91, 97, 101, 103, 107, 113, 131, 133, 137, 139, 149, 151, 161, 163, 167, 169, 173, 181, 193, 197, 199, 203, 223, 227, 229, 233, 239, 247, 251, 257, 259, 263, 269, 271, 281, 293, 299, 301, 307, 311

Offset: 1

Gus Wiseman, Oct 18 2018

nonn

The index of a prime number n is the number m such that n is the m-th prime.

The asymptotic density of this sequence is (1/2) * Product_{p in A006450} (1 - 1/p) = 1/(2*Sum_{n>=1} 1/A076610(n)) < 1/6. - Amiram Eldar, Feb 02 2021

			The sequence of terms begins:
    1 = 1
    7 = prime(4)
   13 = prime(6)
   19 = prime(8)
   23 = prime(9)
   29 = prime(10)
   37 = prime(12)
   43 = prime(14)
   47 = prime(15)
   49 = prime(4)^2
   53 = prime(16)
   61 = prime(18)
   71 = prime(20)
   73 = prime(21)
   79 = prime(22)
   89 = prime(24)
   91 = prime(4)*prime(6)
   97 = prime(25)
  101 = prime(26)
  103 = prime(27)
  107 = prime(28)
  113 = prime(30)
  131 = prime(32)
  133 = prime(4)*prime(8)
  137 = prime(33)
  139 = prime(34)
  149 = prime(35)
  151 = prime(36)
  161 = prime(4)*prime(9)

Amiram Eldar, Table of n, a(n) for n = 1..10000

Cf. A000040, A006450, A007821, A018252, A056239, A076610, A112798, A302242, A320533, A320628, A320630, A320631, A320633.

Select[Range[1,100,2],And@@Not/@PrimeQ/@PrimePi/@First/@FactorInteger[#]&]

A320462 MM-numbers of labeled multigraphs with loops spanning an initial interval of positive integers.

Original entry on oeis.org

1, 7, 13, 49, 91, 161, 169, 299, 329, 343, 377, 611, 637, 667, 1127, 1183, 1261, 1363, 1937, 2021, 2093, 2117, 2197, 2303, 2401, 2639, 3703, 3887, 4277, 4459, 4669, 4901, 6877, 7567, 7889, 7943, 8281, 8671, 8827, 9541, 10933, 13559, 14053, 14147, 14651, 14819

Offset: 1

Gus Wiseman, Oct 13 2018

nonn

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}}.

			The sequence of terms together with their multiset multisystems begins:
     1: {}
     7: {{1,1}}
    13: {{1,2}}
    49: {{1,1},{1,1}}
    91: {{1,1},{1,2}}
   161: {{1,1},{2,2}}
   169: {{1,2},{1,2}}
   299: {{2,2},{1,2}}
   329: {{1,1},{2,3}}
   343: {{1,1},{1,1},{1,1}}
   377: {{1,2},{1,3}}
   611: {{1,2},{2,3}}
   637: {{1,1},{1,1},{1,2}}
   667: {{2,2},{1,3}}
  1127: {{1,1},{1,1},{2,2}}
  1183: {{1,1},{1,2},{1,2}}

Eric Weisstein's World of Mathematics, Simple Graph

Cf. A003963, A055932, A056239, A112798, A255906, A290103, A302242, A305052, A305078.

Cf. A320456, A320458, A320459, A320461, A320533.

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[10000],And[normQ[primeMS/@primeMS[#]],And@@(Length[primeMS[#]]==2&/@primeMS[#])]&]

A320633 Composite numbers whose prime indices are also composite.

Original entry on oeis.org

49, 91, 133, 161, 169, 203, 247, 259, 299, 301, 329, 343, 361, 371, 377, 427, 437, 481, 497, 511, 529, 551, 553, 559, 611, 623, 637, 667, 679, 689, 703, 707, 721, 749, 791, 793, 817, 841, 851, 893, 917, 923, 931, 949, 959, 973, 989, 1007, 1027, 1043, 1057

Offset: 1

Gus Wiseman, Oct 18 2018

nonn

A prime index of n is a number m such that prime(m) divides n.

			The sequence of terms begins:
   49 = prime(4)^2
   91 = prime(4)*prime(6)
  133 = prime(4)*prime(8)
  161 = prime(4)*prime(9)
  169 = prime(6)^2
  203 = prime(4)*prime(10)
  247 = prime(6)*prime(8)
  259 = prime(4)*prime(12)
  299 = prime(6)*prime(9)
  301 = prime(4)*prime(14)
  329 = prime(4)*prime(15)
  343 = prime(4)^3
  361 = prime(8)^2
  371 = prime(4)*prime(16)
  377 = prime(6)*prime(10)
  427 = prime(4)*prime(18)
  437 = prime(8)*prime(9)
  481 = prime(6)*prime(12)
  497 = prime(4)*prime(20)
  511 = prime(4)*prime(21)
  529 = prime(9)^2
  551 = prime(8)*prime(10)
  553 = prime(4)*prime(22)
  559 = prime(6)*prime(14)
  611 = prime(6)*prime(15)
  623 = prime(4)*prime(24)
  637 = prime(4)^2*prime(6)

Cf. A000040, A006450, A007821, A018252, A050370, A056239, A076610, A112798, A302242, A302478, A320533, A320628, A320629.

Select[Range[2,1000],And[OddQ[#],!PrimeQ[#],And@@Not/@PrimeQ/@PrimePi/@First/@FactorInteger[#]]&]

A320532 MM-numbers of labeled hypergraphs with multiset edges and no singletons spanning an initial interval of positive integers.

Original entry on oeis.org

1, 7, 13, 19, 37, 53, 61, 89, 91, 113, 131, 133, 151, 161, 223, 247, 251, 259, 281, 299, 311, 329, 359, 371, 377, 427, 437, 463, 481, 503, 593, 611, 623, 659, 667, 689, 703, 719, 721, 791, 793, 827, 851, 863, 893, 917, 923, 953, 1007, 1057, 1069, 1073, 1157

Offset: 1

Gus Wiseman, Oct 14 2018

nonn

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}}.

			The sequence of terms together with their multiset multisystems begins:
    1: {}
    7: {{1,1}}
   13: {{1,2}}
   19: {{1,1,1}}
   37: {{1,1,2}}
   53: {{1,1,1,1}}
   61: {{1,2,2}}
   89: {{1,1,1,2}}
   91: {{1,1},{1,2}}
  113: {{1,2,3}}
  131: {{1,1,1,1,1}}
  133: {{1,1},{1,1,1}}
  151: {{1,1,2,2}}
  161: {{1,1},{2,2}}
  223: {{1,1,1,1,2}}
  247: {{1,2},{1,1,1}}
  251: {{1,2,2,2}}
  259: {{1,1},{1,1,2}}
  281: {{1,1,2,3}}
  299: {{1,2},{2,2}}
  311: {{1,1,1,1,1,1}}
  329: {{1,1},{2,3}}
  359: {{1,1,1,2,2}}
  371: {{1,1},{1,1,1,1}}

Wikipedia, Hypergraph

Cf. A003963, A055932, A056239, A112798, A255906, A290103, A302242, A302478, A305052.

Cf. A320456, A320461, A320463, A320464, A320533.

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[#]],And@@(And[PrimeOmega[#]>1]&/@primeMS[#])]&]

A320463 MM-numbers of labeled simple hypergraphs with no singletons spanning an initial interval of positive integers.

Original entry on oeis.org

1, 13, 113, 377, 611, 1291, 1363, 1469, 1937, 2021, 2117, 3277, 4537, 4859, 5249, 5311, 7423, 8249, 8507, 16211, 16403, 16559, 16783, 16837, 17719, 20443, 20453, 24553, 25477, 26273, 26969, 27521, 34567, 37439, 39437, 41689, 42011, 42137, 42601, 43873, 43957

Offset: 1

Gus Wiseman, Oct 13 2018

nonn

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}}.

			The sequence of terms together with their multiset multisystems begins:
      1: {}
     13: {{1,2}}
    113: {{1,2,3}}
    377: {{1,2},{1,3}}
    611: {{1,2},{2,3}}
   1291: {{1,2,3,4}}
   1363: {{1,3},{2,3}}
   1469: {{1,2},{1,2,3}}
   1937: {{1,2},{3,4}}
   2021: {{1,4},{2,3}}
   2117: {{1,3},{2,4}}
   3277: {{1,3},{1,2,3}}
   4537: {{1,2},{1,3,4}}
   4859: {{1,4},{1,2,3}}
   5249: {{1,3},{1,2,4}}
   5311: {{2,3},{1,2,3}}
   7423: {{1,2},{2,3,4}}
   8249: {{2,4},{1,2,3}}
   8507: {{2,3},{1,2,4}}
  16211: {{1,2},{1,3},{1,4}}

Wikipedia, Hypergraph

Cf. A003963, A005117, A055932, A056239, A112798, A255906, A290103, A302242, A302478, A305052.

Cf. A320456, A320458, A320464, A320532, A320533.

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[10000],And[SquareFreeQ[#],normQ[primeMS/@primeMS[#]],And@@(And[SquareFreeQ[#],PrimeOmega[#]>1]&/@primeMS[#])]&]

A320464 MM-numbers of labeled multi-hypergraphs with no singletons spanning an initial interval of positive integers.

Original entry on oeis.org

1, 13, 113, 169, 377, 611, 1291, 1363, 1469, 1937, 2021, 2117, 2197, 3277, 4537, 4859, 4901, 5249, 5311, 7423, 7943, 8249, 8507, 10933, 12769, 16211, 16403, 16559, 16783, 16837, 17719, 19097, 20443, 20453, 24553, 25181, 25477, 26273, 26969, 27521, 28561, 28717

Offset: 1

Gus Wiseman, Oct 13 2018

nonn

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}}.

			The sequence of terms together with their multiset multisystems begins:
     1: {}
    13: {{1,2}}
   113: {{1,2,3}}
   169: {{1,2},{1,2}}
   377: {{1,2},{1,3}}
   611: {{1,2},{2,3}}
  1291: {{1,2,3,4}}
  1363: {{1,3},{2,3}}
  1469: {{1,2},{1,2,3}}
  1937: {{1,2},{3,4}}
  2021: {{1,4},{2,3}}
  2117: {{1,3},{2,4}}
  2197: {{1,2},{1,2},{1,2}}
  3277: {{1,3},{1,2,3}}
  4537: {{1,2},{1,3,4}}
  4859: {{1,4},{1,2,3}}
  4901: {{1,2},{1,2},{1,3}}
  5249: {{1,3},{1,2,4}}
  5311: {{2,3},{1,2,3}}
  7423: {{1,2},{2,3,4}}
  7943: {{1,2},{1,2},{2,3}}
  8249: {{2,4},{1,2,3}}
  8507: {{2,3},{1,2,4}}

Wikipedia, Hypergraph

Cf. A003963, A055932, A056239, A112798, A255906, A290103, A302242, A302478, A305052.

Cf. A320456, A320459, A320463, A320532, A320533.

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[10000],And[normQ[primeMS/@primeMS[#]],And@@(And[SquareFreeQ[#],PrimeOmega[#]>1]&/@primeMS[#])]&]

cp's OEIS Frontend

A320628 Products of primes of nonprime index.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A320456 Numbers whose multiset multisystem spans an initial interval of positive integers.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A320629 Products of odd primes of nonprime index.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A320462 MM-numbers of labeled multigraphs with loops spanning an initial interval of positive integers.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A320633 Composite numbers whose prime indices are also composite.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A320532 MM-numbers of labeled hypergraphs with multiset edges and no singletons spanning an initial interval of positive integers.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A320463 MM-numbers of labeled simple hypergraphs with no singletons spanning an initial interval of positive integers.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A320464 MM-numbers of labeled multi-hypergraphs with no singletons spanning an initial interval of positive integers.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica