A323023 -id:A323023 - cp's OEIS frontend

A320632 Numbers k such that there exists a pair of factorizations of k into factors > 1 where no factor of one divides any factor of the other.

36, 60, 72, 84, 90, 100, 108, 120, 126, 132, 140, 144, 150, 156, 168, 180, 196, 198, 200, 204, 210, 216, 220, 225, 228, 234, 240, 252, 260, 264, 270, 276, 280, 288, 294, 300, 306, 308, 312, 315, 324, 330, 336, 340, 342, 348, 350, 360, 364, 372, 378, 380, 390

Offset: 1

Gus Wiseman, Dec 09 2018

nonn

Positions of nonzero terms in A322437 or A322438.
Mats Granvik has conjectured that these are all the positive integers k such that sigma_0(k) - 2 > (bigomega(k) - 1) * omega(k), where sigma_0 = A000005, omega = A001221, and bigomega = A001222. - Gus Wiseman, Nov 12 2019
Numbers with more semiprime divisors than prime divisors. - Wesley Ivan Hurt, Jun 10 2021

			An example of such a pair for 36 is (4*9)|(6*6).

Antti Karttunen, Table of n, a(n) for n = 1..23437
Christophe Cordero, Factorizations of Cyclic Groups and Bayonet Codes, arXiv:2301.13566 [math.CO], 2023, p. 20.

Cf. A001055, A050336, A285572, A303362, A305149, A305193, A317144, A322435, A322437, A322439, A322440, A322441, A322442.
The following are additional cross-references relating to Granvik's conjecture.
bigomega(n) * omega(n) is A113901(n).
(bigomega(n) - 1) * omega(n) is A307409(n).
sigma_0(n) - bigomega(n) * omega(n) is A328958(n).
sigma_0(n) - 2 - (omega(n) - 1) * nu(n) is A328959(n).
Cf. A060687, A070175, A124010, A323023, A328956, A328957, A328960, A328961, A328963.

facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
Select[Range[100],Select[Subsets[facs[#],{2}],And[!Or@@Divisible@@@Tuples[#],!Or@@Divisible@@@Reverse/@Tuples[#]]&]!={}&]

factorizations(n, m=n, f=List([]), z=List([])) = if(1==n, listput(z,Vec(f)); z, my(newf); fordiv(n, d, if((d>1)&&(d<=m), newf = List(f); listput(newf,d); z = factorizations(n/d, d, newf, z))); (z));
is_ndf_pair(fac1,fac2) = { for(i=1,#fac1,for(j=1,#fac2,if(!(fac1[i]%fac2[j])||!(fac2[j]%fac1[i]),return(0)))); (1); };
has_at_least_one_ndfpair(z) = { for(i=1,#z,for(j=i+1,#z,if(is_ndf_pair(z[i],z[j]),return(1)))); (0); };
isA320632(n) = has_at_least_one_ndfpair(Vec(factorizations(n))); \\ Antti Karttunen, Dec 10 2020

A325278 Smallest number with adjusted frequency depth n.

Original entry on oeis.org

1, 2, 4, 6, 12, 60, 2520, 1286485200, 35933692027611398678865941374040400000

Offset: 0

Gus Wiseman, Apr 17 2019

nonn

The adjusted frequency depth of a positive integer n is 0 if n = 1, and otherwise it is 1 plus the number of times one must apply A181819 to reach a prime number, where A181819(k = p^i*...*q^j) = prime(i)*...*prime(j) = product of primes indexed by the prime exponents of k. For example, 180 has adjusted frequency depth 5 because we have: 180 -> 18 -> 6 -> 4 -> 3.

Differs from A182857 in having 2 instead of 3.

A subsequence of A325238.
Cf. A011784, A056239, A112798, A118914, A181819, A181821, A182857, A225485, A323023, A325258, A325272, A325277, A325278, A325280.
Omega-sequence statistics: A001222 (first omega), A001221 (second omega), A071625 (third omega), A323022 (fourth omega), A304465 (second-to-last omega), A182850 or A323014 (length/frequency depth), A325248 (Heinz number).

nn=10000;
fd[n_]:=Switch[n,1,0,?PrimeQ,1,,1+fd[Times@@Prime/@Last/@FactorInteger[n]]];
fds=fd/@Range[nn];
Sort[Table[Position[fds,x][[1,1]],{x,Union[fds]}]]

A325282 Maximum adjusted frequency depth among integer partitions of n.

Original entry on oeis.org

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

Offset: 0

Gus Wiseman, Apr 18 2019

nonn

The adjusted frequency depth of an integer partition is 0 if the partition is empty, and otherwise it is one plus the number of times one must take the multiset of multiplicities to reach a singleton. For example, the partition (32211) has adjusted frequency depth 5 because we have: (32211) -> (221) -> (21) -> (11) -> (2).
The term "frequency depth" appears to have been coined by Clark Kimberling in A225485 and A225486, and can be applied to both integers (A323014) and integer partitions (A325280).
Run lengths are A325258, i.e., first differences of Levine's sequence A011784 (except at n = 1).

Cf. A011784, A032741, A127002, A181819, A225486, A275870, A323014, A323023, A325245, A325254, A325258, A325278, A325282, A325283.

Integer partition triangles: A008284 (first omega), A116608 (second omega), A325242 (third omega), A325268 (second-to-last omega), A225485 or A325280 (length/frequency depth).

fdadj[ptn_List]:=If[ptn=={},0,Length[NestWhileList[Sort[Length/@Split[#]]&,ptn,Length[#]>1&]]];
Table[Max@@fdadj/@IntegerPartitions[n],{n,0,30}]

a(0) = 0; a(1) = 1; a(n > 1) = A225486(n).

A328956 Numbers k such that sigma_0(k) = omega(k) * Omega(k), where sigma_0 = A000005, omega = A001221, Omega = A001222.

Original entry on oeis.org

6, 10, 12, 14, 15, 18, 20, 21, 22, 24, 26, 28, 33, 34, 35, 38, 39, 40, 44, 45, 46, 48, 50, 51, 52, 54, 55, 56, 57, 58, 60, 62, 63, 65, 68, 69, 74, 75, 76, 77, 80, 82, 84, 85, 86, 87, 88, 90, 91, 92, 93, 94, 95, 96, 98, 99, 104, 106, 111, 112, 115, 116, 117

Offset: 1

Gus Wiseman, Nov 01 2019

nonn

First differs from A084227 in having 60.

			The sequence of terms together with their prime indices begins:
   6: {1,2}
  10: {1,3}
  12: {1,1,2}
  14: {1,4}
  15: {2,3}
  18: {1,2,2}
  20: {1,1,3}
  21: {2,4}
  22: {1,5}
  24: {1,1,1,2}
  26: {1,6}
  28: {1,1,4}
  33: {2,5}
  34: {1,7}
  35: {3,4}
  38: {1,8}
  39: {2,6}
  40: {1,1,1,3}
  44: {1,1,5}
  45: {2,2,3}

Amiram Eldar, Table of n, a(n) for n = 1..10000

Zeros of A328958.
The complement is A328957.
Prime signature is A124010.
Omega-sequence is A323023.
omega(n) * Omega(n) is A113901(n).
(Omega(n) - 1) * omega(n) is A307409(n).
sigma_0(n) - omega(n) * Omega(n) is A328958(n).
sigma_0(n) - 2 - (Omega(n) - 1) * omega(n) is A328959(n).
Cf. A000040, A005117, A060687, A070175, A090858, A112798, A303555, A320632, A328960, A328961, A328962, A328963, A328964, A328965.

Select[Range[100],DivisorSigma[0,#]==PrimeOmega[#]*PrimeNu[#]&]

is(k) = {my(f = factor(k)); numdiv(f) == omega(f) * bigomega(f);} \\ Amiram Eldar, Jul 28 2024

A000005(a(n)) = A001222(a(n)) * A001221(a(n)).

A328958 a(n) = d(n) - (omega(n) * bigomega(n)), where d (number of divisors) = A000005, omega = A001221, bigomega = A001222.

Original entry on oeis.org

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

Offset: 1

Gus Wiseman, Nov 02 2019

a(n) = sigma_0(n) - omega(n) * nu(n), where sigma_0 = A000005, nu = A001221, omega = A001222. - The original name of the sequence.

			a(144) = sigma_0(144) - omega(144) * nu(144) = 15 - 6 * 2 = 3.

Antti Karttunen, Table of n, a(n) for n = 1..20000
Index entries for sequences computed from exponents in factorization of n.

Positions of first appearances are A328962.
Zeros are A328956.
Nonzeros are A328957.
omega(n) * nu(n) is A113901(n).
(omega(n) - 1) * nu(n) is A307409(n).
sigma_0(n) - 2 - (omega(n) - 1) * nu(n) is A328959(n).
Cf. A000005, A001221, A001222, A112798, A124010, A323023, A328960, A328961, A328963, A328964.

Table[DivisorSigma[0,n]-PrimeOmega[n]*PrimeNu[n],{n,100}]

A328958(n) = (numdiv(n)-(omega(n)*bigomega(n))); \\ Antti Karttunen, Jan 27 2025

a(n) = A000005(n) - A001222(n) * A001221(n) = A000005(n) - A113901(n).

More terms added and the function names in the definition replaced with standard OEIS ones - Antti Karttunen, Jan 27 2025

A325245 Number of integer partitions of n with adjusted frequency depth 3.

Original entry on oeis.org

0, 0, 0, 1, 1, 2, 4, 4, 6, 8, 11, 11, 19, 17, 25, 29, 37, 37, 56, 53, 75, 80, 99, 103, 145, 143, 181, 199, 247, 255, 336, 339, 426, 459, 548, 590, 738, 759, 916, 999, 1192, 1259, 1529, 1609, 1915, 2083, 2406, 2589, 3085, 3267, 3809, 4134, 4763, 5119, 5964

Offset: 0

Gus Wiseman, Apr 15 2019

nonn

The adjusted frequency depth of an integer partition is 0 if the partition is empty, and otherwise it is 1 plus the number of times one must take the multiset of multiplicities to reach a singleton. For example, the partition (32211) has adjusted frequency depth 5 because we have: (32211) -> (221) -> (21) -> (11) -> (2). The enumeration of integer partitions by adjusted frequency depth is given by A325280. The adjusted frequency depth of the integer partition with Heinz number n is given by A323014.

			The a(3) = 1 through a(10) = 11 partitions:
  (21)  (31)  (32)  (42)    (43)   (53)    (54)      (64)
              (41)  (51)    (52)   (62)    (63)      (73)
                    (321)   (61)   (71)    (72)      (82)
                    (2211)  (421)  (431)   (81)      (91)
                                   (521)   (432)     (532)
                                   (3311)  (531)     (541)
                                           (621)     (631)
                                           (222111)  (721)
                                                     (3322)
                                                     (4321)
                                                     (4411)

Column k = 3 of A225485 and A325280.

Cf. A008284, A047966, A116608, A127002, A181819, A182850, A323014, A323023, A325239, A325246, A325254, A325268, A325280.

fdadj[ptn_List]:=If[ptn=={},0,Length[NestWhileList[Sort[Length/@Split[#]]&,ptn,Length[#]>1&]]];
Table[Length[Select[IntegerPartitions[n],fdadj[#]==3&]],{n,0,30}]

A328959 a(n) = sigma_0(n) - 2 - (omega(n) - 1) * nu(n), where sigma_0 = A000005, nu = A001221, omega = A001222.

Original entry on oeis.org

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

Offset: 1

Gus Wiseman, Nov 02 2019. The idea for this sequence came from Mats Granvik

sign

Conjecture: All terms are nonnegative except for a(1) = -1.

			a(72) = sigma_0(72) - 2 - (omega(72) - 1) * nu(72) = 12 - 2 - (5 - 1) * 2 = 2.

Antti Karttunen, Table of n, a(n) for n = 1..100000
Index entries for sequences computed from exponents in factorization of n

The positions of positive terms are conjectured to be A320632.
Positions of first appearances are A328963.
omega(n) * nu(n) is A113901(n).
(omega(n) - 1) * nu(n) is A307409.
sigma_0(n) - omega(n) * nu(n) is A328958(n).
Cf. A000005, A001221, A001222, A112798, A124010, A307408, A323023, A328956, A328960, A328961, A328962, A328965.

Table[DivisorSigma[0,n]-2-(PrimeOmega[n]-1)*PrimeNu[n],{n,100}]

A307408(n) = 2+((bigomega(n)-1)*omega(n));
A328959(n) = (numdiv(n) - A307408(n)); \\ Antti Karttunen, Nov 17 2019

a(n) = A000005(n) - A307408(n). - Antti Karttunen, Nov 17 2019

A328963 Smallest k such that n = sigma_0(k) - ((bigomega(k)-1)*omega(k)), where sigma_0 = A000005, omega = A001221, bigomega = A001222.

Original entry on oeis.org

1, 2, 36, 72, 144, 180, 576, 420, 360, 864, 1296, 720, 36864, 1080, 1440, 1260, 5184, 1800, 2160, 3360, 5760, 15552, 4620, 2520, 150994944, 6480, 5400, 13440, 8640, 6300, 9663676416, 5040, 12960, 9240, 331776, 7560, 186624, 248832, 34560, 10080, 1327104, 13860

Offset: 1

Gus Wiseman, Nov 02 2019

nonn

a(n) = smallest k for which A328959(k) = n-2. a(31) > 2^28. - Antti Karttunen, Nov 17 2019

a(n) <= 2^(n-1)*3^2, with equality for n = 3, 4, 5, 7, 13, 25, 31, 43,... . - Giovanni Resta, Nov 18 2019

			The sequence of terms together with their prime signatures begins:
        1: ()
        2: (1)
       36: (2,2)
       72: (3,2)
      144: (4,2)
      180: (2,2,1)
      576: (6,2)
      420: (2,1,1,1)
      360: (3,2,1)
      864: (5,3)
     1296: (4,4)
      720: (4,2,1)
    36864: (12,2)
     1080: (3,3,1)
     1440: (5,2,1)
     1260: (2,2,1,1)
     5184: (6,4)
     1800: (3,2,2)
     2160: (4,3,1)
     3360: (5,1,1,1)
     5760: (7,2,1)
    15552: (6,5)
     4620: (2,1,1,1,1)
     2520: (3,2,1,1)
150994944: (24,2)

Positions of first appearances in A328959.
All terms are in A025487.
Cf. A000005, A001221, A001222, A113901, A124010, A307409, A320632, A323023, A328956, A328958, A328963, A328964, A328965.

dat=Table[DivisorSigma[0,n]-(PrimeOmega[n]-1)*PrimeNu[n],{n,1000}];
Table[Position[dat,i][[1,1]],{i,First[Split[Union[dat],#2==#1+1&]]}]

search_up_to = 2^28;
A307408(n) = 2+((bigomega(n)-1)*omega(n));
A328959(n) = (numdiv(n) - A307408(n));
A328963(search_up_to) = { my(m=Map(),t,lista=List([])); for(n=1,search_up_to,t =
A328959(n); if(!mapisdefined(m,t+2), mapput(m,t+2,n))); for(u=1,oo,if(!mapisdefined(m,u,&t),return(Vec(lista)), listput(lista,t))); };
v328963 = A328963(search_up_to);
A328963(n) = v328963[n]; \\ Antti Karttunen, Nov 17 2019

Definition corrected and terms a(25) - a(30) added by Antti Karttunen, Nov 17 2019

a(31)-a(42) from Giovanni Resta, Nov 18 2019

A182855 Numbers that require exactly five iterations to reach a fixed point under the x -> A181819(x) map.

Original entry on oeis.org

60, 84, 90, 120, 126, 132, 140, 150, 156, 168, 180, 198, 204, 220, 228, 234, 240, 252, 260, 264, 270, 276, 280, 294, 300, 306, 308, 312, 315, 336, 340, 342, 348, 350, 364, 372, 378, 380, 396, 408, 414, 420, 440, 444, 450, 456, 460, 468, 476, 480, 490, 492, 495

Offset: 1

Matthew Vandermast, Jan 04 2011

nonn

In each case, 2 is the fixed point that is reached (1 is the other fixed point of the x -> A181819(x) map).
Includes all integers whose prime signature a) contains two or more distinct numbers, and b) contains no number that occurs the same number of times as any other number. The first member of this sequence that does not fit that description is 75675600, whose prime signature is (4,3,2,2,1,1).
A full characterization is: Numbers whose prime signature (1) has not all equal multiplicities but (2) the numbers of distinct parts appearing with each distinct multiplicity are all equal. For example, the prime signature of 2520 is {1,1,2,3}, which satisfies (1) but fails (2), as the numbers of distinct parts appearing with each distinct multiplicity are 1 (with multiplicity 2, the part being 1) and 2 (with multiplicity 1, the parts being 2 and 3). Hence the sequence does not contain 2520. - Gus Wiseman, Jan 02 2019

			1. 180 requires exactly five iterations under the x -> A181819(x) map to reach a fixed point (namely, 2).  A181819(180) = 18;  A181819(18) = 6; A181819(6) = 4; A181819(4) = 3;  A181819(3) = 2 (and A181819(2) = 2).
2. The prime signature of 180 (2^2*3^2*5) is (2,2,1).
a. Two distinct numbers appear in (2,2,1) (namely, 1 and 2).
b. Neither 1 nor 2 appears in (2,2,1) the same number of times as any other number that appears there.

Amiram Eldar, Table of n, a(n) for n = 1..10000
Eric Weisstein's World of Mathematics, Fixed Point
Eric Weisstein's World of Mathematics, Map

Numbers n such that A182850(n) = 5. See also A182853, A182854.
Subsequence of A059404 and A182851.  Includes A085987 and A179642 as subsequences.
Cf. A001221, A001222, A006939, A062770, A071625, A118914, A181819, A181821, A182857, A323014, A323022, A323023.

Select[Range[1000],With[{sig=Sort[Last/@FactorInteger[#]]},And[!SameQ@@Length/@Split[sig],SameQ@@Length/@Union/@GatherBy[sig,Length[Position[sig,#]]&]]]&] (* Gus Wiseman, Jan 02 2019 *)

A325254 Number of integer partitions of n with the maximum adjusted frequency depth for partitions of n.

Original entry on oeis.org

0, 1, 1, 1, 1, 3, 3, 1, 3, 7, 10, 17, 27, 38, 1, 4, 8, 17, 31, 52, 83, 122, 181, 257, 361, 499, 684, 910, 1211, 1595, 2060, 2663, 3406, 4315, 5426, 6784, 8417, 10466, 12824, 15721, 19104, 23267, 1, 5, 14, 36, 76, 143, 269, 446, 738, 1143, 1754, 2570, 3742, 5269

Offset: 0

Gus Wiseman, Apr 16 2019

nonn

The Heinz numbers of these partitions are given by A325283.
The adjusted frequency depth of an integer partition is 0 if the partition is empty, and otherwise it is 1 plus the number of times one must take the multiset of multiplicities to reach a singleton. For example, the partition (32211) has adjusted frequency depth 5 because we have: (32211) -> (221) -> (21) -> (11) -> (2). The enumeration of integer partitions by adjusted frequency depth is given by A325280. The adjusted frequency depth of the integer partition with Heinz number n is given by A323014. The maximum adjusted frequency depth for integer partitions of n is given by A325282.
Essentially, the last numbers of rows of the array in A225485. - Clark Kimberling, Sep 13 2022

			The a(1) = 1 through a(11) = 17 partitions:
  1  11  21  211  221   411    3211  3221   3321    5221     4322
                  311   3111         4211   4221    5311     4331
                  2111  21111        32111  4311    6211     4421
                                            5211    32221    5411
                                            32211   33211    6221
                                            42111   42211    6311
                                            321111  43111    7211
                                                    52111    33221
                                                    421111   42221
                                                    3211111  43211
                                                             52211
                                                             53111
                                                             62111
                                                             431111
                                                             521111
                                                             4211111
                                                             32111111

Cf. A011784, A181819, A182850, A182857, A225486, A323014, A323023, A325246, A325258, A325278, A325281, A325282, A325283.

Integer partition triangles: A008284 (first omega), A116608 (second omega), A325242 (third omega), A325268 (second-to-last omega), A225485 or A325280 (length/frequency depth).

nn=30;
fdadj[ptn_List]:=If[ptn=={},0,Length[NestWhileList[Sort[Length/@Split[#]]&,ptn,Length[#]>1&]]];
mfds=Table[Max@@fdadj/@IntegerPartitions[n],{n,nn}];
Table[Length[Select[IntegerPartitions[n],fdadj[#]==mfds[[n]]&]],{n,0,nn}]

cp's OEIS Frontend

A320632 Numbers k such that there exists a pair of factorizations of k into factors > 1 where no factor of one divides any factor of the other.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

A325278 Smallest number with adjusted frequency depth n.

Views

Author

Keywords

Comments

Crossrefs

Programs

Mathematica

A325282 Maximum adjusted frequency depth among integer partitions of n.

Views

Author

Keywords

Comments

Crossrefs

Programs

Mathematica

Formula

A328956 Numbers k such that sigma_0(k) = omega(k) * Omega(k), where sigma_0 = A000005, omega = A001221, Omega = A001222.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A328958 a(n) = d(n) - (omega(n) * bigomega(n)), where d (number of divisors) = A000005, omega = A001221, bigomega = A001222.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

A325245 Number of integer partitions of n with adjusted frequency depth 3.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A328959 a(n) = sigma_0(n) - 2 - (omega(n) - 1) * nu(n), where sigma_0 = A000005, nu = A001221, omega = A001222.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A328963 Smallest k such that n = sigma_0(k) - ((bigomega(k)-1)*omega(k)), where sigma_0 = A000005, omega = A001221, bigomega = A001222.

Views

Author

Keywords

Comments