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.

Previous Showing 41-50 of 57 results. Next

A329630 Products of distinct primes of nonprime squarefree index.

Original entry on oeis.org

1, 2, 13, 26, 29, 43, 47, 58, 73, 79, 86, 94, 101, 113, 137, 139, 146, 149, 158, 163, 167, 181, 199, 202, 226, 233, 257, 269, 271, 274, 278, 293, 298, 313, 317, 326, 334, 347, 349, 362, 373, 377, 389, 397, 398, 421, 439, 443, 449, 466, 467, 487, 491, 499, 514
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 sets of non-singleton sets.

Examples

			The sequence of terms together with their corresponding sets of sets begins:
    1: {}
    2: {{}}
   13: {{1,2}}
   26: {{},{1,2}}
   29: {{1,3}}
   43: {{1,4}}
   47: {{2,3}}
   58: {{},{1,3}}
   73: {{2,4}}
   79: {{1,5}}
   86: {{},{1,4}}
   94: {{},{2,3}}
  101: {{1,6}}
  113: {{1,2,3}}
  137: {{2,5}}
  139: {{1,7}}
  146: {{},{2,4}}
  149: {{3,4}}
  158: {{},{1,5}}
  163: {{1,8}}
		

Crossrefs

MM-numbers of sets of nonempty sets are A329629.
Products of primes of nonprime squarefree index are A320630.
Products of prime numbers of squarefree index are A302478.
Products of primes of nonprime index are A320628.
Classes of MM-numbers: A305078 (connected), A316476 (antichains), A318991 (chains), A320456 (covers), A329559 (clutters).

Programs

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

A331995 Numbers with at most one distinct prime prime index.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 31, 32, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 46, 47, 48, 49, 50, 52, 53, 54, 56, 57, 58, 59, 61, 62, 63, 64, 65, 67, 68, 69, 70, 71, 72, 73, 74, 76
Offset: 1

Views

Author

Gus Wiseman, Feb 08 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 begins:
   1: {}           22: {1,5}          44: {1,1,5}
   2: {1}          23: {9}            46: {1,9}
   3: {2}          24: {1,1,1,2}      47: {15}
   4: {1,1}        25: {3,3}          48: {1,1,1,1,2}
   5: {3}          26: {1,6}          49: {4,4}
   6: {1,2}        27: {2,2,2}        50: {1,3,3}
   7: {4}          28: {1,1,4}        52: {1,1,6}
   8: {1,1,1}      29: {10}           53: {16}
   9: {2,2}        31: {11}           54: {1,2,2,2}
  10: {1,3}        32: {1,1,1,1,1}    56: {1,1,1,4}
  11: {5}          34: {1,7}          57: {2,8}
  12: {1,1,2}      35: {3,4}          58: {1,10}
  13: {6}          36: {1,1,2,2}      59: {17}
  14: {1,4}        37: {12}           61: {18}
  16: {1,1,1,1}    38: {1,8}          62: {1,11}
  17: {7}          39: {2,6}          63: {2,2,4}
  18: {1,2,2}      40: {1,1,1,3}      64: {1,1,1,1,1,1}
  19: {8}          41: {13}           65: {3,6}
  20: {1,1,3}      42: {1,2,4}        67: {19}
  21: {2,4}        43: {14}           68: {1,1,7}
		

Crossrefs

These are numbers n such that A279952(n) <= 1.
Prime-indexed primes are A006450, with products A076610.
Numbers whose prime indices are not all prime are A330945.
Numbers with at least one prime prime index are A331386.
The set S of numbers with at most one prime index in S are A331784.
The set S of numbers with at most one distinct prime index in S are A331912.
Numbers with at most one prime prime index are A331914.
Numbers with exactly one prime prime index are A331915.
Numbers with exactly one distinct prime prime index are A331916.

