A320628 -id:A320628 - cp's OEIS frontend

A379304 Number of integer partitions of n with a unique prime part.

0, 0, 1, 2, 2, 3, 4, 6, 7, 9, 11, 17, 20, 26, 31, 41, 47, 62, 72, 93, 108, 136, 156, 199, 226, 279, 321, 398, 452, 555, 630, 767, 873, 1051, 1188, 1433, 1618, 1930, 2185, 2595, 2921, 3458, 3891, 4580, 5155, 6036, 6776, 7926, 8883, 10324, 11577, 13421, 15014

Offset: 0

Gus Wiseman, Dec 27 2024

nonn

			The a(2) = 1 through a(9) = 9 partitions:
  (2)  (3)   (31)   (5)     (42)     (7)       (62)       (54)
       (21)  (211)  (311)   (51)     (43)      (71)       (63)
                    (2111)  (3111)   (421)     (431)      (621)
                            (21111)  (511)     (4211)     (711)
                                     (31111)   (5111)     (4311)
                                     (211111)  (311111)   (42111)
                                               (2111111)  (51111)
                                                          (3111111)
                                                          (21111111)

For all prime parts we have A000607 (strict A000586), ranks A076610.
For no prime parts we have A002095 (strict A096258), ranks A320628.
Ranked by A331915 = positions of one in A257994.
For a unique composite part we have A379302 (strict A379303), ranks A379301.
The strict case is A379305.
For squarefree instead of prime we have A379308 (strict A379309), ranks A379316.
Considering 1 prime gives A379314 (strict A379315), ranks A379312.
A000040 lists the prime numbers, differences A001223.
A000041 counts integer partitions, strict A000009.
A002808 lists the composite numbers, nonprimes A018252, differences A073783 or A065310.
A095195 gives k-th differences of prime numbers.
Cf. A000070, A023895, A034891, A036497, A204389, A302540, A330944.

