A025584 -id:A025584 - cp's OEIS frontend

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

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

A166081 Natural numbers that are not the sum of two distinct primes.

Original entry on oeis.org

1, 2, 3, 4, 6, 11, 17, 23, 27, 29, 35, 37, 41, 47, 51, 53, 57, 59, 65, 67, 71, 77, 79, 83, 87, 89, 93, 95, 97, 101, 107, 113, 117, 119, 121, 123, 125, 127, 131, 135, 137, 143, 145, 147, 149, 155, 157, 161, 163, 167, 171, 173, 177, 179, 185, 187, 189, 191, 197, 203

Offset: 1

Juri-Stepan Gerasimov, Oct 06 2009

nonn

All numbers that appear in A014092 are also in this sequence, by definition.
It seems that, for n > 6, the reverse is also true, however this is unproved. - Ely Golden, Dec 25 2016
All numbers that appear in this sequence but not A014092 must be even semiprimes with no other partitions into primes. - Ely Golden, Dec 25 2016

Alois P. Heinz, Table of n, a(n) for n = 1..10000 (first 1000 terms from G. C. Greubel)

Cf. A117929, A006881, A038609 (complement), A014092, A066615.

Select[Range@ 204, Length@Select[Transpose@{#, Reverse@ # - 1} &@ Range[#] &@ #, Times @@ Boole@ Map[PrimeQ, #] == 1 && First@ # != Last@ # &] == 0 &] (* Michael De Vlieger, Apr 24 2016 *)
max = 1000;
ip = PrimePi[max];
A038609 = Table[Prime[i] + Prime[j], {i, ip}, {j, i + 1, ip}] // Flatten // Union // Select[#, # <= max&]&;
Complement[Range[max], A038609] (* Jean-François Alcover, Mar 24 2020 *)

{1} U A025584 U A109934. - R. J. Mathar, Oct 08 2009

A000027 \ A038609. - R. J. Mathar, Oct 14 2009

A062301 Number of ways writing n-th prime as a sum of two primes.

Original entry on oeis.org

0, 0, 1, 1, 0, 1, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1

Offset: 1

Labos Elemer, Jul 05 2001

nonn

a(n) = 1 if and only if n is in A006512. - Robert Israel, Apr 04 2018

Muniru A Asiru, Table of n, a(n) for n = 1..3000

Equals A061358(A000040(n)).

Cf. A006512, A014092, A025584.

P:=Filtered([1..1000],IsPrime);; a:=List(List(List(P, i -> Partitions(i,2)), k -> Filtered(k, i -> IsPrime(i[1]) and IsPrime(i[2]))),Length); # Muniru A Asiru, Apr 05 2018

a:= n-> `if`(isprime(ithprime(n)-2), 1, 0):
seq(a(n), n=1..105);  # Alois P. Heinz, Oct 02 2020

Table[Sum[(PrimePi[Prime[n] - i] - PrimePi[Prime[n] - i - 1]) (PrimePi[i] - PrimePi[i - 1]), {i, Floor[Prime[n]/2]}], {n, 100}] (* Wesley Ivan Hurt, Apr 04 2018 *)

a(n) = isprime(prime(n) - 2) \\ David A. Corneth, Apr 04 2018

Offset changed to 1 by David A. Corneth, Apr 04 2018

A373825 Position of first appearance of n in the run-lengths (differing by 0) of the run-lengths (differing by 2) of the odd primes.

Original entry on oeis.org

1, 2, 13, 11, 105, 57, 33, 69, 59, 29, 227, 129, 211, 341, 75, 321, 51, 45, 407, 313, 459, 301, 767, 1829, 413, 537, 447, 1113, 1301, 1411, 1405, 2865, 1709, 1429, 3471, 709, 2543, 5231, 1923, 679, 3301, 2791, 6555, 5181, 6345, 11475, 2491, 10633

Offset: 1

Gus Wiseman, Jun 21 2024

nonn

Positions of first appearances in A373819.

			The runs 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
with lengths:
3, 2, 2, 1, 2, 1, 2, 1, 1, 2, 1, 2, 1, 1, 1, 1, 2, 2, 1, 1, 1, 2, 2, 1, 1, 1, 1, 2, 2, 2, ...
which have runs beginning:
  3
  2 2
  1
  2
  1
  2
  1 1
  2
  1
  2
  1 1 1 1
  2 2
  1 1 1
with lengths:
1, 2, 1, 1, 1, 1, 2, 1, 1, 1, 4, 2, 3, 2, 4, 3, ...
with positions of first appearances a(n).

Firsts of A373819 (run-lengths of A251092).
For antiruns we have A373827 (sorted A373826), firsts of A373820, run-lengths of A027833 (partial sums A029707, firsts A373401, sorted A373402).
The sorted version is A373824.
A000040 lists the primes.
A001223 gives differences of consecutive primes (firsts A073051), run-lengths A333254 (firsts A335406), 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, A176246, A373403, A373404.
Cf. A006560, A006562, A037201, A038664, A069010, A122535.

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

A049579 Numbers k such that prime(k)+2 divides (prime(k)-1)!.

Original entry on oeis.org

4, 6, 8, 9, 11, 12, 14, 15, 16, 18, 19, 21, 22, 23, 24, 25, 27, 29, 30, 31, 32, 34, 36, 37, 38, 39, 40, 42, 44, 46, 47, 48, 50, 51, 53, 54, 55, 56, 58, 59, 61, 62, 63, 65, 66, 67, 68, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 82, 84, 85, 86, 87, 88, 90, 91, 92, 93, 94, 95

Offset: 1

Labos Elemer

nonn

Numbers k such that prime(k+1) - prime(k) does not divide prime(k+1) + prime(k). These are the numbers k for which prime(k+1) - prime(k) > 2. - Thomas Ordowski, Mar 31 2022

If we prepend 1, the first differences are A251092 (see also A175632). The complement is A029707. - Gus Wiseman, Dec 03 2024

			prime(4) = 7, 6!+1 = 721 gives residue 1 when divided by prime(4)+2 = 9.

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

The first differences are A251092 except first term, run-lengths A373819.
The complement is A029707.
Runs of terms differing by one have lengths A027833, min A107770, max A155752.
A000040 lists the primes, differences A001223 (run-lengths A333254, A373821).
A038664 finds the first prime gap of difference 2n.
A046933 counts composite numbers between primes.
A071148 gives partial sums of odd primes.
For prime runs: A001359, A005381, A006512, A025584, A067774, A373403.
Cf. A006560, A006562, A037201, A122535, A175632, A176246, A373820.

pnmQ[n_]:=Module[{p=Prime[n]},Mod[(p-1)!+1,p+2]==1]; Select[Range[ 100],pnmQ] (* Harvey P. Dale, Jun 24 2017 *)

isok(n) = (((prime(n)-1)! + 1) % (prime(n)+2)) == 1; \\ Michel Marcus, Dec 31 2013

Definition edited by Thomas Ordowski, Mar 31 2022

A136799 Last term in a sequence of at least 3 consecutive composite integers.

Original entry on oeis.org

10, 16, 22, 28, 36, 40, 46, 52, 58, 66, 70, 78, 82, 88, 96, 100, 106, 112, 126, 130, 136, 148, 156, 162, 166, 172, 178, 190, 196, 210, 222, 226, 232, 238, 250, 256, 262, 268, 276, 280, 292, 306, 310, 316, 330, 336, 346, 352, 358, 366, 372, 378, 382, 388, 396

Offset: 1

Enoch Haga, Jan 21 2008

An equivalent definition is "Last term in a sequence of at least 2 consecutive composite integers". - Jon E. Schoenfield, Dec 04 2017
The BASIC program below is useful in testing Grimm's Conjecture, subject of Carlos Rivera's Puzzle 430
Use the program with lines 30 and 70 enabled in the first run and then disabled with lines 31 and 71 enabled in the second run.
Composite numbers m such that m-1 is composite, and m+1 is not. - Martin Michael Musatov, Oct 24 2017

			a(1)=10 because 10 is the last term in a run of three composites beginning with 8 and ending with 10 (8,9,10).

Michael De Vlieger, Table of n, a(n) for n = 1..10000
Carlos Rivera, Puzzle 430, Grimm's Conjecture, Prime puzzles and problems connection.

Cf. A136798, A136800, A136801.

[p-1: p in PrimesInInterval(4, 420) | not IsPrime(p - 2)]; // Vincenzo Librandi, Apr 11 2019

Select[Prime@ Range@ 78, CompositeQ[# - 2] &] - 1 (* Michael De Vlieger, Oct 23 2015, after PARI *)

forprime(p=5, 1000, if(isprime(p-2)==0, print1(p-1, ", "))) \\ Altug Alkan, Oct 23 2015

10 'puzzle 430 (gap finder) 20 N=1 30 A=1:S=sqrt(N):print N; 31 'A=1:S=N\2:print N; 40 B=N\A 50 if B*A=N and B=prmdiv(B) then print B; 60 A=A+1 70 if A<=sqrt(N) then 40 71 'if A<=N\2 then 40 80 C=C+1:print C 90 N=N+1: if N=prmdiv(N) then C=0:print:stop:goto 90:else 30

a(n) = A025584(n+2) - 1. - R. J. Mathar, Jan 24 2008

a(n) ~ n log n. - Charles R Greathouse IV, Oct 27 2015

Edited by R. J. Mathar, May 27 2009

a(53) corrected by Bill McEachen, Oct 27 2015

A373819 Run-lengths (differing by 0) of the run-lengths (differing by 2) of the odd primes.

Original entry on oeis.org

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

Offset: 1

Gus Wiseman, Jun 20 2024

nonn

Run-lengths of A251092.

			The odd primes begin:
3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, ...
with runs:
   3   5   7
  11  13
  17  19
  23
  29  31
  37
  41  43
  47
  53
  59  61
  67
  71  73
with lengths:
3, 2, 2, 1, 2, 1, 2, 1, 1, 2, 1, 2, 1, 1, 1, 1, 2, 2, 1, 1, 1, 2, 2, 1, ...
which have runs beginning:
  3
  2 2
  1
  2
  1
  2
  1 1
  2
  1
  2
  1 1 1 1
  2 2
  1 1 1
with lengths a(n).

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

Run-lengths of A251092.
For antiruns we have A373820, run-lengths of A027833 (if we prepend 1).
Positions of first appearances are A373825, sorted A373824.
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, A029707, A037201, A038664, A076259, A176246.

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

A067829 Primes p such that sigma(p-2) < p.

Original entry on oeis.org

3, 5, 7, 13, 19, 31, 43, 61, 73, 103, 109, 139, 151, 181, 193, 199, 229, 241, 271, 283, 313, 349, 421, 433, 463, 523, 571, 601, 619, 643, 661, 811, 823, 829, 859, 883, 1021, 1033, 1051, 1063, 1093, 1153, 1231, 1279, 1291, 1303, 1321, 1429, 1453, 1483, 1489

Offset: 1

Benoit Cloitre, Feb 08 2002

nonn

Also, apart from the first term, greater members of twin prime pairs: A006512(n) = a(n+1). - Reinhard Zumkeller, Dec 07 2002
Smallest prime > n-th odd number that is the difference of 2 primes. - Juri-Stepan Gerasimov, Nov 08 2010
These primes are the only primes, p(j) = A000040(j), such that (p(j)-p(j-m)) divides (p(j)+p(j-m)) for some m, 0 < m < j. For all such cases, m=1. It is easy to prove for j-m>1 the only common factor of (p(j)-p(j-m)) and (p(j)+p(j-m)) is 2, and there are no common factors if j-m = 1. Thus, p(j-m) is the lesser member of a twin prime pair, except when j=2. - Richard R. Forberg, Mar 25 2015

Robert Price, Table of n, a(n) for n = 1..10000

Cf. A025584, A001359, A006512, A000203.

Select[Prime@ Range@ 240, DivisorSigma[1, # - 2] < # &] (* Michael De Vlieger, Jun 12 2015 *)

lista(nn) = forprime(p=3, nn, if (sigma(p-2) < p, print1(p, ", "));); \\ Michel Marcus, Jun 06 2015

A373824 Sorted positions of first appearances in the run-lengths (differing by 0) of the run-lengths (differing by 2) of the odd primes.

Original entry on oeis.org

1, 2, 11, 13, 29, 33, 45, 51, 57, 59, 69, 75, 105, 129, 211, 227, 301, 313, 321, 341, 407, 413, 447, 459, 537, 679, 709, 767, 1113, 1301, 1405, 1411, 1429, 1439, 1709, 1829, 1923, 2491, 2543, 2791, 2865, 3301, 3471, 3641, 4199, 4611, 5181, 5231, 6345, 6555

Offset: 1

Gus Wiseman, Jun 21 2024

nonn

Sorted positions of first appearances in A373819.

			The runs 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
with lengths:
3, 2, 2, 1, 2, 1, 2, 1, 1, 2, 1, 2, 1, 1, 1, 1, 2, 2, 1, 1, 1, 2, 2, 1, 1, 1, 1, 2, 2, 2, ...
which have runs beginning:
  3
  2 2
  1
  2
  1
  2
  1 1
  2
  1
  2
  1 1 1 1
  2 2
  1 1 1
with lengths:
1, 2, 1, 1, 1, 1, 2, 1, 1, 1, 4, 2, 3, 2, 4, 3,...
with sorted positions of first appearances a(n).

Sorted firsts of A373819 (run-lengths of A251092).
The unsorted version is A373825.
For antiruns we have A373826, unsorted A373827.
A000040 lists the primes.
A001223 gives differences of consecutive primes (firsts A073051), run-lengths A333254 (firsts A335406), 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.
A373820 gives run-lengths of antirun-lengths, run-lengths of A027833.
For prime runs: A001359, A006512, A025584, A067774, A373405, A373406.
For composite runs: A005381, A054265, A068780, A373403, A373404.
Cf. A006560, A006562, A029707, A037201, A038664, A069010, A122535, A176246, A373401, A373402.

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

cp's OEIS Frontend

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

A166081 Natural numbers that are not the sum of two distinct primes.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

Formula

A062301 Number of ways writing n-th prime as a sum of two primes.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

GAP

Maple

Mathematica

PARI

Extensions

A373825 Position of first appearance of n in the run-lengths (differing by 0) of the run-lengths (differing by 2) of the odd primes.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A049579 Numbers k such that prime(k)+2 divides (prime(k)-1)!.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Extensions

A136799 Last term in a sequence of at least 3 consecutive composite integers.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Magma

Mathematica

PARI

UBASIC

Formula

Extensions

A373819 Run-lengths (differing by 0) of the run-lengths (differing by 2) of the odd primes.