A328166 -id:A328166 - cp's OEIS frontend

A328448 Smallest number whose divisors > 1 have a longest run of length n, and 0 if none exists.

2, 6, 12, 504, 60, 420, 840, 4084080, 2520, 21162960, 27720, 2059318800, 0, 360360, 720720, 8494326640800, 12252240, 281206918792800, 0, 0, 232792560, 409547311252279200, 5354228880, 619808900849199341280, 26771144400, 54749786241679275146400, 80313433200, 5663770990518545704800

Offset: 1

Gus Wiseman, Oct 16 2019

nonn

			The runs of divisors of 504 (greater than 1) are {{2,3,4},{6,7,8,9},{12},{14},{18},{21},{24},{28},{36},{42},{56},{63},{72},{84},{126},{168},{252},{504}}, the longest of which has length 4, and 504 is the smallest number with this property, so a(4) = 504.

The version that looks at all divisors (including 1) is A328449.
The longest run of divisors of n greater than 1 has length A328457.
Numbers whose divisors > 1 have no non-singleton runs are A088725.
The number of successive pairs of divisors of n is A129308(n).
The Heinz number of the multiset of run-lengths of divisors of n is A328166(n).
Cf. A000005, A027750, A055874, A060680, A181063, A199970, A328450.

Data corrected and extended by Giovanni Resta, Oct 18 2019

A328449 Smallest number in whose divisors the longest run is of length n, and 0 if none exists.

Original entry on oeis.org

0, 1, 2, 6, 12, 0, 60, 420, 840, 0, 2520, 0, 27720, 0, 0, 360360, 720720, 0, 12252240, 0, 0, 0, 232792560, 0, 5354228880, 0, 26771144400, 0, 80313433200, 0, 2329089562800, 72201776446800, 0, 0, 0, 0, 144403552893600, 0, 0, 0, 5342931457063200, 0

Offset: 0

Gus Wiseman, Oct 16 2019

nonn

Wikipedia, Run (cards)

Positions of 0's are 0 followed by A024619 - 1.
The version that looks only at all divisors > 1 is A328448.
The longest run of divisors of n has length A055874.
The longest run of divisors of n greater than one has length A328457.
Numbers whose divisors have no non-singleton runs are A005408.
The number of successive pairs of divisors of n is A129308(n).
The Heinz number of the multiset of run-lengths of divisors of n is A328166(n).
The smallest number whose divisors have a (not necessarily longest) maximal run of length n is A181063.
Cf. A000005, A003601, A027750, A033676, A060680, A060681, A199970, A328195.

tav=Table[Max@@Length/@Split[Divisors[n],#2==#1+1&],{n,10000}];
Table[If[FreeQ[tav,i],0,Position[tav,i][[1,1]]],{i,0,Max@@tav}]

a(n) = LCM(1,2,...,n) = A003418(n) if n + 1 is a prime power, otherwise a(n) = 0.

A328165 Numbers whose divisors do not have weakly decreasing run-lengths.

Original entry on oeis.org

56, 72, 110, 112, 132, 144, 156, 182, 210, 216, 224, 240, 264, 272, 288, 306, 312, 342, 364, 380, 392, 396, 420, 432, 440, 448, 462, 468, 480, 506, 528, 544, 550, 552, 576, 600, 612, 616, 624, 648, 650, 684, 702, 720, 728, 756, 760, 770, 780, 784, 792, 812

Offset: 1

Gus Wiseman, Oct 07 2019

nonn

			The divisors of 56 are {1, 2, 4, 7, 8, 14, 28, 56}, with runs {{1, 2}, {4}, {7, 8}, {14}, {28}, {56}}, with lengths (2, 1, 2, 1, 1, 1), which are not weakly decreasing, so 56 is in the sequence.

Wikipedia, Run (cards)

The longest run of divisors of n has length A055874(n).
Numbers whose divisors > 1 have no non-singleton runs are A088725.
The number of successive pairs of divisors of n is A129308(n).
The Heinz number of the multiset of run-lengths of divisors of n is A328166(n).
Cf. A000005, A027750, A033676, A060680, A060775, A119313, A181063, A199970.

Select[Range[1000],!GreaterEqual@@Length/@Split[Divisors[#],#2==#1+1&]&]

A356734 Heinz numbers of integer partitions with at least one neighborless part.

Original entry on oeis.org

2, 3, 4, 5, 7, 8, 9, 10, 11, 13, 14, 16, 17, 19, 20, 21, 22, 23, 25, 26, 27, 28, 29, 31, 32, 33, 34, 37, 38, 39, 40, 41, 42, 43, 44, 46, 47, 49, 50, 51, 52, 53, 55, 56, 57, 58, 59, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 73, 74, 76, 78, 79, 80, 81, 82, 83

Offset: 1

Gus Wiseman, Aug 26 2022

nonn

First differs from A319630 in lacking 1 and having 42 (prime indices: {1,2,4}).
A part x is neighborless if neither x - 1 nor x + 1 are parts.
The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k). This gives a bijective correspondence between positive integers and integer partitions.

			The terms together with their prime indices begin:
    2: {1}
    3: {2}
    4: {1,1}
    5: {3}
    7: {4}
    8: {1,1,1}
    9: {2,2}
   10: {1,3}
   11: {5}
   13: {6}
   14: {1,4}
   16: {1,1,1,1}
   17: {7}
   19: {8}
   20: {1,1,3}
   21: {2,4}
   22: {1,5}

These partitions are counted by A356236.
The singleton case is A356237, counted by A356235 (complement A355393).
The strict case is counted by A356607, complement A356606.
The complement is A356736, counted by A355394.
A001221 counts distinct prime factors, sum A001414.
A003963 multiplies together the prime indices of n.
A007690 counts partitions with no singletons, complement A183558.
A056239 adds up prime indices, row sums of A112798, lengths A001222.
A073491 lists numbers with gapless prime indices, complement A073492.
A132747 counts non-isolated divisors, complement A132881.
A356069 counts gapless divisors, initial A356224 (complement A356225).
Cf. A000005, A286470, A287170 (firsts A066205), A289508, A325160, A328166, A328335, A356231, A356233, A356234.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],Function[ptn,Or@@Table[!MemberQ[ptn,x-1]&&!MemberQ[ptn,x+1],{x,Union[ptn]}]]@*primeMS]

A328450 Numbers that are a smallest number with k pairs of successive divisors, for some k.

Original entry on oeis.org

1, 2, 6, 12, 60, 72, 180, 360, 420, 840, 1260, 2520, 3780, 5040, 13860, 27720, 36960, 41580, 55440, 83160, 166320, 277200, 360360, 471240, 491400, 720720, 1081080, 1113840, 2162160, 2827440, 3341520, 4324320, 5405400, 6126120

Offset: 0

Gus Wiseman, Oct 15 2019

nonn

A sorted version of A287142.

			The divisors of 72 are {1, 2, 3, 4, 6, 8, 9, 12, 18, 24, 36, 72}, with pairs of successive divisors {{1, 2}, {2, 3}, {3, 4}, {8, 9}}, and no smaller number has 4 successive pairs, so 72 belongs to the sequence.

Sorted positions of first appearances in A129308.
The longest run of divisors of n has length A055874(n).
Numbers whose divisors > 1 have no non-singleton runs are A088725.
The Heinz number of the multiset of run-lengths of divisors of n is A328166(n).
The smallest number whose divisors have a longest run of length n is A328449(n).
Cf. A000005, A003601, A027750, A033676, A060680, A060681, A072627, A181063, A199970, A287142, A328165.

dat=Table[Count[Differences[Divisors[n]],1],{n,10000}];
Sort[Table[Position[dat,i][[1,1]],{i,Union[dat]}]]

A328458 Maximum run-length of the nontrivial divisors (greater than 1 and less than n) of n.

Original entry on oeis.org

1, 0, 0, 1, 0, 2, 0, 1, 1, 1, 0, 3, 0, 1, 1, 1, 0, 2, 0, 2, 1, 1, 0, 3, 1, 1, 1, 1, 0, 2, 0, 1, 1, 1, 1, 3, 0, 1, 1, 2, 0, 2, 0, 1, 1, 1, 0, 3, 1, 1, 1, 1, 0, 2, 1, 2, 1, 1, 0, 5, 0, 1, 1, 1, 1, 2, 0, 1, 1, 1, 0, 3, 0, 1, 1, 1, 1, 2, 0, 2, 1, 1, 0, 3, 1, 1, 1, 1, 0, 2, 1, 1, 1, 1, 1, 3, 0, 1, 1, 2, 0, 2, 0, 1, 1

Offset: 1

Gus Wiseman, Oct 17 2019

nonn

By convention, a(1) = 1, and a(p) = 0 for p prime.

			The non-singleton runs of the nontrivial divisors of 1260 are: {2,3,4,5,6,7} {9,10} {14,15} {20,21} {35,36}, so a(1260) = 6.

Antti Karttunen, Table of n, a(n) for n = 1..100000

Positions of first appearances are A328459.
Positions of 0's and 1's are A088723.
The version that looks at all divisors is A055874.
The number of successive pairs of divisors > 1 of n is A088722(n).
The Heinz number of the multiset of run-lengths of divisors of n is A328166(n).
Cf. A033676, A060681, A060775, A070824, A088725, A129308, A181063, A199970, A328165, A163870, A328194, A328448, A328449.

Table[Switch[n,1,1,?PrimeQ,0,,Max@@Length/@Split[DeleteCases[Divisors[n],1|n],#2==#1+1&]],{n,100}]

A328458(n) = if(1==n,n,my(rl=0,pd=0,m=0); fordiv(n, d, if(1(1+pd), m = max(m,rl); rl=0); pd=d; rl++)); max(m,rl)); \\ Antti Karttunen, Feb 23 2023

Data section extended up to a(105) by Antti Karttunen, Feb 23 2023

A328510 Smallest number whose divisors have n non-singleton runs.

Original entry on oeis.org

1, 2, 20, 90, 630, 1260, 3780, 21420, 41580, 128520, 270270, 554400, 706860, 1413720, 2042040, 4324320, 4084080, 9189180, 6126120, 43825320, 12252240, 18378360, 82162080, 36756720, 85765680, 73513440, 183783600, 306306000, 257297040, 563603040, 514594080

Offset: 0

Gus Wiseman, Oct 18 2019

nonn

			The sequence of terms together with their non-singleton runs of divisors begins:
    1: {}
    2: {{1,2}}
   20: {{1,2},{4,5}}
   90: {{1,2,3},{5,6},{9,10}}
  630: {{1,2,3},{5,6,7},{9,10},{14,15}}

Giovanni Resta, Table of n, a(n) for n = 0..54

Equal {1} followed by the positions of first appearances in A328511 (times 2).
The longest run of divisors of n has length A055874.
Numbers whose divisors have no non-singleton runs are A005408.
The number of successive pairs of divisors of n is A129308(n).
The number of singleton runs of divisors is A132881.
Cf. A000005, A027750, A033676, A060775, A119313, A132747, A181063, A199970, A328166, A328457.

dv=Table[Length[DeleteCases[Length/@Split[Divisors[n],#2==#1+1&],1]],{n,1000}];
Table[Position[dv,i][[1,1]],{i,Union[dv]}]

Offset changed to 0 and a(10)-a(30) added by Giovanni Resta, Oct 25 2019

A328511 Number of non-singleton runs of divisors of 2n.

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 2, 1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 2, 1, 1, 3, 1, 1, 1, 1, 2, 1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 1, 2, 1, 1, 2, 1, 1, 1, 2, 1, 2, 1, 1, 2, 1, 1, 2, 1, 2, 1, 1, 1, 2, 1, 1, 1

Offset: 1

Gus Wiseman, Oct 18 2019

nonn

			The divisors of 90 have runs: {{1, 2, 3}, {5, 6}, {9, 10}, {15}, {18}, {30}, {45}, {90}}, so a(45) = 3.

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

Positions of first appearances are A328510.
The longest run of divisors of n has length A055874.
Numbers whose divisors have no non-singleton runs are A005408.
The number of successive pairs of divisors of n is A129308(n).
The number of singleton runs of divisors is A132881.
Cf. A000005, A033676, A060775, A119313, A132747, A181063, A199970, A328166, A328457.

f:= proc(n) local D,B,R;
  D:= sort(convert(numtheory:-divisors(2*n),list));
  B:= D[2..-1]-D[1..-2];
  R:= select(j -> (j=1 or B[j-1]>1) and B[j]=1, [$1..nops(B)]);
  nops(R);
end proc:
map(f, [$1..100]); # Robert Israel, Oct 25 2019

Table[Length[DeleteCases[Length/@Split[Divisors[2*n],#2==#1+1&],1]],{n,100}]

A356733 Number of neighborless parts in the integer partition with Heinz number n.

Original entry on oeis.org

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

Offset: 1

Gus Wiseman, Aug 26 2022

nonn

A part x is neighborless if neither x - 1 nor x + 1 are parts.

The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k). This gives a bijective correspondence between positive integers and integer partitions.

			The prime indices of 42 are {1,2,4}, of which only 4 is neighborless, so a(42) = 1.
The prime indices of 462 are {1,2,4,5}, all of which have neighbors, so a(462) = 0.
The prime indices of 1300 are {1,1,3,3,6}, with neighborless parts {1,3,6}, so a(1300) = 3.

Antti Karttunen, Table of n, a(n) for n = 1..65537
Index entries for sequences related to prime indices in the factorization of n.

Positions of first appearances are 1 followed by A066205.
Dominated by A287170 (firsts also A066205).
Positions of terms > 0 are A356734.
The complement is counted by A356735.
A001221 counts distinct prime factors, sum A001414.
A003963 multiplies together prime indices.
A007690 counts partitions with no singletons, complement A183558.
A056239 adds up prime indices, row sums of A112798, lengths A001222.
A073491 lists numbers with gapless prime indices, complement A073492.
A132747 counts non-isolated divisors, complement A132881.
A355393 counts partitions w/o a neighborless singleton, complement A356235.
A355394 counts partitions w/o a neighborless part, complement A356236.
A356069 counts gapless divisors, initial A356224 (complement A356225).
A356607 counts strict partitions w/ a neighborless part, complement A356606.
Cf. A000005, A066312, A286470, A289508, A325160, A328166, A328335, A356231, A356233, A356234, A356237.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Table[Length[Select[Union[primeMS[n]],!MemberQ[primeMS[n],#-1]&&!MemberQ[primeMS[n],#+1]&]],{n,100}]

A356733(n) = if(1==n,0,my(pis=apply(primepi,factor(n)[,1])); sum(i=1, #pis, ((n%prime(pis[i]+1)) && (pis[i]==1 || (n%prime(pis[i]-1)))))); \\ Antti Karttunen, Jan 28 2025

a(n) = A001221(n) - A356735(n).

Data section extended to a(105) by Antti Karttunen, Jan 28 2025

A356735 Number of distinct parts that have neighbors in the integer partition with Heinz number n.

Original entry on oeis.org

0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 2, 0, 0, 2, 0, 0, 2, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 3, 0, 0, 0, 0, 2, 2, 0, 0, 0, 0, 0, 2, 0, 0, 2, 0, 0, 2, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 3, 0, 0, 0, 0, 0, 2, 0, 0, 0, 2, 0, 2, 0, 0, 2, 0, 2, 2, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 3, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 2, 0, 0, 3

Offset: 1

Gus Wiseman, Aug 31 2022

nonn

The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k). This gives a bijective correspondence between positive integers and integer partitions.

Also the number of distinct prime indices x of n such that either x - 1 or x + 1 is also a prime index of n, where a prime index of n is a number x such that prime(x) divides n.

			The prime indices of 42 are {1,2,4}, of which 1 and 2 have neighbors, so a(42) = 2.
The prime indices of 462 are {1,2,4,5}, all of which have neighbors, so a(462) = 4.
The prime indices of 990 are {1,2,2,3,5}, of which 1, 2, and 3 have neighbors, so a(990) = 3.
The prime indices of 1300 are {1,1,3,3,6}, none of which have neighbors, so a(1300) = 0.

Antti Karttunen, Table of n, a(n) for n = 1..65537
Index entries for sequences related to prime indices in the factorization of n.

Positions of first appearances are A002110 without 1 (or A231209).
The complement is counted by A356733.
Positions of zeros are A356734.
Positions of positive terms are A356736.
A001221 counts distinct prime factors, sum A001414.
A007690 counts partitions with no singletons, complement A183558.
A056239 adds up prime indices, row sums of A112798, lengths A001222.
A073491 lists numbers with gapless prime indices, complement A073492.
A355393 counts partitions w/o a neighborless singleton, complement A356235.
A355394 counts partitions w/o a neighborless part, complement A356236.
A356226 lists the lengths of maximal gapless submultisets of prime indices:
- length: A287170 (firsts A066205)
- minimum: A356227
- maximum: A356228
- bisected length: A356229
- standard composition: A356230
- Heinz number: A356231
- positions of first appearances: A356232
Cf. A000005, A066312, A286470, A289508, A325160, A328166, A328335, A356233, A356234, A356237.

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

A356735(n) = if(1==n,0,my(pis=apply(primepi,factor(n)[,1])); omega(n)-sum(i=1, #pis, ((n%prime(pis[i]+1)) && (pis[i]==1 || (n%prime(pis[i]-1)))))); \\ Antti Karttunen, Jan 28 2025

a(n) + A356733(n) = A001221(n).

Data section extended to a(105) by Antti Karttunen, Jan 28 2025

cp's OEIS Frontend

A328448 Smallest number whose divisors > 1 have a longest run of length n, and 0 if none exists.

Views

Author

Keywords

Examples

Crossrefs

Extensions

A328449 Smallest number in whose divisors the longest run is of length n, and 0 if none exists.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Formula

A328165 Numbers whose divisors do not have weakly decreasing run-lengths.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

A356734 Heinz numbers of integer partitions with at least one neighborless part.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A328450 Numbers that are a smallest number with k pairs of successive divisors, for some k.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A328458 Maximum run-length of the nontrivial divisors (greater than 1 and less than n) of n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Extensions

A328510 Smallest number whose divisors have n non-singleton runs.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

Extensions

A328511 Number of non-singleton runs of divisors of 2n.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Maple

Mathematica

A356733 Number of neighborless parts in the integer partition with Heinz number n.

Views

Author

Keywords