A119313 -id:A119313 - cp's OEIS frontend

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

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}]

A356222 Array read by antidiagonals upwards where A(n,k) is the position of the k-th appearance of 2n in the sequence of prime gaps A001223. If A001223 does not contain 2n at least k times, set A(n,k) = -1.

Original entry on oeis.org

2, 4, 3, 9, 6, 5, 24, 11, 8, 7, 34, 72, 15, 12, 10, 46, 42, 77, 16, 14, 13, 30, 47, 53, 79, 18, 19, 17, 282, 62, 91, 61, 87, 21, 22, 20, 99, 295, 66, 97, 68, 92, 23, 25, 26, 154, 180, 319, 137, 114, 80, 94, 32, 27, 28, 189, 259, 205, 331, 146, 121, 82, 124, 36, 29, 33

Offset: 1

Gus Wiseman, Aug 04 2022

Prime gaps (A001223) are the differences between consecutive prime numbers. They begin: 1, 2, 2, 4, 2, 4, 2, 4, 6, ...

This is a permutation of the positive integers > 1.

			Array begins:
        k=1 k=2 k=3 k=4 k=5 k=6 k=7 k=8 k=9
  n=1:   2   3   5   7  10  13  17  20  26
  n=2:   4   6   8  12  14  19  22  25  27
  n=3:   9  11  15  16  18  21  23  32  36
  n=4:  24  72  77  79  87  92  94 124 126
  n=5:  34  42  53  61  68  80  82 101 106
  n=6:  46  47  91  97 114 121 139 168 197
  n=7:  30  62  66 137 146 150 162 223 250
  n=8: 282 295 319 331 335 378 409 445 476
  n=9:  99 180 205 221 274 293 326 368 416
For example, the positions in A001223 of appearances of 2*3 begin: 9, 11, 15, 16, 18, 21, 23, ..., which is row n = 3 (A320701).

The row containing n is A028334(n).
Row n = 1 is A029707.
Row n = 2 is A029709.
Column k = 1 is A038664.
The column containing n is A274121(n).
Column k = 2 is A356221.
The diagonal A(n,n) is A356223.
A001223 lists the prime gaps.
A073491 lists numbers with gapless prime indices.
A356224 counts even divisors with gapless prime indices, complement A356225.
Cf. A066205, A119313, A193829, A287170, A328457, A356226, A356232.

gapa=Differences[Array[Prime,10000]];
Table[Position[gapa,2*(k-n+1)][[n,1]],{k,6},{n,k}]

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

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

A356222 Array read by antidiagonals upwards where A(n,k) is the position of the k-th appearance of 2n in the sequence of prime gaps A001223. If A001223 does not contain 2n at least k times, set A(n,k) = -1.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

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