A027833 -id:A027833 - cp's OEIS frontend

A373821 Run-lengths of run-lengths of first differences of odd primes.

1, 11, 1, 19, 1, 1, 1, 5, 1, 6, 1, 16, 1, 27, 1, 3, 1, 1, 1, 6, 1, 9, 1, 29, 1, 2, 1, 18, 1, 1, 1, 5, 1, 3, 1, 17, 1, 19, 1, 30, 1, 17, 1, 46, 1, 17, 1, 27, 1, 30, 1, 5, 1, 36, 1, 41, 1, 10, 1, 31, 1, 44, 1, 4, 1, 14, 1, 6, 1, 2, 1, 32, 1, 13, 1, 17, 1, 5

Offset: 1

Gus Wiseman, Jun 22 2024

nonn

Run-lengths of A333254.
The first term other than 1 at an odd positions is at a(101) = 2.
Also run-lengths (differing by 0) of run-lengths (differing by 0) of run-lengths (differing by 1) of composite numbers.

			The odd primes are:
3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, ...
with first differences:
2, 2, 4, 2, 4, 2, 4, 6, 2, 6, 4, 2, 4, 6, 6, 2, 6, 4, 2, 6, 4, 6, 8, ...
with run-lengths:
2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, ...
with run-lengths a(n).

Run-lengths of run-lengths of A046933(n) = A001223(n) - 1.
Run-lengths of A333254.
A000040 lists the primes.
A001223 gives differences of consecutive primes.
A027833 gives antirun lengths of odd primes (partial sums A029707).
A065855 counts composite numbers up to n.
A071148 gives partial sums of odd primes.
A373820 gives run-lengths of antirun-lengths of odd primes.
For prime runs: A001359, A006512, A025584, A067774, A373406.
For composite runs: A005381, A008864, A054265, A176246, A251092, A373403.
Cf. A006560, A037201, A038664, A069010, A373824, A373825.

