A164333 -id:A164333 - cp's OEIS frontend

A166252 Primes which are not the smallest or largest prime in an interval of the form (2prime(k),2prime(k+1)).

71, 101, 109, 151, 181, 191, 229, 233, 239, 241, 269, 283, 311, 349, 373, 409, 419, 433, 439, 491, 571, 593, 599, 601, 607, 643, 647, 653, 659, 683, 727, 823, 827, 857, 941, 947, 991, 1021, 1031, 1033, 1051, 1061, 1063, 1091, 1103, 1301, 1373, 1427, 1429

Offset: 1

Vladimir Shevelev, Oct 10 2009, Oct 14 2009

nonn

Called "central primes" in A166251, not to be confused with the central polygonal primes A055469.
The primes tabulated in intervals (2*prime(k),2*prime(k+1)) are
5, k=1
7, k=2
11,13, k=3
17,19, k=4
23,    k=5
29,31, k=6
37,    k=7
41,43, k=8
47,53, k=9
59,61, k=10
67,71,73,  k=11
79,        k=12
83,     k=13
89,     k=14
97,101,103, k=15
and only rows with at least 3 primes contribute primes to the current sequence.
For n >= 2, these are numbers of A164368 which are in A194598. - Vladimir Shevelev, Apr 27 2012

			Since 2*31 < 71 < 2*37 and the interval (62, 74) contains prime 67 < 71 and prime 73 > 71, then 71 is in the sequence.

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

Cf. A166307, A182365, A166251, A164368, A104272, A080359, A164333, A164288, A164294, A164554, A194598.

n = 0; t = {}; While[Length[t] < 100, n++; ps = Select[Range[2*Prime[n], 2*Prime[n+1]], PrimeQ]; If[Length[ps] > 2, t = Join[t, Rest[Most[ps]]]]]; t (* T. D. Noe, Apr 30 2012 *)

A166307 The smallest prime in some interval of the form (2prime(k),2prime(k+1)) if this interval contains at least 2 primes.

Original entry on oeis.org

11, 17, 29, 41, 47, 59, 67, 97, 107, 127, 137, 149, 167, 179, 197, 227, 263, 281, 307, 347, 367, 401, 431, 461, 487, 503, 521, 569, 587, 617, 641, 677, 719, 739, 751, 769, 809, 821, 853, 881, 907, 937, 967, 983, 1009, 1019, 1049, 1087, 1097, 1117, 1151, 1163, 1187, 1217, 1229, 1249, 1277

Offset: 1

Vladimir Shevelev, Oct 11 2009, Oct 17 2009

nonn

These are called "right primes" in A166251.

			For p=29 we have: 2*13 < 29 < 2*17 and interval (26, 29) is free from primes while interval (29, 34) contains a prime. Therefore 29 is in the sequence for k=6.

Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Cf. A166252, A166251, A164368, A104272, A080359, A164333, A164288, A164294, A164554, A182365.

f[n_] := Block[{t = Select[ Table[i, {i, 2 Prime[n], 2 Prime[n + 1]}], PrimeQ]}, If[ Length@ t > 1, t[[1]], 0]]; Rest@ Union@ Array[f, 115] (* Robert G. Wilson v, May 08 2011 *)

A182365 The largest prime in some interval of the form (2prime(k),2prime(k+1)) if this interval contains at least 2 primes.

Original entry on oeis.org

13, 19, 31, 43, 53, 61, 73, 103, 113, 131, 139, 157, 173, 193, 199, 251, 271, 293, 313, 353, 379, 421, 443, 463, 499, 509, 523, 577, 613, 619, 661, 691, 733, 743, 757, 773, 811, 829, 859, 883, 911, 953, 971, 997, 1013, 1039, 1069, 1093, 1109, 1123, 1153

Offset: 1

Vladimir Shevelev, Apr 26 2012

nonn

These are called "left primes" in A166251.

			For k=6 we have 2*13 < 29 < 31 < 2*17, and the interval contains two primes. Therefore 31 is in the sequence.

Cf. A166252, A166251, A164368, A104272, A080359, A164333, A164288, A164294, A164554, A166307.

n = 0; t = {}; While[Length[t] < 100, n++; ps = Select[Range[2*Prime[n], 2*Prime[n + 1]], PrimeQ]; If[Length[ps] >= 2, AppendTo[t, ps[[-1]]]]]; t (* T. D. Noe, Apr 30 2012 *)

