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

A330945 Numbers whose prime indices are not all prime numbers.

Original entry on oeis.org

2, 4, 6, 7, 8, 10, 12, 13, 14, 16, 18, 19, 20, 21, 22, 23, 24, 26, 28, 29, 30, 32, 34, 35, 36, 37, 38, 39, 40, 42, 43, 44, 46, 47, 48, 49, 50, 52, 53, 54, 56, 57, 58, 60, 61, 62, 63, 64, 65, 66, 68, 69, 70, 71, 72, 73, 74, 76, 77, 78, 79, 80, 82, 84, 86, 87
Offset: 1

Views

Author

Gus Wiseman, Jan 13 2020

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.

Examples

			The sequence of terms together with their prime indices of prime indices begins:
   2: {{}}
   4: {{},{}}
   6: {{},{1}}
   7: {{1,1}}
   8: {{},{},{}}
  10: {{},{2}}
  12: {{},{},{1}}
  13: {{1,2}}
  14: {{},{1,1}}
  16: {{},{},{},{}}
  18: {{},{1},{1}}
  19: {{1,1,1}}
  20: {{},{},{2}}
  21: {{1},{1,1}}
  22: {{},{3}}
  23: {{2,2}}
  24: {{},{},{},{1}}
  26: {{},{1,2}}
  28: {{},{},{1,1}}
  29: {{1,3}}
		

Crossrefs

Complement of A076610 (products of primes of prime index).
Numbers n such that A330944(n) > 0.
The restriction to odd terms is A330946.
The restriction to nonprimes is A330948.
The number of prime prime indices is given by A257994.
The number of nonprime prime indices is given by A330944.
Primes of prime index are A006450.
Primes of nonprime index are A007821.
Products of primes of nonprime index are A320628.
The set S of numbers whose prime indices do not all belong to S is A324694.

Programs

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

A330943 Matula-Goebel numbers of singleton-reduced rooted trees.

Original entry on oeis.org

1, 2, 4, 6, 7, 8, 12, 13, 14, 16, 18, 19, 21, 24, 26, 28, 32, 34, 36, 37, 38, 39, 42, 43, 48, 49, 52, 53, 54, 56, 57, 61, 63, 64, 68, 72, 73, 74, 76, 78, 82, 84, 86, 89, 91, 96, 98, 101, 102, 104, 106, 107, 108, 111, 112, 114, 117, 119, 122, 126, 128, 129, 131
Offset: 1

Views

Author

Gus Wiseman, Jan 13 2020

Keywords

Comments

These trees are counted by A330951.
A rooted tree is singleton-reduced if no non-leaf node has all singleton branches, where a rooted tree is a singleton if its root has degree 1.
The Matula-Goebel number of a rooted tree is the product of primes of the Matula-Goebel numbers of its branches. This gives a bijective correspondence between positive integers and unlabeled rooted trees.
A prime index of n is a number m such that prime(m) divides n. A number belongs to this sequence iff it is 1 or its prime indices all belong to this sequence but are not all prime.

Examples

			The sequence of all singleton-reduced rooted trees together with their Matula-Goebel numbers begins:
   1: o
   2: (o)
   4: (oo)
   6: (o(o))
   7: ((oo))
   8: (ooo)
  12: (oo(o))
  13: ((o(o)))
  14: (o(oo))
  16: (oooo)
  18: (o(o)(o))
  19: ((ooo))
  21: ((o)(oo))
  24: (ooo(o))
  26: (o(o(o)))
  28: (oo(oo))
  32: (ooooo)
  34: (o((oo)))
  36: (oo(o)(o))
  37: ((oo(o)))
		

Crossrefs

The series-reduced case is A291636.
Unlabeled rooted trees are counted by A000081.
Numbers whose prime indices are not all prime are A330945.
Singleton-reduced rooted trees are counted by A330951.
Singleton-reduced phylogenetic trees are A000311.
The set S of numbers whose prime indices do not all belong to S is A324694.

Programs

  • Mathematica
    primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
    mgsingQ[n_]:=n==1||And@@mgsingQ/@primeMS[n]&&!And@@PrimeQ/@primeMS[n];
    Select[Range[100],mgsingQ]

A330946 Odd numbers whose prime indices are not all prime numbers.

Original entry on oeis.org

7, 13, 19, 21, 23, 29, 35, 37, 39, 43, 47, 49, 53, 57, 61, 63, 65, 69, 71, 73, 77, 79, 87, 89, 91, 95, 97, 101, 103, 105, 107, 111, 113, 115, 117, 119, 129, 131, 133, 137, 139, 141, 143, 145, 147, 149, 151, 159, 161, 163, 167, 169, 171, 173, 175, 181, 183, 185
Offset: 1

