A331785 -id:A331785 - cp's OEIS frontend

A331915 Numbers with exactly one prime prime index, counted with multiplicity.

3, 5, 6, 10, 11, 12, 17, 20, 21, 22, 24, 31, 34, 35, 39, 40, 41, 42, 44, 48, 57, 59, 62, 65, 67, 68, 69, 70, 77, 78, 80, 82, 83, 84, 87, 88, 95, 96, 109, 111, 114, 115, 118, 119, 124, 127, 129, 130, 134, 136, 138, 140, 141, 143, 145, 147, 154, 156, 157, 159

Offset: 1

Gus Wiseman, Feb 08 2020

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 sequence of terms together with their prime indices begins:
    3: {2}             57: {2,8}            114: {1,2,8}
    5: {3}             59: {17}             115: {3,9}
    6: {1,2}           62: {1,11}           118: {1,17}
   10: {1,3}           65: {3,6}            119: {4,7}
   11: {5}             67: {19}             124: {1,1,11}
   12: {1,1,2}         68: {1,1,7}          127: {31}
   17: {7}             69: {2,9}            129: {2,14}
   20: {1,1,3}         70: {1,3,4}          130: {1,3,6}
   21: {2,4}           77: {4,5}            134: {1,19}
   22: {1,5}           78: {1,2,6}          136: {1,1,1,7}
   24: {1,1,1,2}       80: {1,1,1,1,3}      138: {1,2,9}
   31: {11}            82: {1,13}           140: {1,1,3,4}
   34: {1,7}           83: {23}             141: {2,15}
   35: {3,4}           84: {1,1,2,4}        143: {5,6}
   39: {2,6}           87: {2,10}           145: {3,10}
   40: {1,1,1,3}       88: {1,1,1,5}        147: {2,4,4}
   41: {13}            95: {3,8}            154: {1,4,5}
   42: {1,2,4}         96: {1,1,1,1,1,2}    156: {1,1,2,6}
   44: {1,1,5}        109: {29}             157: {37}
   48: {1,1,1,1,2}    111: {2,12}           159: {2,16}