Length/@Split[Length /@ Split[Differences[Select[Range[3,1000],PrimeQ]]]//Most]//Most

A373405 Sum of the n-th maximal antirun of odd primes differing by more than two.

Original entry on oeis.org

3, 5, 18, 30, 71, 109, 202, 199, 522, 210, 617, 288, 990, 372, 390, 860, 701, 1281, 829, 1194, 1645, 4578, 852, 2682, 4419, 3300, 2927, 2438, 1891, 2602, 14660, 1632, 1650, 3378, 3480, 18141, 2052, 3121, 2112, 4310, 8922, 13131, 6253, 3851, 3889, 3929, 13788

Offset: 1

Gus Wiseman, Jun 05 2024

nonn

The length of this run is given by A027833 (except initial term).

An antirun of a sequence (in this case A000040\{2}) is an interval of positions at which consecutive terms differ by more than one.

			Row-sums of:
   3
   5
   7  11
  13  17
  19  23  29
  31  37  41
  43  47  53  59
  61  67  71
  73  79  83  89  97 101

Gus Wiseman, Four statistics for runs and antiruns of prime, nonprime, squarefree, and nonsquarefree numbers

The partial sums are a subset of A071148 (partial sums of odd primes).
Functional neighbors: A001359, A006512, A027833 (partial sums A029707), A373404, A373406, A373411, A373412.
A000040 lists the primes, differences A001223.
A002808 lists the composite numbers, differences A073783.
Cf. A025157, A038664, A046933, A293697, A350842 (strict A350844), A371201.

Total/@Split[Select[Range[3,1000],PrimeQ],#1+2!=#2&]//Most

A048614 Number of primes between successive pairs of twin primes.

Original entry on oeis.org

0, 0, 0, 1, 1, 2, 1, 4, 0, 3, 0, 4, 0, 0, 2, 1, 3, 1, 2, 3, 10, 0, 4, 7, 4, 3, 2, 1, 2, 18, 0, 0, 2, 2, 17, 0, 1, 0, 2, 6, 9, 3, 1, 1, 1, 8, 3, 2, 0, 15, 1, 4, 1, 1, 7, 7, 0, 4, 0, 4, 3, 4, 0, 1, 0, 1, 7, 2, 5, 1, 5, 18, 2, 5, 4, 3, 1, 5, 1, 18, 0, 12, 2, 8, 0, 1, 4, 2, 0, 0, 5, 0, 4, 1, 1, 1, 9, 10, 4, 2, 6

Offset: 1

Den Roussel (DenRoussel(AT)webtv.net)

			a(8)= 4 because between the 8th and 9th pairs of twins there are 4 primes: (71,73) 79 83 89 97 (101,103).

T. D. Noe, Table of n, a(n) for n=1..10000

Cf. A001223, A027833.

t1=Select[Prime[Range[3,542]],PrimeQ[#+2]&]; Prepend[Table[PrimePi[t1[[i+1]]]-PrimePi[t1[[i]]]-2,{i,1,Length[t1]-1}],0] (* Jayanta Basu, May 26 2013 *)

a(n) = A027833(n)-2 for n>1. - T. D. Noe, Feb 28 2007

Corrected and extended by Labos Elemer, Mar 23 2000

A373669 Least k such that the k-th maximal run of non-prime-powers has length n. Position of first appearance of n in A110969, and the sequence ends if there is none.

Original entry on oeis.org

1, 5, 7, 12, 18, 190, 28, 109, 40, 28195574, 53

Offset: 1

Gus Wiseman, Jun 14 2024

A run of a sequence (in this case A361102) is an interval of positions at which consecutive terms differ by one.
Are there only 9 terms?
From David A. Corneth, Jun 14 2024: (Start)
No. a(10) exists.
Between the prime 144115188075855859 and 144115188075855872 = 2^57 there are 12 non-prime-powers so a(12) exists. (End)

			The maximal runs of non-prime-powers begin:
   1
   6
  10
  12
  14  15
  18
  20  21  22
  24
  26
  28
  30
  33  34  35  36
  38  39  40
  42
  44  45  46
  48
  50  51  52
  54  55  56  57  58
  60

Gus Wiseman, Four statistics for runs and antiruns of prime, nonprime, squarefree, and nonsquarefree numbers.

For composite runs we have A073051, sorted A373400, firsts of A176246.
For squarefree runs we have firsts of A120992.
For prime-powers runs we have firsts of A174965.
For prime runs we have firsts of A251092 or A175632.
For squarefree antiruns we have A373128, firsts of A373127.
For nonsquarefree runs we have A373199, firsts of A053797.
The sorted version is A373670.
For antiruns we have firsts of A373672.
For runs of non-prime-powers:
- length A110969
- min A373676
- max A373677
- sum A373678
A000961 lists the powers of primes (including 1).
A005117 lists the squarefree numbers, first differences A076259.
A013929 lists the nonsquarefree numbers, first differences A078147.
A057820 gives first differences of consecutive prime-powers, gaps A093555.
A112798 lists prime indices, reverse A296150, length A001222, sum A056239.
A361102 lists the non-prime-powers, without 1 A024619.
Cf. A007053, A008864, A014963, A027833, A038664, A054265, A067774, A356068, A373401, A373403, A373671.

q=Length/@Split[Select[Range[10000],!PrimePowerQ[#]&],#1+1==#2&]//Most;
spna[y_]:=Max@@Select[Range[Length[y]],SubsetQ[y,Range[#1]]&];
Table[Position[q,k][[1,1]],{k,spna[q]}]

A373670 Numbers k such that the k-th run-length A110969(k) of the sequence of non-prime-powers (A024619) is different from all prior run-lengths.

Original entry on oeis.org

1, 5, 7, 12, 18, 28, 40, 53, 71, 109, 170, 190, 198, 207, 236, 303, 394, 457, 606, 774, 1069, 1100, 1225, 1881, 1930, 1952, 2247, 2281, 3140, 3368, 3451, 3493, 3713, 3862, 4595, 4685, 6625, 8063, 8121, 8783, 12359, 12650, 14471, 14979, 15901, 17129, 19155

Offset: 1

Gus Wiseman, Jun 15 2024

nonn

The unsorted version is A373669.

			The maximal runs of non-prime-powers begin:
   1
   6
  10
  12
  14  15
  18
  20  21  22
  24
  26
  28
  30
  33  34  35  36
  38  39  40
  42
  44  45  46
  48
  50  51  52
  54  55  56  57  58
  60
So the a(n)-th runs begin:
   1
  14  15
  20  21  22
  33  34  35  36
  54  55  56  57  58

For nonsquarefree runs we have A373199 (if increasing), firsts of A053797.
For squarefree antiruns see A373200, unsorted A373128, firsts of A373127.
For composite runs we have A373400, unsorted A073051, firsts of A176246.
For prime antiruns we have A373402.
For runs of non-prime-powers:
- length A110969, firsts A373669, sorted A373670 (this sequence):
- min A373676
- max A373677
- sum A373678
For runs of prime-powers:
- length A174965
- min A373673
- max A373674
- sum A373675
A000961 lists the powers of primes (including 1).
A057820 gives first differences of consecutive prime-powers, gaps A093555.
A361102 lists the non-prime-powers, without 1 A024619.
Cf. A005381, A008864, A014963, A027833, A038664, A356068, A373401, A373574.

t=Length/@Split[Select[Range[10000],!PrimePowerQ[#]&],#1+1==#2&];
Select[Range[Length[t]],FreeQ[Take[t,#-1],t[[#]]]&]

A373820 Run-lengths (differing by 0) of antirun-lengths (differing by > 2) of odd primes.

Original entry on oeis.org

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

Offset: 1

Gus Wiseman, Jun 22 2024

nonn

Run-lengths of the version of A027833 with 1 prepended.

			The antiruns of odd primes (differing by > 2) begin:
   3
   5
   7  11
  13  17
  19  23  29
  31  37  41
  43  47  53  59
  61  67  71
  73  79  83  89  97 101
 103 107
 109 113 127 131 137
 139 149
 151 157 163 167 173 179
 181 191
 193 197
 199 211 223 227
 229 233 239
 241 251 257 263 269
 271 277 281
with lengths:
1, 1, 2, 2, 3, 3, 4, 3, 6, 2, 5, 2, 6, 2, 2, ...
with runs:
  1  1
  2  2
  3  3
  4
  3
  6
  2
  5
  2
  6
  2  2
  4
  3
  5
  3
  4
with lengths a(n).

Gus Wiseman, Four statistics for runs and antiruns of prime, nonprime, squarefree, and nonsquarefree numbers.

Run-lengths of A027833 (if we prepend 1), partial sums A029707.
For runs we have A373819, run-lengths of A251092.
Positions of first appearances are A373827, sorted A373826.
A000040 lists the primes.
A001223 gives differences of consecutive primes, run-lengths A333254, run-lengths of run-lengths A373821.
A046933 counts composite numbers between primes.
A065855 counts composite numbers up to n.
A071148 gives partial sums of odd primes.
For prime runs: A001359, A006512, A025584, A067774, A373405, A373406.
For composite runs: A005381, A054265, A068780, A373403, A373404.
Cf. A005117, A006560, A006562, A037201, A038664, A049579, A073051, A076259, A122535, A176246.

Length/@Split[Length/@Split[Select[Range[3,1000],PrimeQ],#2-#1>2&]//Most]//Most

A373822 Sum of the n-th maximal run of first differences of odd primes.

Original entry on oeis.org

4, 4, 2, 4, 2, 4, 6, 2, 6, 4, 2, 4, 12, 2, 6, 4, 2, 6, 4, 6, 8, 4, 2, 4, 2, 4, 14, 4, 6, 2, 10, 2, 12, 4, 12, 2, 10, 2, 4, 2, 24, 4, 2, 4, 6, 2, 10, 18, 2, 6, 4, 2, 10, 14, 4, 2, 4, 14, 6, 10, 2, 4, 6, 8, 12, 4, 6, 8, 4, 8, 10, 2, 10, 2, 6, 4, 6, 8, 4, 2, 4

Offset: 1

Gus Wiseman, Jun 22 2024

nonn

Run-sums of A001223. For run-lengths instead of run-sums we have A333254.

			The odd primes are
3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, ...
with first differences
2, 2, 4, 2, 4, 2, 4, 6, 2, 6, 4, 2, 4, 6, 6, 2, 6, 4, 2, 6, 4, 6, 8, ...
with runs
(2,2), (4), (2), (4), (2), (4), (6), (2), (6), (4), (2), (4), (6,6), ...
with sums a(n).

Run-sums of A001223.
For run-lengths we have A333254, run-lengths of run-lengths A373821.
Dividing by two gives A373823.
A000040 lists the primes.
A027833 gives antirun lengths of odd primes (partial sums A029707).
A046933 counts composite numbers between primes.
A065855 counts composite numbers up to n.
A071148 gives partial sums of odd primes.
A373820 gives run-lengths of antirun-lengths of odd primes.
For prime runs: A001359, A006512, A025584, A067774, A373405, A373406.
Cf. A037201, A038664, A054265, A176246, A251092, A373404, A373825.

Total/@Split[Differences[Select[Range[3,1000],PrimeQ]]]

A375734 Indices of consecutive prime-powers (exclusive) differing by 1. Positions of 1's in A057820.

Original entry on oeis.org

1, 2, 3, 5, 6, 10, 17, 43, 70, 1077, 6635, 12369, 43578, 105102700

Offset: 1

Gus Wiseman, Sep 04 2024

The corresponding prime-powers A246655(a(n)) are given by A006549.

From A006549, it is not known whether this sequence is infinite.

			The fifth prime-power is 7 and the sixth is 8, so 5 is in the sequence.

For nonprime numbers (A002808) we have A375926, differences A373403.
Positions of 1's in A057820.
First differences are A373671.
For nonsquarefree numbers we have A375709, differences A373409.
For non-prime-powers we have A375713.
For non-perfect-powers we have A375740.
For squarefree numbers we have A375927, differences A373127.
Prime-powers:
- terms: A000961, complement A024619.
- differences: A057820.
- runs: A373675, A373673, A373674, A174965
- anti-runs: A373576, A120430, A006549, A373671
Non-prime-powers:
- terms: A361102
- differences: A375708
- runs: A373678, A373676, A373677, A110969 (A373669, sorted A373670).
- anti-runs: A373679, A373575, A255346, A373672
A000040 lists all of the primes, differences A001223.
A025528 counts prime-powers up to n.
Cf. A007916, A014963, A027833, A046933, A053289, A093555, A375714.

Join@@Position[Differences[Select[Range[100],PrimePowerQ]],1]

Numbers k such that A246655(k+1) - A246655(k) = 1.

The inclusive version is a(n) + 1 shifted.

a(14) from Amiram Eldar, Sep 24 2024

A373573 Least k such that the k-th maximal antirun of nonsquarefree numbers has length n. Position of first appearance of n in A373409.

Original entry on oeis.org

6, 1, 18, 8, 4, 2, 10, 52, 678

Offset: 1

Gus Wiseman, Jun 10 2024

nonn

The sorted version is A373574.
An antirun of a sequence (in this case A013929) is an interval of positions at which consecutive terms differ by more than one.
Is this sequence finite? Are there only 9 terms?

			The maximal antiruns of nonsquarefree numbers begin:
   4   8
   9  12  16  18  20  24
  25  27
  28  32  36  40  44
  45  48
  49
  50  52  54  56  60  63
  64  68  72  75
  76  80
  81  84  88  90  92  96  98
  99
The a(n)-th rows are:
    49
     4    8
   148  150  152
    64   68   72   75
    28   32   36   40   44
     9   12   16   18   20   24
    81   84   88   90   92   96   98
   477  480  484  486  488  490  492  495
  6345 6348 6350 6352 6354 6356 6358 6360 6363

Gus Wiseman, Four statistics for runs and antiruns of prime, nonprime, squarefree, and nonsquarefree numbers

For composite runs we have A073051, firsts of A176246, sorted A373400.
For squarefree runs we have the triple (5,3,1), firsts of A120992.
For prime runs we have the triple (1,3,2), firsts of A175632.
For squarefree antiruns we have A373128, firsts of A373127, sorted A373200.
For nonsquarefree runs we have A373199 (assuming sorted), firsts of A053797.
For prime antiruns we have A373401, firsts of A027833, sorted A373402.
For composite antiruns we have the triple (2,7,1), firsts of A373403.
Positions of first appearances in A373409.
The sorted version is A373574.
A005117 lists the squarefree numbers, first differences A076259.
A013929 lists the nonsquarefree numbers, first differences A078147.
Cf. A007674, A025157, A049094, A061399, A068781, A072284, A110969, A251092, A294242, A373410, A373412.

t=Length/@Split[Select[Range[10000],!SquareFreeQ[#]&],#1+1!=#2&]//Most;
spna[y_]:=Max@@Select[Range[Length[y]],SubsetQ[t,Range[#1]]&];
Table[Position[t,k][[1,1]],{k,spna[t]}]

A242767 Numbers of repetitions of terms in A242758.

Original entry on oeis.org

1, 1, 2, 2, 3, 3, 4, 3, 6, 2, 5, 2, 6, 2, 2, 4, 3, 5, 3, 4, 5, 12, 2, 6, 9, 6, 5, 4, 3, 4, 20, 2, 2, 4, 4, 19, 2, 3, 2, 4, 8, 11, 5, 3, 3, 3, 10, 5, 4, 2, 17, 3, 6, 3, 3, 9, 9, 2, 6, 2, 6, 5, 6, 2, 3, 2, 3, 9, 4, 7, 3, 7, 20, 4, 7, 6, 5, 3, 7, 3, 20, 2, 14, 4

Offset: 2

Vladimir Shevelev, May 22 2014

nonn

If {pA242758. If this number occurs k times in A242758, then we say that k is the index of the pair of twin primes {p,q} with p in A001359.

Is this the same as A027833 shifted by two indices? - R. J. Mathar, May 23 2014

Peter J. C. Moses, Table of n, a(n) for n = 2..5001

Cf. A001359, A006512, A242489, A242490, A242720, A242758.

From the construction of A242758, in supposition of an infinity of twin primes, we have a(2)=1; for n>=3, a(n) = A027833(n-2). Otherwise, A027833 is finite, while A242758 will coincide with A242720 after the last pair of twin primes. - Vladimir Shevelev, May 26 2014

More terms from Peter J. C. Moses, May 22 2014

cp's OEIS Frontend

A373821 Run-lengths of run-lengths of first differences of odd primes.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A373405 Sum of the n-th maximal antirun of odd primes differing by more than two.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A048614 Number of primes between successive pairs of twin primes.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

Formula

Extensions

A373669 Least k such that the k-th maximal run of non-prime-powers has length n. Position of first appearance of n in A110969, and the sequence ends if there is none.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A373670 Numbers k such that the k-th run-length A110969(k) of the sequence of non-prime-powers (A024619) is different from all prior run-lengths.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A373820 Run-lengths (differing by 0) of antirun-lengths (differing by > 2) of odd primes.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A373822 Sum of the n-th maximal run of first differences of odd primes.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A375734 Indices of consecutive prime-powers (exclusive) differing by 1. Positions of 1's in A057820.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

Extensions