Views

Author

Gus Wiseman, Jan 13 2020

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.
Also MM-numbers of multiset partitions whose parts not all singletons (see example).

Examples

			The sequence of terms together with their prime indices of prime indices begins:
   7: {{1,1}}
  13: {{1,2}}
  19: {{1,1,1}}
  21: {{1},{1,1}}
  23: {{2,2}}
  29: {{1,3}}
  35: {{2},{1,1}}
  37: {{1,1,2}}
  39: {{1},{1,2}}
  43: {{1,4}}
  47: {{2,3}}
  49: {{1,1},{1,1}}
  53: {{1,1,1,1}}
  57: {{1},{1,1,1}}
  61: {{1,2,2}}
  63: {{1},{1},{1,1}}
  65: {{2},{1,2}}
  69: {{1},{2,2}}
  71: {{1,1,3}}
  73: {{2,4}}
		

Crossrefs

Odd numbers n such that A330944(n) > 0.
Including even numbers gives A330945.
The restriction to nonprimes is A330949.
Taking nonprimes instead of odds gives A330947.
The number of prime prime indices is given by 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 A320628.
The set S of numbers whose prime indices do not all belong to S is A324694.

Programs

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

A330947 Nonprime numbers whose prime indices are all prime numbers.

Original entry on oeis.org

1, 9, 15, 25, 27, 33, 45, 51, 55, 75, 81, 85, 93, 99, 121, 123, 125, 135, 153, 155, 165, 177, 187, 201, 205, 225, 243, 249, 255, 275, 279, 289, 295, 297, 327, 335, 341, 363, 369, 375, 381, 405, 415, 425, 451, 459, 465, 471, 495, 527, 531, 537, 545, 561, 573
Offset: 1

Views

Author

Gus Wiseman, Jan 13 2020

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.

Examples

			The sequence of terms together with their prime indices of prime indices begins:
    1: {}
    9: {{1},{1}}
   15: {{1},{2}}
   25: {{2},{2}}
   27: {{1},{1},{1}}
   33: {{1},{3}}
   45: {{1},{1},{2}}
   51: {{1},{4}}
   55: {{2},{3}}
   75: {{1},{2},{2}}
   81: {{1},{1},{1},{1}}
   85: {{2},{4}}
   93: {{1},{5}}
   99: {{1},{1},{3}}
  121: {{3},{3}}
  123: {{1},{6}}
  125: {{2},{2},{2}}
  135: {{1},{1},{1},{2}}
  153: {{1},{1},{4}}
  155: {{2},{5}}
		

Crossrefs

Complement in A076610 of A000040.
Complement in A018252 of A330948.
Nonprime numbers n such that A330944(n) = 0.
Taking odds instead of nonprimes gives A330946.
The number of prime prime indices is given by 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 A320628.
Numbers whose prime indices are not all prime are A330945.

Programs

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

A330949 Odd nonprime numbers whose prime indices are not all prime numbers.

Original entry on oeis.org

21, 35, 39, 49, 57, 63, 65, 69, 77, 87, 91, 95, 105, 111, 115, 117, 119, 129, 133, 141, 143, 145, 147, 159, 161, 169, 171, 175, 183, 185, 189, 195, 203, 207, 209, 213, 215, 217, 219, 221, 231, 235, 237, 245, 247, 253, 259, 261, 265, 267, 273, 285, 287, 291
Offset: 1

Views

Author

Gus Wiseman, Jan 14 2020

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.
Also MM-numbers of multiset partitions with at least two parts, not all of which are singletons (see example).

Examples

			The sequence of terms together with their prime indices of prime indices begins:
   21: {{1},{1,1}}
   35: {{2},{1,1}}
   39: {{1},{1,2}}
   49: {{1,1},{1,1}}
   57: {{1},{1,1,1}}
   63: {{1},{1},{1,1}}
   65: {{2},{1,2}}
   69: {{1},{2,2}}
   77: {{1,1},{3}}
   87: {{1},{1,3}}
   91: {{1,1},{1,2}}
   95: {{2},{1,1,1}}
  105: {{1},{2},{1,1}}
  111: {{1},{1,1,2}}
  115: {{2},{2,2}}
  117: {{1},{1},{1,2}}
  119: {{1,1},{4}}
  129: {{1},{1,4}}
  133: {{1,1},{1,1,1}}
  141: {{1},{2,3}}
		

Crossrefs

Complement of A106092 in A330945.
Including even numbers gives A330948.
Including primes gives A330946.
The number of prime prime indices is given by A257994.
The number of nonprime prime indices is given by A330944.
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 A320628.
The set S of numbers whose prime indices do not all belong to S is A324694.