Table[Length[Select[IntegerPartitions[n],Count[#,_?PrimeQ]==1&]],{n,0,30}]

A379305 Number of strict integer partitions of n with a unique prime part.

Original entry on oeis.org

0, 0, 1, 2, 1, 1, 2, 3, 3, 3, 3, 6, 8, 8, 8, 10, 12, 17, 18, 18, 22, 28, 30, 36, 40, 44, 52, 62, 67, 78, 87, 97, 113, 129, 137, 156, 177, 200, 227, 251, 271, 312, 350, 382, 425, 475, 521, 588, 648, 705, 785, 876, 957, 1061, 1164, 1272, 1411, 1558, 1693, 1866

Offset: 0

Gus Wiseman, Dec 27 2024

nonn

			The a(2) = 1 through a(12) = 8 partitions (A=10, B=11):
  (2)  (3)   (31)  (5)  (42)  (7)    (62)   (54)   (82)   (B)    (93)
       (21)             (51)  (43)   (71)   (63)   (541)  (65)   (A2)
                              (421)  (431)  (621)  (631)  (74)   (B1)
                                                          (83)   (642)
                                                          (92)   (651)
                                                          (821)  (741)
                                                                 (831)
                                                                 (921)

For all prime parts we have A000586, non-strict A000607 (ranks A076610).
For no prime parts we have A096258, non-strict A002095 (ranks A320628).
Ranked by A331915 /\ A005117 = squarefree positions of one in A257994.
For a composite instead of prime we have A379303, non-strict A379302 (ranks A379301).
The non-strict version is A379304.
For squarefree instead of prime we have A379309, non-strict A379308 (ranks A379316).
Considering 1 prime gives A379315, non-strict A379314 (ranks A379312).
A000040 lists the prime numbers, differences A001223.
A000041 counts integer partitions, strict A000009.
A002808 lists the composite numbers, nonprimes A018252, differences A073783 or A065310.
A095195 gives k-th differences of prime numbers.
Cf. A000070, A023895, A034891, A036497, A038348, A204389, A302540, A320629, A330944.

Table[Length[Select[IntegerPartitions[n],UnsameQ@@#&&Count[#,_?PrimeQ]==1&]],{n,0,30}]

A339112 Products of primes of semiprime index (A106349).

Original entry on oeis.org

1, 7, 13, 23, 29, 43, 47, 49, 73, 79, 91, 97, 101, 137, 139, 149, 161, 163, 167, 169, 199, 203, 227, 233, 257, 269, 271, 293, 299, 301, 313, 329, 343, 347, 373, 377, 389, 421, 439, 443, 449, 467, 487, 491, 499, 511, 529, 553, 559, 577, 607, 611, 631, 637, 647

Offset: 1

Gus Wiseman, Mar 12 2021

nonn

A semiprime (A001358) is a product of any two prime numbers.

Also MM-numbers of labeled multigraphs with loops (without uncovered 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}}.

			The sequence of terms together with the corresponding multigraphs begins (A..F = 10..15):
     1:            149:   (34)     313:     (36)
     7:   (11)     161: (11)(22)   329:   (11)(23)
    13:   (12)     163:   (18)     343: (11)(11)(11)
    23:   (22)     167:   (26)     347:     (29)
    29:   (13)     169: (12)(12)   373:     (1C)
    43:   (14)     199:   (19)     377:   (12)(13)
    47:   (23)     203: (11)(13)   389:     (45)
    49: (11)(11)   227:   (44)     421:     (1D)
    73:   (24)     233:   (27)     439:     (37)
    79:   (15)     257:   (35)     443:     (1E)
    91: (11)(12)   269:   (28)     449:     (2A)
    97:   (33)     271:   (1A)     467:     (46)
   101:   (16)     293:   (1B)     487:     (2B)
   137:   (25)     299: (12)(22)   491:     (1F)
   139:   (17)     301: (11)(14)   499:     (38)

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

These primes (of semiprime index) are listed by A106349.
The strict (squarefree) case is A340020.
The prime instead of semiprime version:
  primes: A006450
  products: A076610
  strict: A302590
The nonprime instead of semiprime version:
  primes: A007821
  products: A320628
  odd: A320629
  strict: A340104
  odd strict: A340105
The squarefree semiprime instead of semiprime version:
  strict: A309356
  primes: A322551
  products: A339113
A001358 lists semiprimes, with odd and even terms A046315 and A100484.
A006881 lists squarefree semiprimes.
A037143 lists primes and semiprimes (and 1).
A056239 gives the sum of prime indices, which are listed by A112798.
A084126 and A084127 give the prime factors of semiprimes.
A101048 counts partitions into semiprimes.
A302242 is the weight of the multiset of multisets with MM-number n.
A305079 is the number of connected components for MM-number n.
A320892 lists even-omega non-products of distinct semiprimes.
A320911 lists products of squarefree semiprimes (Heinz numbers of A338914).
A320912 lists products of distinct semiprimes (Heinz numbers of A338916).
A338898, A338912, and A338913 give the prime indices of 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).
Cf. A000040, A000720, A001055, A001222, A003963, A005117, A007097, A289509, A320461.

N:= 1000: # for terms up to N
SP:= {}: p:= 1:
for i from 1 do
  p:= nextprime(p);
  if 2*p > N then break fi;
  Q:= map(t -> p*t, select(isprime, {2,seq(i,i=3..min(p,N/p),2)}));
  SP:= SP union Q;
od:
SP:= sort(convert(SP,list)):
PSP:= map(ithprime,SP):
R:= {1}:
for p in PSP do
  Rp:= {}:
  for k from 1 while p^k <= N do
    Rpk:= select(`<=`,R, N/p^k);
    Rp:= Rp union map(`*`,Rpk, p^k);
  od;
  R:= R union Rp;
od:
sort(convert(R,list)); # Robert Israel, Nov 03 2024

semiQ[n_]:=PrimeOmega[n]==2;
Select[Range[100],FreeQ[If[#==1,{},FactorInteger[#]],{p_,k_}/;!semiQ[PrimePi[p]]]&]

A379312 Positive integers whose prime indices include a unique 1 or prime number.

Original entry on oeis.org

2, 3, 5, 11, 14, 17, 21, 26, 31, 35, 38, 39, 41, 46, 57, 58, 59, 65, 67, 69, 74, 77, 83, 86, 87, 94, 95, 98, 106, 109, 111, 115, 119, 122, 127, 129, 141, 142, 143, 145, 146, 147, 157, 158, 159, 178, 179, 182, 183, 185, 191, 194, 202, 206, 209, 211, 213, 214

Offset: 1

Gus Wiseman, Dec 28 2024

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 terms together with their prime indices begin:
    2: {1}
    3: {2}
    5: {3}
   11: {5}
   14: {1,4}
   17: {7}
   21: {2,4}
   26: {1,6}
   31: {11}
   35: {3,4}
   38: {1,8}
   39: {2,6}
   41: {13}
   46: {1,9}
   57: {2,8}
   58: {1,10}
   59: {17}
   65: {3,6}
   67: {19}
   69: {2,9}
   74: {1,12}
   77: {4,5}

These "old" primes are listed by A008578.
For no composite parts we have A302540, counted by A034891 (strict A036497).
For all composite parts we have A320629, counted by A023895 (strict A204389).
For a unique prime part we have A331915, counted by A379304 (strict A379305).
Positions of ones in A379311, see A379313.
Partitions of this type are counted by A379314, strict A379315.
A000040 lists the prime numbers, differences A001223.
A002808 lists the composite numbers, nonprimes A018252, differences A073783 or A065310.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798, counted by A001222.
A080339 is the characteristic function for the old prime numbers.
A376682 gives k-th differences of old prime numbers, see A030016, A075526.
Other counts of prime indices:
- A257991 odd, see A000041, A000070, A066207, A349158.
- A257992 even, see A000009, A038348, A066208, A379317.
- A257994 prime, see A000586, A000607, A076610, A331386.
- A330944 nonprime, see A002095, A096258, A320628, A330945.
- A379306 squarefree, see A302478, A379308, A379309, A379316.
- A379310 nonsquarefree, see A114374, A256012, A379307.
Cf. A038550, A073445, A087436, A173390, A379300, A379301, A379302.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[1000],Length[Select[prix[#],#==1||PrimeQ[#]&]]==1&]

A379316 Positive integers whose prime indices include a unique squarefree number.

Original entry on oeis.org

2, 3, 5, 11, 13, 14, 17, 21, 29, 31, 35, 38, 41, 43, 46, 47, 57, 59, 67, 69, 73, 74, 77, 79, 83, 91, 95, 98, 101, 106, 109, 111, 113, 115, 119, 122, 127, 137, 139, 142, 147, 149, 157, 159, 163, 167, 178, 179, 181, 183, 185, 191, 194, 199, 203, 206, 209, 211

Offset: 1

Gus Wiseman, Dec 29 2024

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 terms together with their prime indices begin:
    2: {1}
    3: {2}
    5: {3}
   11: {5}
   13: {6}
   14: {1,4}
   17: {7}
   21: {2,4}
   29: {10}
   31: {11}
   35: {3,4}
   38: {1,8}
   41: {13}
   43: {14}
   46: {1,9}

For all squarefree parts we have A302478, zeros of A379310.
Positions of 1 in A379306.
For no squarefree parts we have A379307, counted by A114374, strict A256012.
Partitions of this type are counted by A379308, strict A379309.
A000040 lists the primes, differences A001223.
A005117 lists the squarefree numbers, differences A076259.
A008966 is the characteristic function for the squarefree numbers.
A013929 lists the nonsquarefree numbers, differences A078147.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798, counted by A001222.
Other counts of prime indices:
- A257991 odd, see A000041, A000070, A066207, A349158.
- A257992 even, see A000009, A038348, A066208, A379317.
- A257994 prime, see A002095, A096258, A320628, A331386, A331915, A379304, A379305.
- A330944 nonprime, see A000586, A000607, A076610, A330945.
- A379300 composite, see A023895, A034891, A036497, A302540, A379301.
- A379311 prime or 1, see A204389, A320629, A379312-A379315.
Cf. A000720, A013928, A038550, A057627, A068361, A070321, A072284, A087436, A112929, A377430.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[1000],Length[Select[prix[#],SquareFreeQ]]==1&]

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[#]]&]

A379300 Number of prime indices of n that are composite.

Original entry on oeis.org

0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 0, 0, 0, 0, 1, 0, 1, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 2, 0, 0, 1, 1, 0, 0, 1, 1, 1, 0, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 1, 1, 0, 1, 1, 0, 1, 1, 1, 1, 0, 0, 0, 0, 1, 0, 1, 1

Offset: 1

Gus Wiseman, Dec 25 2024

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 prime indices of 39 are {2,6}, so a(39) = 1.
The prime indices of 70 are {1,3,4}, so a(70) = 1.
The prime indices of 98 are {1,4,4}, so a(98) = 2.
The prime indices of 294 are {1,2,4,4}, a(294) = 2.
The prime indices of 1911 are {2,4,4,6}, so a(1911) = 3.
The prime indices of 2548 are {1,1,4,4,6}, so a(2548) = 3.

Positions of first appearances are A000420.
Positions of zero are A302540, counted by A034891 (strict A036497).
Positions of one are A379301, counted by A379302 (strict A379303).
A000040 lists the prime numbers, differences A001223.
A002808 lists the composite numbers, nonprimes A018252, differences A073783 or A065310.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798, counted by A001222.
A066247 is the characteristic function for the composite numbers.
A377033 gives k-th differences of composite numbers, see A073445, A377034-A377037.
Other counts of prime indices:
- A087436 postpositive, see A038550.
- A257991 odd, see A000041, A000070, A066207, A349158.
- A257992 even, see A000009, A038348, A066208, A379317.
- A257994 prime, see A000586, A000607, A076610, A331386, A331915, A379304, A379305.
- A330944 nonprime, see A002095, A096258, A320628, A330945.
- A379306 squarefree, see A302478, A379308, A379309, A379316.
- A379310 nonsquarefree, see A114374, A256012, A379307.
- A379311 old prime, see A379312-A379315.
Cf. A023895, A113646, A175804, A204389, A320629, A376680, A378373, A378456.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Table[Length[Select[prix[n],CompositeQ]],{n,100}]

Totally additive with a(prime(k)) = A066247(k).

A379311 Number of prime indices of n that are 1 or prime.

Original entry on oeis.org

0, 1, 1, 2, 1, 2, 0, 3, 2, 2, 1, 3, 0, 1, 2, 4, 1, 3, 0, 3, 1, 2, 0, 4, 2, 1, 3, 2, 0, 3, 1, 5, 2, 2, 1, 4, 0, 1, 1, 4, 1, 2, 0, 3, 3, 1, 0, 5, 0, 3, 2, 2, 0, 4, 2, 3, 1, 1, 1, 4, 0, 2, 2, 6, 1, 3, 1, 3, 1, 2, 0, 5, 0, 1, 3, 2, 1, 2, 0, 5, 4, 2, 1, 3, 2, 1, 1

Offset: 1

Gus Wiseman, Dec 27 2024

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 prime indices of 39 are {2,6}, so a(39) = 1.
The prime indices of 70 are {1,3,4}, so a(70) = 2.
The prime indices of 98 are {1,4,4}, so a(98) = 1.
The prime indices of 294 are {1,2,4,4}, a(294) = 2.
The prime indices of 1911 are {2,4,4,6}, so a(1911) = 1.
The prime indices of 2548 are {1,1,4,4,6}, so a(2548) = 2.

Positions of first appearances are A000079.
These "old" primes are listed by A008578.
Positions of zero are A320629, counted by A023895 (strict A204389).
Positions of one are A379312, counted by A379314 (strict A379315).
Positions of nonzero terms are A379313.
A000040 lists the prime numbers, differences A001223.
A002808 lists the composite numbers, nonprimes A018252, differences A073783 or A065310.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798, counted by A001222.
A080339 is the characteristic function for the old prime numbers.
A376682 gives k-th differences of old prime numbers, see A030016, A075526, A173390, A376683, A376855.
Other counts of prime indices:
- A257991 odd, see A000041, A000070, A066207, A349158.
- A257992 even, see A000009, A038348, A066208, A379317.
- A257994 prime, see A000586, A000607, A076610, A331386, A331915, A379304, A379305.
- A330944 nonprime, see A002095, A096258, A320628, A330945.
- A379306 squarefree, see A302478, A379308, A379309, A379316.
- A379310 nonsquarefree, see A114374, A256012, A379307.
Cf. A034891, A036234, A036497, A038550, A087436, A302540, A379300, A379301.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Table[Length[Select[prix[n],#==1||PrimeQ[#]&]],{n,100}]

Totally additive with a(prime(k)) = A080339(k).

A379314 Number of integer partitions of n with a unique 1 or prime part.

Original entry on oeis.org

0, 1, 1, 1, 0, 2, 1, 3, 1, 4, 3, 8, 3, 10, 6, 14, 8, 22, 12, 30, 18, 40, 26, 58, 33, 76, 53, 103, 69, 140, 94, 185, 132, 239, 176, 323, 232, 417, 320, 536, 414, 704, 544, 900, 721, 1145, 936, 1481, 1198, 1867, 1571, 2363, 2001, 3003, 2550, 3768, 3275, 4712

Offset: 0

Gus Wiseman, Dec 28 2024

nonn

			The a(10) = 3 through a(15) = 14 partitions:
  (8,2)    (11)     (9,3)    (13)       (9,5)      (8,7)
  (9,1)    (6,5)    (10,2)   (7,6)      (12,2)     (10,5)
  (4,4,2)  (7,4)    (6,4,2)  (8,5)      (6,6,2)    (11,4)
           (8,3)             (10,3)     (8,4,2)    (12,3)
           (9,2)             (12,1)     (9,4,1)    (14,1)
           (10,1)            (5,4,4)    (4,4,4,2)  (6,5,4)
           (4,4,3)           (6,4,3)               (6,6,3)
           (6,4,1)           (6,6,1)               (7,4,4)
                             (8,4,1)               (8,4,3)
                             (4,4,4,1)             (8,6,1)
                                                   (9,4,2)
                                                   (10,4,1)
                                                   (4,4,4,3)
                                                   (6,4,4,1)

Andrew Howroyd, Table of n, a(n) for n = 0..1000

For all prime parts we have A000607 (strict A000586), ranks A076610.
For no prime parts we have A002095 (strict A096258), ranks A320628.
Ranked by A379312 = positions of 1 in A379311.
For a unique composite part we have A379302 (strict A379303), ranks A379301.
The strict case is A379315.
For squarefree instead of old prime we have A379308 (strict A379309), ranks A379316.
Considering 1 nonprime gives A379304 (strict A379305), ranks A331915.
A000040 lists the prime numbers, differences A001223.
A000041 counts integer partitions, strict A000009.
A002808 lists the composite numbers, nonprimes A018252, differences A073783 or A065310.
A376682 gives k-th differences of old primes.
Cf. A000070, A023895, A034891, A036497, A095195, A175804, A204389, A257994, A302540, A330944.

Table[Length[Select[IntegerPartitions[n],Count[#,_?(#==1||PrimeQ[#]&)]==1&]],{n,0,30}]

seq(n)={Vec(sum(k=1, n, if(isprime(k) || k==1, x^k))/prod(k=4, n, 1 - if(!isprime(k), x^k), 1 + O(x^n)), -n-1)} \\ Andrew Howroyd, Dec 28 2024

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

Gus Wiseman, Jan 13 2020

nonn

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.

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

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.
Cf. A000669, A001678, A006450, A007097, A007821, A061775, A196050, A257994, A276625, A277098, A320628, A330944, A330948.

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]

cp's OEIS Frontend

A379304 Number of integer partitions of n with a unique prime part.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

A379305 Number of strict integer partitions of n with a unique prime part.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

A339112 Products of primes of semiprime index (A106349).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

A379312 Positive integers whose prime indices include a unique 1 or prime number.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A379316 Positive integers whose prime indices include a unique squarefree number.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A320633 Composite numbers whose prime indices are also composite.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A379300 Number of prime indices of n that are composite.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A379311 Number of prime indices of n that are 1 or prime.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A379314 Number of integer partitions of n with a unique 1 or prime part.

Views

Author

Keywords

Examples