A166574 If p, q are successive primes, and there is a number k with p < k <= q such that r = p+k is a prime, then r is in the sequence.

Original entry on oeis.org

5, 7, 11, 17, 23, 29, 41, 47, 59, 67, 83, 89, 97, 107, 109, 127, 137, 149, 151, 167, 179, 181, 197, 227, 229, 233, 239, 257, 263, 281, 283, 307, 317, 337, 347, 349, 359, 367, 383, 389, 401, 409, 431, 433, 449, 461, 467, 479, 487, 491

Offset: 1

Vladimir Shevelev, Oct 17 2009

nonn

The old definition was: Primes p>=5 with the property: if Prime(k)

If A(x) is the counting function of a(n) not exceeding x, then, in view of the symmetry, it is natural to conjecture that A(x)~pi(x)/2.

			Taking p=2, q=3, k=3 we get r=2+3=5, the first term.
Taking p=3, q=5, k=4 we get r=3+4=7, the second term.
From p=89, q=97 we can take both k=90 and k=92, getting the terms 89+90=179 and 89+92=181. - _Art Baker_, Mar 16 2019

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Cf. A182365, A166307, A166252, A166251, A164368, A104272, A080359, A164333, A164288, A164294, A164554

Reap[Do[p=Prime[n]; k=PrimePi[p/2]; If[p<=Prime[k]+Prime[k+1], Sow[p]], {n,3,PrimePi[1000]}]][[2,1]]
Select[#[[1]]+Range[#[[1]]+1,#[[2]]],PrimeQ]&/@Partition[Prime[Range[60]],2,1]//Flatten (* Harvey P. Dale, Jul 02 2024 *)

Extended by T. D. Noe, Dec 01 2010

Edited with simpler definition based on a suggestion from Art Baker. -N. J. A. Sloane, Mar 16 2019

A166575 Primes p>=5 with the property: if Prime(k)
=Prime(k)+ Prime(k+1).

Original entry on oeis.org

5, 13, 19, 31, 37, 43, 53, 61, 71, 73, 79, 101, 103, 113, 131, 139, 157, 163, 173, 191, 193, 199, 211, 223, 241, 251, 269, 271, 277, 293, 311, 313, 331, 353, 373, 379, 397, 419, 421, 439, 443, 457, 463, 499, 509, 521, 523, 541, 577, 601, 607, 613, 619, 631, 653, 659, 661, 673, 691

Offset: 1

Vladimir Shevelev, Oct 17 2009

nonn

If A(x) is the counting function of a(n) not exceeding x, then, in view of the symmetry, it is natural to conjecture that A(x)~pi(x)/2.

			Let p=13. Then we have 5<13/2<7. Since 13>5+7, then 13 is in the sequence.

Cf. A166574, A182365, A166307, A166252, A166251, A164368, A104272, A080359, A164333, A164288, A164294, A164554

Reap[Do[p=Prime[n]; k=PrimePi[p/2]; If[p>=Prime[k]+Prime[k+1], Sow[p]], {n,3,PrimePi[1000]}]][[2,1]]

Previous Showing 11-15 of 15 results.

cp's OEIS Frontend

A166252 Primes which are not the smallest or largest prime in an interval of the form (2*prime(k),2*prime(k+1)).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A166307 The smallest prime in some interval of the form (2*prime(k),2*prime(k+1)) if this interval contains at least 2 primes.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A182365 The largest prime in some interval of the form (2*prime(k),2*prime(k+1)) if this interval contains at least 2 primes.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A166574 If p, q are successive primes, and there is a number k with p < k <= q such that r = p+k is a prime, then r is in the sequence.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Extensions

A166575 Primes p>=5 with the property: if Prime(k)=Prime(k)+ Prime(k+1).

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A166252 Primes which are not the smallest or largest prime in an interval of the form (2prime(k),2prime(k+1)).

A166307 The smallest prime in some interval of the form (2prime(k),2prime(k+1)) if this interval contains at least 2 primes.

A182365 The largest prime in some interval of the form (2prime(k),2prime(k+1)) if this interval contains at least 2 primes.

A166575 Primes p>=5 with the property: if Prime(k)
=Prime(k)+ Prime(k+1).