Programs

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

A295665 Fully multiplicative with a(prime(m)) = prime(k) when m = prime(k), and a(prime(m)) = 1 when m is not a prime.

Original entry on oeis.org

1, 1, 2, 1, 3, 2, 1, 1, 4, 3, 5, 2, 1, 1, 6, 1, 7, 4, 1, 3, 2, 5, 1, 2, 9, 1, 8, 1, 1, 6, 11, 1, 10, 7, 3, 4, 1, 1, 2, 3, 13, 2, 1, 5, 12, 1, 1, 2, 1, 9, 14, 1, 1, 8, 15, 1, 2, 1, 17, 6, 1, 11, 4, 1, 3, 10, 19, 7, 2, 3, 1, 4, 1, 1, 18, 1, 5, 2, 1, 3, 16, 13, 23, 2, 21, 1, 2, 5, 1, 12, 1, 1, 22, 1, 3, 2, 1, 1, 20, 9, 1, 14, 1, 1, 6
Offset: 1

Views

Author

Antti Karttunen, Nov 26 2017

Keywords

Comments

The number of applications to reach 1 is A322027(n). Positions of first appearances are A076610. - Gus Wiseman, Jan 17 2020

Examples

			For n = 360 = 2^3 * 3^2 * 5 = prime(1)^3 * prime(2)^2 * prime(3), 1 is not a prime, but 2 and 3 are, thus a(360) = 2^2 * 3 = 12.
		

Crossrefs

Cf. also A003963, A257538.
Positions of 1's are A320628.
Positions of terms > 1 are A331386.
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 A320628.
The number of prime prime indices is A257994.
The number of nonprime prime indices is A330944.
Numbers whose prime indices are not all prime are A330945.

