A050326 -id:A050326 - cp's OEIS frontend

A179670 Numbers of the form p^3qr*s where p, q, r, and s are distinct primes.

840, 1320, 1560, 1848, 1890, 2040, 2184, 2280, 2760, 2856, 2970, 3080, 3192, 3432, 3480, 3510, 3640, 3720, 3864, 4158, 4440, 4488, 4590, 4760, 4872, 4914, 4920, 5016, 5130, 5160, 5208, 5250, 5304, 5320, 5640, 5720, 5928, 6072, 6210, 6216, 6360, 6426

Offset: 1

Vladimir Joseph Stephan Orlovsky, Jul 23 2010

nonn

A050326(a(n)) = 7. - Reinhard Zumkeller, May 03 2013

T. D. Noe, Table of n, a(n) for n = 1..1000
Will Nicholes, Prime Signatures
Index to sequences related to prime signature

f[n_]:=Sort[Last/@FactorInteger[n]]=={1,1,1,3}; Select[Range[10000], f]
Take[#[[1]]^3 #[[2]]#[[3]]#[[4]]&/@Flatten[Permutations/@Subsets[Prime[ Range[20]],{4}],1]//Union,50] (* Harvey P. Dale, May 16 2021 *)

list(lim)=my(v=List(),t1,t2,t3); forprime(p=2,sqrtnint(lim\30, 3), t1=p^3; forprime(q=2,lim\(6*t1), if(q==p, next); t2=q*t1; forprime(r=2,lim\(2*t2), if(r==p || r==q, next); t3=r*t2; forprime(s=2,lim\t3, if(s==p || s==q || s==r, next); listput(v, t3*s))))); Set(v) \\ Charles R Greathouse IV, Aug 25 2016

A212164 Numbers k such that the maximum exponent in its prime factorization is greater than the number of positive exponents (A051903(k) > A001221(k)).

Original entry on oeis.org

4, 8, 9, 16, 24, 25, 27, 32, 40, 48, 49, 54, 56, 64, 72, 80, 81, 88, 96, 104, 108, 112, 121, 125, 128, 135, 136, 144, 152, 160, 162, 169, 176, 184, 189, 192, 200, 208, 216, 224, 232, 240, 243, 248, 250, 256, 272, 288, 289, 296, 297, 304, 320, 324, 328, 336

Offset: 1

Matthew Vandermast, May 22 2012

			40 = 2^3*5^1 has 2 distinct prime factors, hence, 2 positive exponents in its prime factorization (namely, 3 and 1, although the 1 is often left implicit).   2 is less than the maximal exponent in 40's prime factorization, which is 3. Therefore, 40 belongs to the sequence.

M. Abramowitz and I. A. Stegun, eds., Handbook of Mathematical Functions, National Bureau of Standards Applied Math. Series 55, 1964 (and various reprintings), p. 844.

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
M. Abramowitz and I. A. Stegun, eds., Handbook of Mathematical Functions, National Bureau of Standards, Applied Math. Series 55, Tenth Printing, 1972 [alternative scanned copy].
Primefan, The First 2500 Integers Factored (first of 5 pages).

Complement of A212167.
See also A212165, A212166, A212168.
Cf. A001221, A050326, A051903, A225230.
Subsequence of A188654.

import Data.List (elemIndices)
a212164 n = a212164_list !! (n-1)
a212164_list = map (+ 1) $ findIndices (< 0) a225230_list
-- Reinhard Zumkeller, May 03 2013

okQ[n_] := Module[{f = Transpose[FactorInteger[n]][[2]]}, Max[f] > Length[f]]; Select[Range[1000], okQ] (* T. D. Noe, May 24 2012 *)

is(k) = {my(e = factor(k)[, 2]); #e && vecmax(e) > #e;} \\ Amiram Eldar, Sep 08 2024

A225230(a(n)) < 0; A050326(a(n)) = 0. - Reinhard Zumkeller, May 03 2013

A212167 Numbers k such that the maximum exponent in its prime factorization is not greater than the number of positive exponents (A051903(k) <= A001221(k)).

Original entry on oeis.org

1, 2, 3, 5, 6, 7, 10, 11, 12, 13, 14, 15, 17, 18, 19, 20, 21, 22, 23, 26, 28, 29, 30, 31, 33, 34, 35, 36, 37, 38, 39, 41, 42, 43, 44, 45, 46, 47, 50, 51, 52, 53, 55, 57, 58, 59, 60, 61, 62, 63, 65, 66, 67, 68, 69, 70, 71, 73, 74, 75, 76, 77, 78, 79, 82, 83

Offset: 1

Matthew Vandermast, May 22 2012

nonn

Union of A212166 and A212168. Includes numerous subsequences that are subsequences of neither A212166 nor A212168.

			40 = 2^3*5^1 has 2 distinct prime factors, hence, 2 positive exponents in its prime factorization (although the 1 is often left implicit).  2 is less than the maximal exponent in 40's prime factorization, which is 3. Therefore, 40 does not belong to the sequence. But 10 = 2^1*5^1 and 20 = 2^2*5^1 belong, since the maximal exponents in their prime factorizations are 1 and 2 respectively.

M. Abramowitz and I. A. Stegun, eds., Handbook of Mathematical Functions, National Bureau of Standards Applied Math. Series 55, 1964 (and various reprintings), p. 844.

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
M. Abramowitz and I. A. Stegun, eds., Handbook of Mathematical Functions, National Bureau of Standards, Applied Math. Series 55, Tenth Printing, 1972 [alternative scanned copy].
Primefan, The First 2500 Integers Factored (first of 5 pages).

Complement of A212164. See also A212165.
Subsequences (none of which are subsequences of A212166 or A212168) include A002110, A051451, A129912, A179983, A181826, A181827, A182862, A182863. Includes all members of A003418.
Cf. A001221, A050326, A051903, A188654, A225230.

import Data.List (findIndices)
a212167 n = a212167_list !! (n-1)
a212167_list = map (+ 1) $ findIndices (>= 0) a225230_list
-- Reinhard Zumkeller, May 03 2013

isA212167 := proc(n)
    simplify(A051903(n) <= A001221(n)) ;
end proc:
for n from 1 to 1000 do
    if isA212167(n) then
        printf("%d,",n) ;
    end if;
end do: # R. J. Mathar, Jan 06 2021

okQ[n_] := Module[{f = Transpose[FactorInteger[n]][[2]]}, Max[f] <= Length[f]]; Select[Range[1000], okQ] (* T. D. Noe, May 24 2012 *)

is(k) = {my(e = factor(k)[, 2]); !(#e) || vecmax(e) <= #e; } \\ Amiram Eldar, Sep 09 2024

A225230(a(n)) >= 0; A050326(a(n)) > 0. - Reinhard Zumkeller, May 03 2013

A323790 Number of non-isomorphic weight-n sets of sets of sets.

Original entry on oeis.org

1, 1, 3, 9, 33, 113, 474, 1985

Offset: 0

Gus Wiseman, Jan 27 2019

Non-isomorphic sets of sets are counted by A283877.
All sets and multisets must be finite, and only the outermost may be empty.
The weight of an atom is 1, and the weight of a multiset is the sum of weights of its elements, counting multiplicity.

			Non-isomorphic representatives of the a(1) = 1 through a(3) = 9 sets of sets of sets:
  {{1}}  {{12}}      {{123}}
         {{1}{2}}    {{1}{12}}
         {{1}}{{2}}  {{1}{23}}
                     {{1}}{{12}}
                     {{1}}{{23}}
                     {{1}{2}{3}}
                     {{1}}{{1}{2}}
                     {{1}}{{2}{3}}
                     {{1}}{{2}}{{3}}
Non-isomorphic representatives of the a(4) = 33 sets of sets of sets:
  {{1234}}             {{1}{123}}         {{1}{2}{12}}       {{1}}{{1}{12}}
  {{1}{234}}           {{12}{13}}         {{1}}{{2}{12}}
  {{12}{34}}           {{1}}{{123}}       {{12}}{{1}{2}}
  {{1}}{{234}}         {{1}{2}{13}}       {{1}}{{2}}{{12}}
  {{1}{2}{34}}         {{12}}{{13}}       {{1}}{{2}}{{1}{2}}
  {{12}}{{34}}         {{1}}{{1}{23}}
  {{1}}{{2}{34}}       {{1}}{{2}{13}}
  {{1}{2}{3}{4}}       {{12}}{{1}{3}}
  {{12}}{{3}{4}}       {{2}}{{1}{13}}
  {{1}}{{2}}{{34}}     {{1}}{{1}{2}{3}}
  {{1}}{{2}{3}{4}}     {{1}}{{2}}{{13}}
  {{1}{2}}{{3}{4}}     {{1}{2}}{{1}{3}}
  {{1}}{{2}}{{3}{4}}   {{1}}{{2}}{{1}{3}}
  {{1}}{{2}}{{3}}{{4}}

Cf. A004111, A007716, A049311, A050326, A050343, A283877, A306186, A316980, A318564, A318565, A318566, A318812.

Cf. A323787, A323788, A323789, A323791, A323792, A323793, A323794, A323795.

A381996 Number of non-isomorphic multisets of size n that can be partitioned into a set of sets.

Original entry on oeis.org

1, 1, 1, 2, 3, 4, 6, 9, 13, 18, 25, 34, 47

Offset: 0

Gus Wiseman, Mar 31 2025

First differs from A382523 at a(12) = 47, A382523(12) = 45.

We call a multiset non-isomorphic iff it covers an initial interval of positive integers with weakly decreasing multiplicities. The size of a multiset is the number of elements, counting multiplicity.

			Differs from A382523 in counting the following under a(12):
  {1,1,1,1,1,1,2,2,3,3,4,5} with partition {{1},{1,2},{1,3},{1,4},{1,5},{1,2,3}}
  {1,1,1,1,2,2,2,2,3,3,3,3} with partition {{1},{2},{3},{1,2},{1,3},{2,3},{1,2,3}}

Factorizations of this type are counted by A050326, distinct sums A381633.
Normal multiset partitions of this type are counted by A116539, distinct sums A381718.
The complement is counted by A292444.
Twice-partitions of this type are counted by A358914, distinct sums A279785.
For integer partitions we have A382077, ranks A382200, complement A382078, ranks A293243.
Weak version is A382214, complement A292432, distinct sums A382216, complement A382202.
For distinct sums we have A382523, complement A382430.
Normal multiset partitions: A034691, A035310, A116540, A255906.
Set systems: A050342, A296120, A318361.
Set multipartitions: A089259, A270995, A296119, A318360.
Cf. A000110, A000670, A007716, A050320, A255903, A317532, A326519, A381992, A382428, A382458, A382459.

strnorm[n_]:=Flatten[MapIndexed[Table[#2,{#1}]&,#]]& /@ IntegerPartitions[n];
sps[{}]:={{}};sps[set:{i_,_}] := Join@@Function[s,Prepend[#,s]& /@ sps[Complement[set,s]]]/@Cases[Subsets[set],{i,_}];
mps[set_]:=Union[Sort[Sort /@ (#/.x_Integer:>set[[x]])]&/@sps[Range[Length[set]]]];
Table[Length[Select[strnorm[n], Select[mps[#], UnsameQ@@#&&And@@UnsameQ@@@#&]!={}&]], {n,0,5}]

A323791 Number of non-isomorphic weight-n sets of multisets of sets.

Original entry on oeis.org

1, 1, 4, 13, 52, 196, 877, 3917

Offset: 0

Gus Wiseman, Jan 27 2019

All sets and multisets must be finite, and only the outermost may be empty.

The weight of an atom is 1, and the weight of a multiset is the sum of weights of its elements, counting multiplicity.

			Non-isomorphic representatives of the a(1) = 1 through a(3) = 13 sets of multisets of sets:
  {{1}}  {{12}}      {{123}}
         {{1}{1}}    {{1}{12}}
         {{1}{2}}    {{1}{23}}
         {{1}}{{2}}  {{1}{1}{1}}
                     {{1}}{{12}}
                     {{1}{1}{2}}
                     {{1}}{{23}}
                     {{1}{2}{3}}
                     {{1}}{{1}{1}}
                     {{1}}{{1}{2}}
                     {{1}}{{2}{3}}
                     {{2}}{{1}{1}}
                     {{1}}{{2}}{{3}}

Cf. A007716, A049311, A050326, A050343, A283877, A306186, A316980, A318564, A318565, A318566, A318812.

Cf. A323787, A323788, A323789, A323790, A323792, A323793, A323794, A323795.

A323792 Number of non-isomorphic weight-n multisets of sets of sets.

Original entry on oeis.org

1, 1, 4, 11, 43, 145, 614, 2549

Offset: 0

Gus Wiseman, Jan 27 2019

All sets and multisets must be finite, and only the outermost may be empty.

The weight of an atom is 1, and the weight of a multiset is the sum of weights of its elements, counting multiplicity.

			Non-isomorphic representatives of the a(1) = 1 through a(3) = 11 multiset partitions:
  {{1}}  {{12}}      {{123}}
         {{1}{2}}    {{1}{12}}
         {{1}}{{1}}  {{1}{23}}
         {{1}}{{2}}  {{1}}{{12}}
                     {{1}}{{23}}
                     {{1}{2}{3}}
                     {{1}}{{1}{2}}
                     {{1}}{{2}{3}}
                     {{1}}{{1}}{{1}}
                     {{1}}{{1}}{{2}}
                     {{1}}{{2}}{{3}}

Cf. A007716, A049311, A050326, A050343, A255906, A283877, A306186, A316980, A318564, A318565, A318566.

Cf. A323787, A323788, A323789, A323790, A323791, A323793, A323794, A323795.

A339740 Non-products of distinct primes or squarefree semiprimes.

Original entry on oeis.org

4, 8, 9, 16, 24, 25, 27, 32, 40, 48, 49, 54, 56, 64, 72, 80, 81, 88, 96, 104, 108, 112, 121, 125, 128, 135, 136, 144, 152, 160, 162, 169, 176, 184, 189, 192, 200, 208, 216, 224, 232, 240, 243, 248, 250, 256, 272, 288, 289, 296, 297, 304, 320, 324, 328, 336

Offset: 1

Gus Wiseman, Dec 20 2020

nonn

Differs from A293243 and A212164 in having 1080, with prime indices {1,1,1,2,2,2,3} and factorization into distinct squarefree numbers 2*3*6*30.

			The sequence of terms together with their prime indices begins:
      4: {1,1}             80: {1,1,1,1,3}
      8: {1,1,1}           81: {2,2,2,2}
      9: {2,2}             88: {1,1,1,5}
     16: {1,1,1,1}         96: {1,1,1,1,1,2}
     24: {1,1,1,2}        104: {1,1,1,6}
     25: {3,3}            108: {1,1,2,2,2}
     27: {2,2,2}          112: {1,1,1,1,4}
     32: {1,1,1,1,1}      121: {5,5}
     40: {1,1,1,3}        125: {3,3,3}
     48: {1,1,1,1,2}      128: {1,1,1,1,1,1,1}
     49: {4,4}            135: {2,2,2,3}
     54: {1,2,2,2}        136: {1,1,1,7}
     56: {1,1,1,4}        144: {1,1,1,1,2,2}
     64: {1,1,1,1,1,1}    152: {1,1,1,8}
     72: {1,1,1,2,2}      160: {1,1,1,1,1,3}
For example, a complete list of strict factorizations of 72 is: (2*3*12), (2*4*9), (2*36), (3*4*6), (3*24), (4*18), (6*12), (8*9), (72); but since none of these consists of only primes or squarefree semiprimes, 72 is in the sequence.

A013929 allows only primes.
A320894 does not allow primes (but omega is assumed even).
A339741 is the complement.
A339742 has zeros at these positions.
A339840 allows squares of primes.
A001358 lists semiprimes, with squarefree case A006881.
A002100 counts partitions into squarefree semiprimes.
A320663 counts non-isomorphic multiset partitions into singletons or pairs.
A339841 have exactly one factorization into primes or semiprimes.
The following count factorizations:
- A001055 into all positive integers > 1.
- A050326 into distinct squarefree numbers.
- A320655 into semiprimes.
- A320656 into squarefree semiprimes.
- A320732 into primes or semiprimes.
- A322353 into distinct semiprimes.
- A339661 into distinct squarefree semiprimes.
- A339839 into distinct primes or semiprimes.
The following count vertex-degree partitions and give their Heinz numbers:
- A058696 counts partitions of 2n (A300061).
- A000070 counts non-multigraphical partitions of 2n (A339620).
- A339655 counts non-loop-graphical partitions of 2n (A339657).
- A339617 counts non-graphical partitions of 2n (A339618).
- A321728 is conjectured to count non-half-loop-graphical partitions of n.
The following count partitions/factorizations of even length and give their Heinz numbers:
- A027187/A339846 counts all of even length (A028260).
- A096373/A339737 cannot be partitioned into strict pairs (A320891).
- A338915/A339662 cannot be partitioned into distinct pairs (A320892).
- A339559/A339564 cannot be partitioned into distinct strict pairs (A320894).
Cf. A001221, A005117, A050320, A320893, A320911, A320912, A320922, A320924, A339113, A339561.

sqps[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[sqps[n/d],Min@@#>d&]],{d,Select[Divisors[n],PrimeQ[#]||SquareFreeQ[#]&&PrimeOmega[#]==2&]}]];
Select[Range[100],sqps[#]=={}&]

A381719 Numbers whose prime indices cannot be partitioned into sets with a common sum.

Original entry on oeis.org

12, 18, 20, 24, 28, 40, 44, 45, 48, 50, 52, 54, 56, 60, 63, 68, 72, 75, 76, 80, 84, 88, 90, 92, 96, 98, 99, 104, 108, 112, 116, 117, 120, 124, 126, 132, 135, 136, 140, 144, 147, 148, 152, 153, 156, 160, 162, 164, 168, 171, 172, 175, 176, 184, 188, 189, 192

Offset: 1

Gus Wiseman, Apr 22 2025

nonn

Differs from A059404, A323055, A376250 in lacking 150.
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, sum A056239.
Also numbers that cannot be factored into squarefree numbers with a common sum of prime indices (A056239).

			The prime indices of 150 are {1,2,3,3}, and {{3},{3},{1,2}} is a partition into sets with a common sum, so 150 is not in the sequence.

Twice-partitions of this type (sets with a common sum) are counted by A279788.
These multiset partitions (sets with a common sum) are ranked by A326534 /\ A302478.
For distinct block-sums we have A381806, counted by A381990 (complement A381992).
For constant blocks we have A381871 (zeros of A381995), counted by A381993.
Partitions of this type are counted by A381994.
These are the zeros of A382080.
Normal multiset partitions of this type are counted by A382429, see A326518.
The complement counted by A383308.
A000041 counts integer partitions, strict A000009.
A001055 counts factorizations, strict A045778.
A050320 counts factorizations into squarefree numbers, see A381078, A381454.
A050326 counts factorizations into distinct squarefree numbers.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798.
A317141 counts coarsenings of prime indices, refinements A300383.
A381633 counts set systems with distinct sums, see A381634, A293243.
Set multipartitions: A089259, A116540, A270995, A296119, A318360.
Cf. A000720, A000961, A001222, A293511, A321455, A358914, A381635, A381717.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
sps[{}]:={{}};sps[set:{i_,_}]:=Join@@Function[s,Prepend[#,s]& /@ sps[Complement[set,s]]]/@Cases[Subsets[set],{i,_}];
mps[set_]:=Union[Sort[Sort/@(#/.x_Integer:>set[[x]])]&/@sps[Range[Length[set]]]];
Select[Range[100],Select[mps[prix[#]], SameQ@@Total/@#&&And@@UnsameQ@@@#&]=={}&]

A382080 Number of ways to partition the prime indices of n into sets with a common sum.

Original entry on oeis.org

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

Offset: 1

Gus Wiseman, Mar 20 2025

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, sum A056239.

Also the number of factorizations of n into squarefree numbers > 1 with equal sums of prime indices.

			The prime indices of 900 are {1,1,2,2,3,3}, with the following partitions into sets with a common sum:
  {{1,2,3},{1,2,3}}
  {{3},{3},{1,2},{1,2}}
So a(900) = 2.

For just sets we have A050320, distinct A050326.
Twice-partitions of this type are counted by A279788.
For just a common sum we have A321455.
MM-numbers of these multiset partitions are A326534 /\ A302478.
For distinct instead of equal sums we have A381633.
For constant instead of strict blocks we have A381995.
Positions of 0 are A381719, counted by A381994.
A000688 counts factorizations into prime powers, distinct A050361.
A001055 counts factorizations, strict A045778.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798.
A317141 counts coarsenings of prime indices, refinements A300383.
Cf. A000720, A000961, A001222, A006171, A279784, A353866, A381635, A381871.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n], {p_,k_}:>Table[PrimePi[p],{k}]]]];
sps[{}]:={{}};sps[set:{i_,_}]:=Join@@Function[s,Prepend[#,s]& /@ sps[Complement[set,s]]]/@Cases[Subsets[set],{i,_}];
mps[set_]:=Union[Sort[Sort/@(#/.x_Integer:>set[[x]])]& /@ sps[Range[Length[set]]]];
Table[Length[Select[mps[prix[n]], SameQ@@Total/@#&&And@@UnsameQ@@@#&]],{n,100}]

cp's OEIS Frontend

A179670 Numbers of the form p^3*q*r*s where p, q, r, and s are distinct primes.

Views

Author

Keywords

Comments

Links

Programs

Mathematica

PARI

A212164 Numbers k such that the maximum exponent in its prime factorization is greater than the number of positive exponents (A051903(k) > A001221(k)).

Views

Author

Keywords

Examples

References

Links

Crossrefs

Programs

Haskell

Mathematica

PARI

Formula

A212167 Numbers k such that the maximum exponent in its prime factorization is not greater than the number of positive exponents (A051903(k) <= A001221(k)).

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Haskell

Maple

Mathematica

PARI

Formula

A323790 Number of non-isomorphic weight-n sets of sets of sets.

Views

Author

Keywords

Comments

Examples

Crossrefs

A381996 Number of non-isomorphic multisets of size n that can be partitioned into a set of sets.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A323791 Number of non-isomorphic weight-n sets of multisets of sets.

Views

Author

Keywords

Comments

Examples

Crossrefs

A323792 Number of non-isomorphic weight-n multisets of sets of sets.

Views

Author

Keywords

Comments

Examples

Crossrefs

A339740 Non-products of distinct primes or squarefree semiprimes.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A381719 Numbers whose prime indices cannot be partitioned into sets with a common sum.

Views

Author

A179670 Numbers of the form p^3qr*s where p, q, r, and s are distinct primes.