A080359 -id:A080359 - 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 *)

A102820 Number of primes between 2prime(n) and 2prime(n+1), where prime(n) is the n-th prime.

Original entry on oeis.org

1, 1, 2, 2, 1, 2, 1, 2, 2, 2, 3, 1, 1, 1, 3, 3, 0, 2, 2, 0, 3, 1, 2, 4, 2, 0, 1, 0, 1, 6, 1, 3, 1, 3, 0, 3, 1, 1, 1, 3, 1, 3, 1, 1, 1, 4, 4, 1, 1, 2, 1, 1, 3, 2, 2, 0, 1, 1, 1, 1, 3, 6, 2, 0, 1, 6, 1, 3, 0, 1, 1, 3, 2, 2, 1, 2, 1, 1, 2, 4, 1, 3, 1, 1, 2, 1, 2, 1, 0, 1, 4, 2, 1, 3, 0, 2, 5, 0, 5, 3, 3, 2, 1, 0, 2

Offset: 1

Ali A. Tanara (tanara(AT)khayam.ut.ac.ir), Feb 27 2005

Number of primes between successive even semiprimes. [Juri-Stepan Gerasimov, May 01 2010]
From Peter Munn, Jun 01 2023: (Start)
First differences of A020900.
A080192 lists prime(n) corresponding to the zero terms.
A104380(k) is prime(n) corresponding to the first occurrence of k as a term.
If a(n) is nonzero, A059786(n) is the smallest and A059788(n+1) the largest of the a(n) enumerated primes. In the tree of primes described in A290183, these primes label the child nodes of prime(n).
Conjecture: the asymptotic proportions of 0's, 1's, ... , k's, ... are 1/3, 2/9, ... , 2^k/3^(k+1), ... .
(End)

			a(15)=3 because there are 3 primes between the doubles of the 15th and 16th primes, that is between 2*47 and 2*53.

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
V. Shevelev, On critical small intervals containing primes, arXiv:0908.2319 [math.NT], 2009.

Sequences with related analysis: A020900, A059786, A059788, A080192, A104380, A290183.
Cf. A104272, A080359. [Vladimir Shevelev, Aug 24 2009]
Cf. A100484, A010051.
Sequences with similar definitions: A104289, A217564.

a102820 n = a102820_list !! (n-1)
a102820_list =  map (sum . (map a010051)) $
   zipWith enumFromTo a100484_list (tail a100484_list)
-- Reinhard Zumkeller, Apr 29 2012

Table[PrimePi[2 Prime[n+1]]-PrimePi[2 Prime[n]], {n, 150}] (* Zak Seidov *)
Differences[PrimePi[2 Prime[Range[110]]]] (* Harvey P. Dale, Oct 29 2022 *)

a(n) = primepi(2*prime(n+1)) - primepi(2*prime(n)); \\ Michel Marcus, Sep 22 2017

a(n) = A020900(n+1) - A020900(n). - Peter Munn, Jun 01 2023

More terms from Zak Seidov, Feb 28 2005

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 *)

A194659 a(n) = A104272(n) - A194658(n).

Original entry on oeis.org

0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 18, 12, 0, 0, 0, 0, 36, 32, 0, 0, 0, 0, 0, 0, 24, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 48, 0, 0, 0, 0, 0, 0, 24, 0, 0, 0, 0, 0, 36, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 30, 0, 0, 0, 0, 18, 0, 0, 0, 16, 0, 0, 0, 0, 0, 0, 0, 34, 0, 0, 0, 0, 0, 0, 0, 0, 0, 48, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 30, 0, 0, 0, 0, 0, 0, 0, 0, 0, 44, 40

Offset: 1

Vladimir Shevelev, Sep 01 2011

nonn

Conjecture 1. The sequence is unbounded.
Records are 0, 18, 36, 48, 64, 84, 114, 138, 184, 202, 214, 268, 282, 366, 374, 378, 412, 444, 528, ... with indices 1, 13, 19, 43, 144, 145, 167, 560, 635, 981, 982, 2605, 3967, 4582, 7422, 7423, 7424, 7425, 10320, ... .
The places of nonzero terms correspond to places of those terms of A194658 which are in A164288. Moreover, for n>=1, places of nonzero terms of A194659 and A194186(n+1) coincide. This means that these sequences have the same lengths of the series of zeros.
Conjecture 2. The asymptotic density of nonzero terms is 2/(e^2+1).

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

Cf. A104272, A194658, A194186, A164288.

up_to = 65537;
A104272list(n) = { my(L=vector(n), s=0, k=1); for(k=1, prime(3*n)-1, if(isprime(k), s++); if(k%2==0 && isprime(k/2), s--); if(sA104272 by Satish Bysany, Mar 02 2017
v104272 = A104272list(65537);
A104272(n) = v104272[n];
A080359(n) = {my(x = 1); while((primepi(x) - primepi(x\2)) != n, x++; ); x; }; \\ From A080359
A194658(n) = precprime(A080359(1+n)-1);
A194659(n) = (A104272(n) - A194658(n)); \\ Antti Karttunen, Sep 21 2018

A080360 a(n) is the largest positive integer x such that the number of unitary-prime-divisors of x! equals n. Same as the largest positive integer x such that the number of primes in (x/2,x] equals n.

Original entry on oeis.org

10, 16, 28, 40, 46, 58, 66, 70, 96, 100, 106, 126, 148, 150, 166, 178, 180, 226, 228, 232, 238, 240, 262, 268, 280, 306, 310, 346, 348, 366, 372, 400, 408, 418, 430, 432, 438, 460, 486, 490, 502, 568, 570, 586, 592, 598, 600, 606, 640, 642, 646, 652, 658, 676

Offset: 1

Labos Elemer, Feb 21 2003

nonn

			n=5: in 46! five unitary-prime-divisors[UPD] appear: {29,31,37,41,43}. In larger factorials number of UPD is not more equal 5. Thus a(5)=46.

S. Ramanujan, Collected Papers of Srinivasa Ramanujan (Ed. G. H. Hardy, S. Aiyar, P. Venkatesvara and B. M. Wilson), Amer. Math. Soc., Providence, 2000, pp. 208-209.

Amiram Eldar, Table of n, a(n) for n = 1..10000
S. Ramanujan, A proof of Bertrand's postulate, J. Indian Math. Soc., 11 (1919), 181-182.
V. Shevelev, Ramanujan and Labos primes, their generalizations and classifications of primes, arXiv:0909.0715 [math.NT], 2009-2011.
J. Sondow, Ramanujan Prime in MathWorld
J. Sondow and E. W. Weisstein, Bertrand's Postulate in MathWorld
J. Sondow, Ramanujan primes and Bertrand's postulate, Amer. Math. Monthly, 116 (2009), 630-635; arXiv:0907.5232 [math.NT], 2009-2010.
Wikipedia, Ramanujan prime

Cf. A056171, A056169, A000720, A000142, A080359.

Cf. A104272 (Ramanujan primes).

nn = 60; R = Table[0, {nn}]; s = 0;
Do[If[PrimeQ[k], s++]; If[PrimeQ[k/2], s--]; If[s < nn, R[[s+1]] = k], {k, Prime[3*nn]}];
Rest[R] (* Jean-François Alcover, Dec 02 2018, after T. D. Noe in A104272 *)

a(n) = Max{x; Pi[x]-Pi[x/2]=n} = Max{x; A056171(x)=n} = Max{x; A056169(n!)=n}; where Pi()=A000720().

a(n) = A104272(n+1) - 1. [Jonathan Sondow, Aug 11 2008]

Definition corrected by Jonathan Sondow, Aug 10 2008

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 *)

A194674 Positions of nonzero terms of A194659(n)-A194186(n+1), n>=1.

Original entry on oeis.org

20, 27, 73, 77, 85, 95, 106, 116, 117, 122, 125, 132, 137, 144, 145, 152, 162, 167, 168, 189, 191, 192, 193, 198, 201, 208, 213, 234, 235, 236, 243, 249, 258, 259, 265, 275, 279, 286, 287, 291, 318, 319, 321, 329, 330, 331, 340

Offset: 1

Vladimir Shevelev, Sep 01 2011

nonn

The sequence (together with A194953) characterizes a right-left symmetry in the distribution of primes over intervals (2*p_n, 2*p_(n+1)), n=1,2,..., where p_n is the n-th prime.

V. Shevelev, Ramanujan and Labos primes, their generalizations and classifications of primes

Cf. A104272, A080359, A193507, A194186, A164368, A194598, A194658, A194659, A194953, A164288, A164294.

A212493 Let p_n=prime(n), n>=1. Then a(n) is the least prime p which differs from p_n, for which the intervals (p/2,p_n/2), (p,p_n], if pp_n, contain the same number of primes, and a(n)=0, if no such prime p exists.

Original entry on oeis.org

0, 5, 3, 3, 3, 17, 13, 23, 19, 19, 37, 31, 31, 47, 43, 59, 53, 67, 61, 0, 79, 73, 73, 73, 73, 0, 107, 103, 127, 131, 109, 113, 113, 151, 113, 139, 163, 157, 157, 179, 173, 0, 223, 197, 193, 233, 193, 191, 191, 193, 199, 0, 0, 257, 251, 251, 0, 277, 271, 271

Offset: 1

Vladimir Shevelev and Peter J. C. Moses, May 18 2012

nonn

a(n)=0 if and only if p_n is a peculiar prime, i.e., simultaneously Ramanujan (A104272) and Labos (A080359) prime (see sequence A164554).

a(n)>p_n if and only if p_n is Labos prime but not Ramanujan prime.

			Let n=5, p_5=11; p=2 is not suitable, since in (1,5.5) we have 3 primes, while in (2,11] there are 4 primes. Consider p=3. Now in intervals (1.5,5.5) and (3,11] we have the same number (3) of primes. Therefore, a(5)=3. The same value we can obtain by the formula. Since 11 is not a Labos prime, then a(5)=A080359(5-pi(5.5))=A080359(2)=3.

Vladimir Shevelev, Ramanujan and Labos primes, their generalizations, and classifications of primes, J. Integer Seq. 15 (2012) Article 12.5.4.
Jonathan Sondow, J. W. Nicholson, and T. D. Noe, Ramanujan Primes: Bounds, Runs, Twins, and Gaps, arXiv:1105.2249 [math.NT], 2011; J. Integer Seq. 14 (2011) Article 11.6.2.

Cf. A104272, A080359, A164554.

terms = 60; nn = Prime[terms];
R = Table[0, {nn}]; s = 0; Do[If[PrimeQ[k], s++]; If[PrimeQ[k/2], s--]; If[s < nn, R[[s + 1]] = k], {k, Prime[3 nn]}];
A104272 = R + 1;
t = Table[0, {nn + 1}]; s = 0; Do[If[PrimeQ[k], s++]; If[PrimeQ[k/2], s--]; If[s <= nn && t[[s + 1]] == 0, t[[s + 1]] = k], {k, Prime[3 nn]}];
A080359 = Rest[t];
a[n_] := Module[{}, pn = Prime[n]; If[MemberQ[A104272, pn] && MemberQ[ A080359, pn], Return[0]]; For[p = 2, True, p = NextPrime[p], Which[ppn, If[PrimePi[p/2] - PrimePi[pn/2] == PrimePi[p] - PrimePi[pn], Return[p]]]]];
Array[a, terms] (* Jean-François Alcover, Dec 04 2018, after T. D. Noe in A104272 *)

If p_n is not a Labos prime, then a(n) = A080359(n-pi(p_n/2)).

A182366 Records in A194217.

Original entry on oeis.org

8, 10, 24, 36, 60, 64, 84, 114, 124, 144, 202, 226, 228

Offset: 1

Vladimir Shevelev, Apr 26 2012

nonn

Records in A194217(n) occur at n = 2, 4, 10, 14, 43, 95, 145, 167, 287, 415, 560, 635, 982,...

Cf. A104272, A080359, A193507, A194184, A194186, A194217.

A212541 Let p_n=prime(n), n>=1. Then a(n) is the maximal prime p which differs from p_n, for which the intervals (p/2,p_n/2), (p,p_n], if pp_n, contain the same number of primes, and a(n)=0, if no such prime p exists.

Original entry on oeis.org

0, 11, 11, 11, 7, 17, 13, 29, 29, 23, 41, 41, 37, 47, 43, 59, 53, 67, 61, 0, 97, 97, 97, 97, 89, 0, 107, 103, 127, 149, 109, 149, 149, 151, 137, 139, 167, 167, 163, 179, 173, 0, 227, 229, 229, 233, 229, 227, 223, 211, 199, 0, 0, 263, 263, 257, 0, 281, 281

Offset: 1

Vladimir Shevelev and Peter J. C. Moses, May 20 2012

nonn

a(n)A104272).

a(n)=0 if and only if p_n is a peculiar prime, i.e., simultaneously Ramanujan and Labos (A080359) prime (see sequence A164554).

			Let n=4, p_n=7. Since 7 is not Ramanujan prime, then a(4) = A104272(4-pi(3.5)) = A104272(2) = 11.

V. Shevelev, Ramanujan and Labos primes, their generalizations, and classifications of primes, J. Integer Seq. 15 (2012) Article 12.5.4

Cf. A212493, A104272, A080359, A164554.

If p_n is not a Ramanujan prime, then a(n) = A104272(n-pi(p_n/2)).

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

A102820 Number of primes between 2*prime(n) and 2*prime(n+1), where prime(n) is the n-th prime.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Haskell

Mathematica

PARI

Formula

Extensions

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

A194659 a(n) = A104272(n) - A194658(n).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

PARI

A080360 a(n) is the largest positive integer x such that the number of unitary-prime-divisors of x! equals n. Same as the largest positive integer x such that the number of primes in (x/2,x] equals n.

Views

Author

Keywords

Examples

References

Links

Crossrefs

Programs

Mathematica

Formula

Extensions

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

A194674 Positions of nonzero terms of A194659(n)-A194186(n+1), n>=1.

Views

Author

Keywords

Comments

Links

Crossrefs

A212493 Let p_n=prime(n), n>=1. Then a(n) is the least prime p which differs from p_n, for which the intervals (p/2,p_n/2), (p,p_n], if pp_n, contain the same number of primes, and a(n)=0, if no such prime p exists.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

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

A102820 Number of primes between 2prime(n) and 2prime(n+1), where prime(n) is the n-th prime.

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.