These are numbers n such that A257994(n) = 1.
Prime-indexed primes are A006450, with products A076610.
The number of distinct prime prime indices is A279952.
Numbers with at least one prime prime index are A331386.
The set S of numbers with exactly one prime index in S are A331785.
The set S of numbers with exactly one distinct prime index in S are A331913.
Numbers with at most one prime prime index are A331914.
Numbers with exactly one distinct prime prime index are A331916.
Numbers with at most one distinct prime prime index are A331995.
Cf. A000040, A000720, A007097, A007821, A018252, A112798, A289509, A320628, A330944, A330945, A331784.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],Count[primeMS[#],_?PrimeQ]==1&]

A331912 Lexicographically earliest sequence of positive integers that have at most one distinct prime index already in the sequence.

Original entry on oeis.org

1, 2, 3, 4, 5, 7, 8, 9, 11, 13, 16, 17, 19, 23, 25, 26, 27, 29, 31, 32, 37, 39, 41, 43, 47, 49, 52, 53, 58, 59, 61, 64, 65, 67, 71, 73, 74, 79, 81, 83, 86, 87, 89, 91, 94, 97, 101, 103, 104, 107, 109, 111, 113, 116, 117, 121, 122, 125, 127, 128, 129, 131, 137

Offset: 1

Gus Wiseman, Feb 01 2020

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.

Conjecture: a(n)/A331784(n) -> 1 as n -> infinity.

			The sequence of terms together with their prime indices begins:
    1: {}              37: {12}              86: {1,14}
    2: {1}             39: {2,6}             87: {2,10}
    3: {2}             41: {13}              89: {24}
    4: {1,1}           43: {14}              91: {4,6}
    5: {3}             47: {15}              94: {1,15}
    7: {4}             49: {4,4}             97: {25}
    8: {1,1,1}         52: {1,1,6}          101: {26}
    9: {2,2}           53: {16}             103: {27}
   11: {5}             58: {1,10}           104: {1,1,1,6}
   13: {6}             59: {17}             107: {28}
   16: {1,1,1,1}       61: {18}             109: {29}
   17: {7}             64: {1,1,1,1,1,1}    111: {2,12}
   19: {8}             65: {3,6}            113: {30}
   23: {9}             67: {19}             116: {1,1,10}
   25: {3,3}           71: {20}             117: {2,2,6}
   26: {1,6}           73: {21}             121: {5,5}
   27: {2,2,2}         74: {1,12}           122: {1,18}
   29: {10}            79: {22}             125: {3,3,3}
   31: {11}            81: {2,2,2,2}        127: {31}
   32: {1,1,1,1,1}     83: {23}             128: {1,1,1,1,1,1,1}
For example, the prime indices of 117 are {2,2,6}, of which only 2 is already in the sequence, so 117 is in the sequence.

Gus Wiseman, Plot of A331912(n)/A331784(n) for n = 1..3729.

Contains all prime powers A000961.
Numbers S without all prime indices in S are A324694.
Numbers S without any prime indices in S are A324695.
Numbers S with at most one prime index in S are A331784.
Numbers S with exactly one prime index in S are A331785.
Numbers S with exactly one distinct prime index in S are A331913.
Cf. A000002, A000720, A001222, A001462, A324696, A331683, A331873, A331914.

aQ[n_]:=Length[Select[PrimePi/@First/@If[n==1,{},FactorInteger[n]],aQ]]<=1;
Select[Range[100],aQ]

A331681 One, two, and all numbers of the form 2^k * prime(j) where k > 0 and j already belongs to the sequence.

Original entry on oeis.org

1, 2, 4, 6, 8, 12, 14, 16, 24, 26, 28, 32, 38, 48, 52, 56, 64, 74, 76, 86, 96, 104, 106, 112, 128, 148, 152, 172, 178, 192, 202, 208, 212, 214, 224, 256, 262, 296, 304, 326, 344, 356, 384, 404, 416, 424, 428, 446, 448, 478, 512, 524, 526, 592, 608, 622, 652

Offset: 1

Gus Wiseman, Jan 26 2020

nonn

Also Matula-Goebel numbers of semi-lone-child-avoiding locally disjoint rooted semi-identity trees. A rooted tree is semi-lone-child-avoiding if there are no vertices with exactly one child unless the child is an endpoint/leaf. Locally disjoint means no branch of any vertex overlaps a different (unequal) branch of the same vertex. In a semi-identity tree, all non-leaf branches of any given vertex are distinct. Note that these conditions together imply that there is at most one non-leaf branch under any given vertex.
Also Matula-Goebel numbers of semi-lone-child-avoiding rooted trees with at most one non-leaf branch under any given vertex.
The Matula-Goebel number of a rooted tree is the product of primes indexed by the Matula-Goebel numbers of its branches (of the root), which gives a bijective correspondence between positive integers and unlabeled rooted trees.

			The sequence of all semi-lone-child-avoiding rooted trees with at most one non-leaf branch under any given vertex, together with their Matula-Goebel numbers, begins:
   1: o
   2: (o)
   4: (oo)
   6: (o(o))
   8: (ooo)
  12: (oo(o))
  14: (o(oo))
  16: (oooo)
  24: (ooo(o))
  26: (o(o(o)))
  28: (oo(oo))
  32: (ooooo)
  38: (o(ooo))
  48: (oooo(o))
  52: (oo(o(o)))
  56: (ooo(oo))
  64: (oooooo)
  74: (o(oo(o)))
  76: (oo(ooo))
  86: (o(o(oo)))

Robert Israel, Table of n, a(n) for n = 1..4000

The enumeration of these trees by nodes is A324969 (essentially A000045).
The enumeration of these trees by leaves appears to be A090129(n + 1).
The (non-semi) lone-child-avoiding version is A331683.
Matula-Goebel numbers of rooted semi-identity trees are A306202.
Lone-child-avoiding locally disjoint rooted trees by leaves are A316697.
The set S of numbers with at most one prime index in S is A331784.
Matula-Goebel numbers of locally disjoint rooted trees are A316495.
Cf. A000081, A000669, A001678, A007097, A061775, A196050, A291636, A316470, A316473, A331679, A331680, A331682, A331687, A331783, A331785, A331873.

N:= 1000: # for terms <= N
S:= {1,2}:
with(queue):
Q:= new(1,2):
while not empty(Q) do
  r:= dequeue(Q);
  p:= ithprime(r);
  newS:= {seq(2^i*p,i=1..ilog2(N/p))} minus S;
  S:= S union newS;
  for s in newS do enqueue(Q,s) od:
od:
sort(convert(S,list)); # Robert Israel, Feb 05 2020

uryQ[n_]:=n==1||MatchQ[FactorInteger[n],({{2,},{p,1}}/;uryQ[PrimePi[p]])|{{2,_}}];
Select[Range[100],uryQ]

Intersection of A306202 (semi-identity), A316495 (locally disjoint), and A331935 (semi-lone-child-avoiding). - Gus Wiseman, Jun 09 2020

A331784 Lexicographically earliest sequence of positive integers that have at most one prime index already in the sequence, counting multiplicity.

Original entry on oeis.org

1, 2, 3, 5, 7, 11, 13, 14, 17, 19, 21, 23, 26, 29, 31, 35, 37, 38, 39, 41, 43, 46, 47, 49, 53, 57, 58, 59, 61, 65, 67, 69, 71, 73, 74, 77, 79, 83, 87, 89, 91, 94, 95, 97, 98, 101, 103, 106, 107, 109, 111, 113, 115, 119, 122, 127, 131, 133, 137, 139, 141, 142

Offset: 1

Gus Wiseman, Feb 01 2020

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.

Conjecture: A331912(n)/a(n) -> 1 as n -> infinity.

			The sequence of terms together with their prime indices begins:
    1: {}        43: {14}       91: {4,6}      141: {2,15}
    2: {1}       46: {1,9}      94: {1,15}     142: {1,20}
    3: {2}       47: {15}       95: {3,8}      143: {5,6}
    5: {3}       49: {4,4}      97: {25}       145: {3,10}
    7: {4}       53: {16}       98: {1,4,4}    147: {2,4,4}
   11: {5}       57: {2,8}     101: {26}       149: {35}
   13: {6}       58: {1,10}    103: {27}       151: {36}
   14: {1,4}     59: {17}      106: {1,16}     157: {37}
   17: {7}       61: {18}      107: {28}       158: {1,22}
   19: {8}       65: {3,6}     109: {29}       159: {2,16}
   21: {2,4}     67: {19}      111: {2,12}     161: {4,9}
   23: {9}       69: {2,9}     113: {30}       163: {38}
   26: {1,6}     71: {20}      115: {3,9}      167: {39}
   29: {10}      73: {21}      119: {4,7}      169: {6,6}
   31: {11}      74: {1,12}    122: {1,18}     173: {40}
   35: {3,4}     77: {4,5}     127: {31}       178: {1,24}
   37: {12}      79: {22}      131: {32}       179: {41}
   38: {1,8}     83: {23}      133: {4,8}      181: {42}
   39: {2,6}     87: {2,10}    137: {33}       182: {1,4,6}
   41: {13}      89: {24}      139: {34}       183: {2,18}
For example, the prime indices of 95 are {3,8}, of which only 3 is in the sequence, so 95 is in the sequence.

Gus Wiseman, Plot of A331912(n)/A331784(n) for n = 1..3729.

Contains all prime numbers A000040.
Numbers S without all prime indices in S are A324694.
Numbers S without any prime indices in S are A324695.
Numbers S with exactly one prime index in S are A331785.
Numbers S with at most one distinct prime index in S are A331912.
Numbers S with exactly one distinct prime index in S are A331913.
Cf. A000002, A000720, A001222, A001462, A324696, A331683, A331873, A331914.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
aQ[n_]:=Length[Cases[primeMS[n],_?aQ]]<=1;
Select[Range[100],aQ]

A331914 Numbers with at most one prime prime index, counted with multiplicity.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 10, 11, 12, 13, 14, 16, 17, 19, 20, 21, 22, 23, 24, 26, 28, 29, 31, 32, 34, 35, 37, 38, 39, 40, 41, 42, 43, 44, 46, 47, 48, 49, 52, 53, 56, 57, 58, 59, 61, 62, 64, 65, 67, 68, 69, 70, 71, 73, 74, 76, 77, 78, 79, 80, 82, 83, 84, 86, 87

Offset: 1

Gus Wiseman, Feb 08 2020

nonn

First differs from A324935 in having 39.

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 sequence of terms together with their prime indices begins:
   1: {}           24: {1,1,1,2}      52: {1,1,6}
   2: {1}          26: {1,6}          53: {16}
   3: {2}          28: {1,1,4}        56: {1,1,1,4}
   4: {1,1}        29: {10}           57: {2,8}
   5: {3}          31: {11}           58: {1,10}
   6: {1,2}        32: {1,1,1,1,1}    59: {17}
   7: {4}          34: {1,7}          61: {18}
   8: {1,1,1}      35: {3,4}          62: {1,11}
  10: {1,3}        37: {12}           64: {1,1,1,1,1,1}
  11: {5}          38: {1,8}          65: {3,6}
  12: {1,1,2}      39: {2,6}          67: {19}
  13: {6}          40: {1,1,1,3}      68: {1,1,7}
  14: {1,4}        41: {13}           69: {2,9}
  16: {1,1,1,1}    42: {1,2,4}        70: {1,3,4}
  17: {7}          43: {14}           71: {20}
  19: {8}          44: {1,1,5}        73: {21}
  20: {1,1,3}      46: {1,9}          74: {1,12}
  21: {2,4}        47: {15}           76: {1,1,8}
  22: {1,5}        48: {1,1,1,1,2}    77: {4,5}
  23: {9}          49: {4,4}          78: {1,2,6}

These are numbers n such that A257994(n) <= 1.
Prime-indexed primes are A006450, with products A076610.
The number of distinct prime prime indices is A279952.
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 exactly one prime prime index are A331915.
Numbers with exactly one distinct prime prime index are A331916.
Numbers with at most one distinct prime prime index are A331995.
Cf. A000040, A000720, A007097, A018252, A112798, A320628, A330945, A331785.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],Count[primeMS[#],_?PrimeQ]<=1&]

A331913 Lexicographically earliest sequence containing 1 and all positive integers that have exactly one distinct prime index already in the sequence.

Original entry on oeis.org

1, 2, 3, 4, 5, 7, 8, 9, 11, 16, 17, 19, 23, 25, 26, 27, 31, 32, 39, 49, 52, 53, 58, 59, 64, 65, 67, 74, 81, 82, 83, 86, 87, 91, 94, 97, 101, 103, 104, 111, 116, 117, 121, 122, 123, 125, 127, 128, 129, 131, 141, 142, 143, 145, 146, 148, 158, 164, 167, 172, 178

Offset: 1

Gus Wiseman, Feb 01 2020

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 sequence of terms together with their prime indices begins:
    1: {}              52: {1,1,6}          116: {1,1,10}
    2: {1}             53: {16}             117: {2,2,6}
    3: {2}             58: {1,10}           121: {5,5}
    4: {1,1}           59: {17}             122: {1,18}
    5: {3}             64: {1,1,1,1,1,1}    123: {2,13}
    7: {4}             65: {3,6}            125: {3,3,3}
    8: {1,1,1}         67: {19}             127: {31}
    9: {2,2}           74: {1,12}           128: {1,1,1,1,1,1,1}
   11: {5}             81: {2,2,2,2}        129: {2,14}
   16: {1,1,1,1}       82: {1,13}           131: {32}
   17: {7}             83: {23}             141: {2,15}
   19: {8}             86: {1,14}           142: {1,20}
   23: {9}             87: {2,10}           143: {5,6}
   25: {3,3}           91: {4,6}            145: {3,10}
   26: {1,6}           94: {1,15}           146: {1,21}
   27: {2,2,2}         97: {25}             148: {1,1,12}
   31: {11}           101: {26}             158: {1,22}
   32: {1,1,1,1,1}    103: {27}             164: {1,1,13}
   39: {2,6}          104: {1,1,1,6}        167: {39}
   49: {4,4}          111: {2,12}           172: {1,1,14}

Contains all prime powers A000961.
Numbers S without all prime indices in S are A324694.
Numbers S without any prime indices in S are A324695.
Numbers S with at most one prime index in S are A331784.
Numbers S with exactly one prime index in S are A331785.
Numbers S with at most one distinct prime index in S are A331912.
Cf. A000002, A000720, A001222, A001462, A324696, A331683, A331873, A331915, A331916.

aQ[n_]:=n==1||Length[Select[PrimePi/@First/@FactorInteger[n],aQ]]==1;
Select[Range[200],aQ]

A331916 Numbers with exactly one distinct prime prime index.

Original entry on oeis.org

3, 5, 6, 9, 10, 11, 12, 17, 18, 20, 21, 22, 24, 25, 27, 31, 34, 35, 36, 39, 40, 41, 42, 44, 48, 50, 54, 57, 59, 62, 63, 65, 67, 68, 69, 70, 72, 77, 78, 80, 81, 82, 83, 84, 87, 88, 95, 96, 100, 108, 109, 111, 114, 115, 117, 118, 119, 121, 124, 125, 126, 127

Offset: 1

Gus Wiseman, Feb 08 2020

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 sequence of terms together with their prime indices begins:
    3: {2}           40: {1,1,1,3}       81: {2,2,2,2}
    5: {3}           41: {13}            82: {1,13}
    6: {1,2}         42: {1,2,4}         83: {23}
    9: {2,2}         44: {1,1,5}         84: {1,1,2,4}
   10: {1,3}         48: {1,1,1,1,2}     87: {2,10}
   11: {5}           50: {1,3,3}         88: {1,1,1,5}
   12: {1,1,2}       54: {1,2,2,2}       95: {3,8}
   17: {7}           57: {2,8}           96: {1,1,1,1,1,2}
   18: {1,2,2}       59: {17}           100: {1,1,3,3}
   20: {1,1,3}       62: {1,11}         108: {1,1,2,2,2}
   21: {2,4}         63: {2,2,4}        109: {29}
   22: {1,5}         65: {3,6}          111: {2,12}
   24: {1,1,1,2}     67: {19}           114: {1,2,8}
   25: {3,3}         68: {1,1,7}        115: {3,9}
   27: {2,2,2}       69: {2,9}          117: {2,2,6}
   31: {11}          70: {1,3,4}        118: {1,17}
   34: {1,7}         72: {1,1,1,2,2}    119: {4,7}
   35: {3,4}         77: {4,5}          121: {5,5}
   36: {1,1,2,2}     78: {1,2,6}        124: {1,1,11}
   39: {2,6}         80: {1,1,1,1,3}    125: {3,3,3}

These are numbers n such that A279952(n) = 1.
Prime-indexed primes are A006450, with products A076610.
The number of prime prime indices is A257994.
Numbers with at least one prime prime index are A331386.
The set S of numbers with exactly one prime index in S are A331785.
The set S of numbers with exactly one distinct prime index in S are A331913.
Numbers with at most one prime prime index are A331914.
Numbers with at most one distinct prime prime index are A331995.
Cf. A000040, A000720, A007097, A007821, A018252, A112798, A289509, A320628, A330944, A330945, A331784.

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

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

Gus Wiseman, Feb 08 2020

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

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.
Cf. A000040, A000720, A001221, A007097, A007821, A112798, A257994, A320628, A330944, A331785, A331912, A331913.

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

cp's OEIS Frontend

A331915 Numbers with exactly one prime prime index, counted with multiplicity.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A331912 Lexicographically earliest sequence of positive integers that have at most one distinct prime index already in the sequence.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A331681 One, two, and all numbers of the form 2^k * prime(j) where k > 0 and j already belongs to the sequence.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Formula

A331784 Lexicographically earliest sequence of positive integers that have at most one prime index already in the sequence, counting multiplicity.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A331914 Numbers with at most one prime prime index, counted with multiplicity.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A331913 Lexicographically earliest sequence containing 1 and all positive integers that have exactly one distinct prime index already in the sequence.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A331916 Numbers with exactly one distinct prime prime index.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A331995 Numbers with at most one distinct prime prime index.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica