A328449 -id:A328449 - cp's OEIS frontend

A181063 Smallest positive integer with a discrete string of exactly n consecutive divisors, or 0 if no such integer exists.

1, 2, 6, 12, 3960, 60, 420, 840, 17907120, 2520, 411863760, 27720, 68502634200, 447069823200, 360360, 720720, 7600186994400, 12252240, 9524356075634400, 81909462250455840, 1149071006394511200, 232792560, 35621201198229847200, 5354228880, 91351145008363640400

Offset: 1

Matthew Vandermast, Oct 07 2010

nonn

The word "discrete" is used to describe a string of consecutive divisors that is not part of a longer such string.
Does a(n) ever equal 0?
a(n) = A003418(n) iff n belongs to A181062; otherwise, a(n) > A003418(n). a(A181062(n)) = A051451(n).

			a(5) = 3960 is divisible by 8, 9, 10, 11, and 12, but not 7 or 13. It is the smallest positive integer with a string of 5 consecutive divisors that is not part of a longer string.
From _Gus Wiseman_, Oct 16 2019: (Start)
The sequence of terms together with their divisors begins:
     1: {1}
     2: {1,2}
     6: {1,2,3,6}
    12: {1,2,3,4,6,12}
  3960: {1,2,...,8,9,10,11,12,...,1980,3960}
    60: {1,2,3,4,5,6,...,30,60}
   420: {1,2,3,4,5,6,7,...,210,420}
   840: {1,2,3,4,5,6,7,8,...,420,840}
(End)

David W. Wilson, Table of n, a(n) for n = 1..1000

The version taking only the longest run is A328449.
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).
Cf. A000005, A003418, A027750, A060775, A181064, A199970, A328166, A328448.

tav=Table[Length/@Split[Divisors[n],#2==#1+1&],{n,10000}];
Table[Position[tav,i][[1,1]],{i,Split[Union@@tav,#2==#1+1&][[1]]}] (* Assumes there are no zeros. - Gus Wiseman, Oct 16 2019 *)

A328457 Length of the longest run of divisors > 1 of n.

Original entry on oeis.org

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

Offset: 1

Gus Wiseman, Oct 16 2019

nonn

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

Records occur at A328448.
Positions of 0's and 1's are A088725.
The version that looks at all divisors (including 1) 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).
The longest run of nontrivial divisors of n is A328458(n).
Cf. A000005, A027750, A129308, A181063, A199970, A328162, A328195, A328449, A360128.

Table[If[n==1,0,Max@@Length/@Split[Rest[Divisors[n]],#2==#1+1&]],{n,100}]

A328457(n) = { my(rl=0,pd=0,m=0); fordiv(n, d, if(d>1, if(d>(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

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

Original entry on oeis.org

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

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

A328459 Sorted positions of first appearances in A328458 (maximum run-length of nontrivial divisors) of each positive integer in the image.

Original entry on oeis.org

1, 2, 6, 12, 60, 420, 504, 840, 2520, 27720, 360360, 720720, 4084080

Offset: 0

Gus Wiseman, Oct 17 2019

			The sequence of terms > 1 together with their nontrivial divisors begins:
    2: {}
    6: {2,3}
   12: {2,3,4,6}
   60: {2,3,4,5,6,10,12,15,20,30}
  420: {2,3,4,5,6,7,10,12,14,15,20,21,28,30,35,42,60,70,84,105,140,210}
  504: {2,3,4,6,7,8,9,12,14,18,21,24,28,36,42,56,63,72,84,126,168,252}

Positions of first appearances in A328458.
The version for all divisors is A051451.
Cf. A000005, A033676, A060775, A070824, A119313, A129308, A181063, A199970, A163870, A328448, A328449.

dav=Table[Switch[n,1,1,_,Max@@Length/@Split[DeleteCases[Divisors[n],1|n],#2==#1+1&]],{n,1000}];
Table[Position[dav,i][[1,1]],{i,Union[dav]}]//Sort

a(12) from Robert Israel, Mar 31 2023

cp's OEIS Frontend

A181063 Smallest positive integer with a discrete string of exactly n consecutive divisors, or 0 if no such integer exists.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A328457 Length of the longest run of divisors > 1 of n.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

PARI

Extensions

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

Views

Author

Keywords

Examples

Crossrefs

Extensions

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

A328459 Sorted positions of first appearances in A328458 (maximum run-length of nontrivial divisors) of each positive integer in the image.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

Extensions