Programs

  • Mathematica
    Table[Times@@Cases[FactorInteger[n],{p_?(PrimeQ[PrimePi[#]]&),k_}:>PrimePi[p]^k],{n,40}] (* Gus Wiseman, Jan 17 2020 *)
  • Scheme
    (definec (A295665 n) (if (= 1 n) 1 (let ((k (A055396 n))) (* (if (zero? (A010051 k)) 1 k) (A295665 (A032742 n))))))

Formula

Multiplicative with a(p^e) = A000720(p)^(e*A010051(A000720(p))).
a(1) = 1; for n > 1, if A055396(n) is a prime, then a(n) = A055396(n) * a(A032742(n)), otherwise a(n) = a(A032742(n)).
Other identities. For all n >= 1:
a(A006450(n)) = A000040(n).
a(A007097(n)) = A007097(n-1).
a(A294876(n)) = A295666(n).

A340104 Products of distinct primes of nonprime index (A007821).

Original entry on oeis.org

1, 2, 7, 13, 14, 19, 23, 26, 29, 37, 38, 43, 46, 47, 53, 58, 61, 71, 73, 74, 79, 86, 89, 91, 94, 97, 101, 103, 106, 107, 113, 122, 131, 133, 137, 139, 142, 146, 149, 151, 158, 161, 163, 167, 173, 178, 181, 182, 193, 194, 197, 199, 202, 203, 206, 214, 223, 226
Offset: 1

Views

Author

Gus Wiseman, Mar 12 2021

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.

Examples

			The sequence of terms together with the corresponding prime indices of prime indices begins:
     1: {}              58: {{},{1,3}}        113: {{1,2,3}}
     2: {{}}            61: {{1,2,2}}         122: {{},{1,2,2}}
     7: {{1,1}}         71: {{1,1,3}}         131: {{1,1,1,1,1}}
    13: {{1,2}}         73: {{2,4}}           133: {{1,1},{1,1,1}}
    14: {{},{1,1}}      74: {{},{1,1,2}}      137: {{2,5}}
    19: {{1,1,1}}       79: {{1,5}}           139: {{1,7}}
    23: {{2,2}}         86: {{},{1,4}}        142: {{},{1,1,3}}
    26: {{},{1,2}}      89: {{1,1,1,2}}       146: {{},{2,4}}
    29: {{1,3}}         91: {{1,1},{1,2}}     149: {{3,4}}
    37: {{1,1,2}}       94: {{},{2,3}}        151: {{1,1,2,2}}
    38: {{},{1,1,1}}    97: {{3,3}}           158: {{},{1,5}}
    43: {{1,4}}        101: {{1,6}}           161: {{1,1},{2,2}}
    46: {{},{2,2}}     103: {{2,2,2}}         163: {{1,8}}
    47: {{2,3}}        106: {{},{1,1,1,1}}    167: {{2,6}}
    53: {{1,1,1,1}}    107: {{1,1,4}}         173: {{1,1,1,3}}
		

Crossrefs

These primes (of nonprime index) are listed by A007821.
The non-strict version is A320628, with odd case A320629.
The odd case is A340105.
The prime instead of nonprime version:
primes: A006450
products: A076610
strict: A302590
The semiprime instead of nonprime version:
primes: A106349
products: A339112
strict: A340020
The squarefree semiprime instead of nonprime version:
strict: A309356
primes: A322551
products: A339113
A056239 gives the sum of prime indices, which are listed by A112798.
A257994 counts prime prime indices.
A302242 is the weight of the multiset of multisets with MM-number n.
A305079 is the number of connected components for MM-number n.
A320911 lists products of squarefree semiprimes (Heinz numbers of A338914).
A320912 lists products of distinct semiprimes (Heinz numbers of A338916).
A330944 counts nonprime prime indices.
A330945 lists numbers with a nonprime prime index (nonprime case: A330948).
A339561 lists products of distinct squarefree semiprimes (A339560).
MM-numbers: A255397 (normal), A302478 (set multisystems), A320630 (set multipartitions), A302494 (sets of sets), A305078 (connected), A316476 (antichains), A318991 (chains), A320456 (covers), A328514 (connected sets of sets), A329559 (clutters), A340019 (half-loop graphs).

Programs

  • Mathematica
    Select[Range[100],SquareFreeQ[#]&&FreeQ[If[#==1,{},FactorInteger[#]],{p_,k_}/;PrimeQ[PrimePi[p]]]&]

Formula

Equals A005117 /\ A320628.

A340105 Odd products of distinct primes of nonprime index (A007821).

Original entry on oeis.org

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

Views

Author

Gus Wiseman, Mar 12 2021

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.

Examples

			The sequence of terms together with the corresponding sets of multisets begins:
     1: {}              91: {{1,1},{1,2}}      173: {{1,1,1,3}}
     7: {{1,1}}         97: {{3,3}}            181: {{1,2,4}}
    13: {{1,2}}        101: {{1,6}}            193: {{1,1,5}}
    19: {{1,1,1}}      103: {{2,2,2}}          197: {{2,2,3}}
    23: {{2,2}}        107: {{1,1,4}}          199: {{1,9}}
    29: {{1,3}}        113: {{1,2,3}}          203: {{1,1},{1,3}}
    37: {{1,1,2}}      131: {{1,1,1,1,1}}      223: {{1,1,1,1,2}}
    43: {{1,4}}        133: {{1,1},{1,1,1}}    227: {{4,4}}
    47: {{2,3}}        137: {{2,5}}            229: {{1,3,3}}
    53: {{1,1,1,1}}    139: {{1,7}}            233: {{2,7}}
    61: {{1,2,2}}      149: {{3,4}}            239: {{1,1,6}}
    71: {{1,1,3}}      151: {{1,1,2,2}}        247: {{1,2},{1,1,1}}
    73: {{2,4}}        161: {{1,1},{2,2}}      251: {{1,2,2,2}}
    79: {{1,5}}        163: {{1,8}}            257: {{3,5}}
    89: {{1,1,1,2}}    167: {{2,6}}            259: {{1,1},{1,1,2}}
		

Crossrefs

These primes (of nonprime index) are listed by A007821.
The non-strict version is A320629, with not necessarily odd version A320628.
The not necessarily odd version is A340104.
The prime instead of odd nonprime version:
primes: A006450
products: A076610
strict: A302590
The squarefree semiprime instead of odd nonprime version:
strict: A309356
primes: A322551
products: A339113
The semiprime instead of odd nonprime version:
primes: A106349
products: A339112
strict: A340020
A001358 lists semiprimes.
A056239 gives the sum of prime indices, which are listed by A112798.
A257994 counts prime prime indices.
A302242 is the weight of the multiset of multisets with MM-number n.
A305079 is the number of connected components for MM-number n.
A330944 counts nonprime prime indices.
A330945 lists numbers with a nonprime prime index (nonprime case: A330948).
A339561 lists products of distinct squarefree semiprimes.
MM-numbers: A255397 (normal), A302478 (set multisystems), A320630 (set multipartitions), A302494 (sets of sets), A305078 (connected), A316476 (antichains), A318991 (chains), A320456 (covers), A328514 (connected sets of sets), A329559 (clutters), A340019 (half-loop graphs).

Programs

  • Mathematica
    Select[Range[1,100,2],SquareFreeQ[#]&&FreeQ[If[#==1,{},FactorInteger[#]],{p_,k_}/;PrimeQ[PrimePi[p]]]&]

Formula

Showing 1-8 of 8 results.