Programs

  • Mathematica
    Select[Range[100],Count[PrimePi/@First/@FactorInteger[#],_?PrimeQ]<=1&]

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

A352493 Number of non-constant integer partitions of n into prime parts with prime multiplicities.

Original entry on oeis.org

0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 1, 1, 1, 3, 0, 1, 4, 5, 3, 1, 3, 5, 7, 3, 5, 6, 8, 8, 11, 7, 6, 8, 15, 14, 14, 10, 15, 17, 21, 18, 23, 20, 28, 25, 31, 27, 35, 32, 33, 37, 46, 41, 50, 45, 58, 56, 63, 59, 78, 69, 76, 81, 85, 80, 103, 107, 111, 114, 127
Offset: 0

Views

Author

Gus Wiseman, Mar 24 2022

Keywords

Examples

			The a(n) partitions for selected n (B = 11):
n = 10    16       19        20         25          28
   ---------------------------------------------------------------
    3322  5533     55333     7733       77722       BB33
          55222    55522     77222      5533333     BB222
          3322222  3333322   553322     5553322     775522
                   33322222  5522222    55333222    55533322
                             332222222  55522222    772222222
                                        333333322   3322222222222
                                        3333322222
		

Crossrefs

Constant partitions are counted by A001221, ranked by A000961.
Non-constant partitions are counted by A144300, ranked A024619.
The constant version is A230595, ranked by A352519.
This is the non-constant case of A351982, ranked by A346068.
These partitions are ranked by A352518.
A000040 lists the primes.
A000607 counts partitions into primes, ranked by A076610.
A001597 lists perfect powers, complement A007916.
A038499 counts partitions of prime length.
A053810 lists primes to primes.
A055923 counts partitions with prime multiplicities, ranked by A056166.
A257994 counts prime indices that are themselves prime.
A339218 counts powerful partitions into prime parts, ranked by A352492.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n], !SameQ@@#&&And@@PrimeQ/@#&& And@@PrimeQ/@Length/@Split[#]&]],{n,0,30}]

A360326 a(n) is the number of divisors of n that have only prime-indexed prime factors.

Original entry on oeis.org

1, 1, 2, 1, 2, 2, 1, 1, 3, 2, 2, 2, 1, 1, 4, 1, 2, 3, 1, 2, 2, 2, 1, 2, 3, 1, 4, 1, 1, 4, 2, 1, 4, 2, 2, 3, 1, 1, 2, 2, 2, 2, 1, 2, 6, 1, 1, 2, 1, 3, 4, 1, 1, 4, 4, 1, 2, 1, 2, 4, 1, 2, 3, 1, 2, 4, 2, 2, 2, 2, 1, 3, 1, 1, 6, 1, 2, 2, 1, 2, 5, 2, 2, 2, 4, 1, 2
Offset: 1

Views

Author

Amiram Eldar, Feb 03 2023

Keywords

Comments

First differs from A322976 at n = 21.
Equivalently, a(n) is the number of divisors of the largest divisor of n that has only prime-indexed prime factors.
The asymptotic mean of this sequence is Product_{p in A006450} p/(p-1) > 3. See A076610 for a numerical estimate of the value of this product.

Crossrefs

Programs

  • Mathematica
    f[p_, e_] := If[PrimeQ[PrimePi[p]], e+1, 1]; a[1] = 1; a[n_] := Times @@ f @@@ FactorInteger[n]; Array[a, 100]
  • PARI
    a(n) = {my(f = factor(n), p = f[,1], e = f[,2]); prod(i = 1, #p, if(isprime(primepi(p[i])), e[i]+1, 1));}

Formula

a(n) = 1 if and only if n is in A320628.
a(n) = A000005(n) if and only if n is in A076610.
a(n) = A000005(A360325(n)).
Multiplicative with a(p^e) = e+1 if p is a prime-indexed prime (A006450), and 1 otherwise.

A360330 a(n) is the number of divisors of n that have only prime factors that are not prime-indexed primes.

Original entry on oeis.org

1, 2, 1, 3, 1, 2, 2, 4, 1, 2, 1, 3, 2, 4, 1, 5, 1, 2, 2, 3, 2, 2, 2, 4, 1, 4, 1, 6, 2, 2, 1, 6, 1, 2, 2, 3, 2, 4, 2, 4, 1, 4, 2, 3, 1, 4, 2, 5, 3, 2, 1, 6, 2, 2, 1, 8, 2, 4, 1, 3, 2, 2, 2, 7, 2, 2, 1, 3, 2, 4, 2, 4, 2, 4, 1, 6, 2, 4, 2, 5, 1, 2, 1, 6, 1, 4, 2
Offset: 1

Views

Author

Amiram Eldar, Feb 03 2023

Keywords

Comments

Equivalently, a(n) is the number of divisors of the largest divisor of n that has only prime factors that are not prime-indexed primes.

Crossrefs

Programs

  • Maple
    a:= n-> mul(`if`(isprime(numtheory[pi](i[1])), 1, i[2]+1), i=ifactors(n)[2]):
    seq(a(n), n=1..87);  # Alois P. Heinz, Feb 03 2023
  • Mathematica
    f[p_, e_] := If[PrimeQ[PrimePi[p]], 1, e+1]; a[1] = 1; a[n_] := Times @@ f @@@ FactorInteger[n]; Array[a, 100]
  • PARI
    a(n) = {my(f = factor(n), p = f[,1], e = f[,2]); prod(i = 1, #p, if(isprime(primepi(p[i])), 1, e[i]+1));}

Formula

a(n) = 1 if and only if n is in A076610.
a(n) = A000005(n) if and only if n is in A320628.
a(n) = A000005(A360329(n)).
Multiplicative with a(p^e) = 1 if p is a prime-indexed prime (A006450), and e+1 otherwise (A007821).

A368728 Numbers whose prime indices are 1, prime, or semiprime.

Original entry on oeis.org

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

Views

Author

Gus Wiseman, Jan 07 2024

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.

Crossrefs

These are products of primes indexed by elements of A037143.
For just primes we have A076610, strict A302590.
For just semiprimes we have A339112, strict A340020.
For squarefree semiprimes we have A339113, strict A309356.
The odd case is A368729, strict A340019.
The complement is A368833.
A000607 counts partitions into primes, A034891 with ones allowed.
A001358 lists semiprimes, squarefree A006881.
A006450, A106349, A322551, A368732 list selected primes.
A056239 adds up prime indices, row sums of A112798.
A101048 counts partitions into semiprimes.

Programs

  • Mathematica
    prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n], {p_,k_}:>Table[PrimePi[p],{k}]]]];
    Select[Range[100],Max@@Length/@prix/@prix[#]<=2&]

Formula

Closed under multiplication.

A368729 Numbers whose prime indices are prime or semiprime. MM-numbers of labeled multigraphs with loops and half-loops without isolated (uncovered) nodes.

Original entry on oeis.org

1, 3, 5, 7, 9, 11, 13, 15, 17, 21, 23, 25, 27, 29, 31, 33, 35, 39, 41, 43, 45, 47, 49, 51, 55, 59, 63, 65, 67, 69, 73, 75, 77, 79, 81, 83, 85, 87, 91, 93, 97, 99, 101, 105, 109, 115, 117, 119, 121, 123, 125, 127, 129, 135, 137, 139, 141, 143, 145, 147, 149
Offset: 1

Views

Author

Gus Wiseman, Jan 07 2024

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 terms together with the corresponding multigraphs begin:
   1: {}
   3: {{1}}
   5: {{2}}
   7: {{1,1}}
   9: {{1},{1}}
  11: {{3}}
  13: {{1,2}}
  15: {{1},{2}}
  17: {{4}}
  21: {{1},{1,1}}
  23: {{2,2}}
  25: {{2},{2}}
  27: {{1},{1},{1}}
  29: {{1,3}}
  31: {{5}}
  33: {{1},{3}}
  35: {{2},{1,1}}
  39: {{1},{1,2}}
  41: {{6}}
  43: {{1,4}}
  45: {{1},{1},{2}}
  47: {{2,3}}
  49: {{1,1},{1,1}}
		

Crossrefs

In the unlabeled case these multigraphs are counted by A320663.
These are products of primes indexed by elements of A037143 greater than 1.
For just primes we have A076610, squarefree A302590.
For just semiprimes we have A339112, squarefree A340020.
For just half-loops we have A340019.
This is the odd case of A368728, complement A368833.
A000607 counts partitions into primes, with ones allowed A034891.
A001358 lists semiprimes, squarefree A006881.
A006450, A106349, A322551, A368732 list selected primes.
A056239 adds up prime indices, row sums of A112798.
A101048 counts partitions into semiprimes.

Programs

  • Mathematica
    prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
    Select[Range[100],OddQ[#]&&Max@@Length/@prix/@prix[#]<=2&]

A368732 Primes whose index is one, another prime number, or a semiprime.

Original entry on oeis.org

2, 3, 5, 7, 11, 13, 17, 23, 29, 31, 41, 43, 47, 59, 67, 73, 79, 83, 97, 101, 109, 127, 137, 139, 149, 157, 163, 167, 179, 191, 199, 211, 227, 233, 241, 257, 269, 271, 277, 283, 293, 313, 331, 347, 353, 367, 373, 389, 401, 421, 431, 439, 443, 449, 461, 467, 487
Offset: 1

Views

Author

Gus Wiseman, Jan 08 2024

Keywords

Crossrefs

For just primes we have A006450, products A076610, strict A302590.
These indices are A037143.
For just semiprimes we have A106349, products A339112, strict A340020.
Products of these primes are A368728, odd A368729, odd strict A340019.
Products of the complementary primes are A368833.
A000607 counts partitions into primes, with ones allowed A034891.
A001358 lists semiprimes, squarefree A006881.
A056239 adds up prime indices, row sums of A112798.
A101048 counts partitions into semiprimes.
A322551 lists primes of squarefree semiprime index.

Programs

  • Mathematica
    Prime/@Select[Range[100],PrimeOmega[#]<=2&]
Previous Showing 41-50 of 57 results. Next