cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-10 of 13 results. Next

A195329 Records of A195325.

Original entry on oeis.org

2, 59, 71, 149, 191, 641, 809, 3371, 5849, 9239, 20507, 20981, 32117, 48779, 176777, 191249, 204509, 211061, 223679, 245129, 358877, 654161, 2342771, 3053291, 4297961, 4755347, 6750221, 8019509, 9750371, 10196759, 11237981, 23367077, 34910219, 93929219, 186635747
Offset: 1

Views

Author

Vladimir Shevelev, Sep 15 2011

Keywords

Comments

The sequence is infinite. Conjecture. For n>=2, all terms are in A001359. This conjecture (weaker than the conjecture in comment to A195325) also implies the twin prime conjecture.

Crossrefs

A198469 a(n) is the smallest prime(m) such that the interval (prime(m)*n, prime(m+1)*n) contains exactly seven primes.

Original entry on oeis.org

1129, 113, 139, 139, 23, 47, 7, 7, 37, 67, 67, 37, 127, 3, 3, 5, 41, 11, 17, 5, 5, 5, 29, 71, 11, 101, 2, 2, 2, 101, 107, 2, 2, 71, 71, 191, 191, 227, 239, 281, 2, 197, 227, 107, 29, 569, 281, 821, 599, 1031, 521, 641, 659, 1229, 569, 1061, 1481, 2657, 641
Offset: 2

Views

Author

Keywords

Comments

The sequence is unbounded.
Conjecture. In the supposition that there are infinitely many twin primes, every term beginning with the 15th is 2 or in A001359 (lesser of twin primes).
A generalization. Consider sequence A_r: "A_r(n) is the smallest prime(m) such that the interval (prime(m)*n, prime(m+1)*n) contains exactly r>=0 primes". Then the sequence is unbounded and, in the supposition that there are infinitely many twin primes, we conjecture that there exists number N=N(r)>=2, such that for n>=N every term A_r(n) is 2 or in A001359.
Proof of unboundedness. If the sequence is bounded,then for some k and for arbitrary n, a(n) is in the set {p_1,p_2,...,p_k}, where p_i=prime(i). This means that for all n there exists p_i<=p_k such that interval (n*p_i, n*p_(i+1)) contains exactly r primes. However, from the PNT it evidently follows that pi(n*p_(i+1))-pi(n*p_i) tends to infinity as n goes to infinity, i.e., for sufficiently large n we obtain a contradiction for every i<=k.
Note that from these arguments it follows more: for every fixed r>=0, A_r(n) tends to infinity as n goes to infinity. Thus a fixed prime which is in the sequence can repeat only a finite number of times.
In addition, note that the condition "in the supposition that there are infinitely many twin primes" means that, if after a large number N_(tw) there are no twin primes, then this sequence, existing after N_(tw), of course, cannot have any term in A001359.

Examples

			Let n=20, and consider intervals of the form (20*prime(m), 20*prime(m+1)).
For 2, 3, 5, ..., the intervals (40,60), (60,100), (100,140), (140,220), (220,260), (260,340), (340,380), ... contain 5, 8, 9, 13, 8, 13, 7, ... primes. Hence the smallest such prime is 17.
		

Crossrefs

Programs

  • Mathematica
    a[n_] := Catch[ For[m = 1, True, m++, p = Prime[m]; If[PrimePi[n*Prime[m + 1]] - PrimePi[n*p] == 7, Throw[p]]]]; Table[a[n], {n, 2, 60}] (* Jean-François Alcover, Jan 18 2013 *)

A080192 Complement of A080191 relative to A000040. Prime p is a term iff there is no prime between 2*p and 2*q, where q is the next prime after p.

Original entry on oeis.org

59, 71, 101, 107, 149, 263, 311, 347, 461, 499, 521, 569, 673, 757, 821, 823, 857, 881, 883, 907, 967, 977, 1009, 1061, 1091, 1093, 1151, 1213, 1279, 1283, 1297, 1301, 1319, 1433, 1487, 1489, 1493, 1549, 1571, 1597, 1619, 1667, 1697, 1721, 1787, 1871, 1873
Offset: 1

Views

Author

Klaus Brockhaus, Feb 10 2003

Keywords

Comments

From Peter Munn, Oct 19 2017: (Start)
This is also a list of the leaf node labels in the tree of primes described in A290183.
For k > 0, the earliest run of k adjacent primes in this sequence starts with the least prime greater than A215238(k+1)/2. Thus we see that A215238(3) = 1637 corresponds to 821 followed by 823 being the first run of 2 adjacent primes in this sequence.
(End)
From Peter Munn, Nov 02 2017: (Start)
If p is in A005384 (a Sophie Germain prime), 2p+1 is therefore a prime, so p cannot be in this sequence. Similarly, any prime p in A023204 has a corresponding prime 2p+3, which (if p>2) likewise implies its absence (and if p=2 it is in A005384).
If p is the lesser of twin primes it is in this sequence if it is neither Sophie Germain nor in A023204.
Conjecture: a(n)/A000040(n) is asymptotic to 3. Reason: I expect the distribution of terms in A102820 to converge to a geometric distribution with mean value 2.
(End)

Examples

			59 is a term since 113 is the prime preceding 2*59, 127 is the next prime and 61 is the largest of all prime factors of 114, ..., 122 = 2*61, ..., 126.
		

Crossrefs

A080191 is the complement of this sequence relative to A000040.
Sequences with related analysis: A005384, A023204, A052248, A102820, A215238, A290183.
Sequences with similar definitions: A195270, A195271, A195325, A195377.

Programs

  • Mathematica
    Select[Prime[Range[300]],NextPrime[2#]>2NextPrime[#]&] (* Harvey P. Dale, Jul 07 2011 *)
  • NARS2000
    ¯1↓b/⍨(1⌽a)<1πa←2×b←¯2π⍳1E4 ⍝ Michael Turniansky, Dec 29 2020
  • PARI
    {forprime(k=2,1873,p=precprime(2*k); q=nextprime(p+1); m=0; for(j=p+1,q-1,f=factor(j); a=f[matsize(f)[1],1]; if(m
    				
  • PARI
    isok(p) = isprime(p) && (primepi(2*p) == primepi(2*nextprime(p+1)));
    forprime(p=2, 2000, if (isok(p), print1(p, ", "))) \\ Michel Marcus, Sep 22 2017
    
  • PARI
    first(n) = my(res = vector(n), i = 0); {n==0&&return([]); forprime(p = 2, , if(nextprime(2*p) > 2*nextprime(p + 1), i++; res[i] = p; if(i == n, return(res))))} \\ David A. Corneth, Oct 25 2017
    

Formula

For all k, prime(k) = A000040(k) is a term if and only if A102820(k) = 0. - Peter Munn, Oct 24 2017

A207820 Let A = A025584. a(n) is the smallest A(m) such that the interval (A(m)*n, A(m+1)*n) contains no primes from A.

Original entry on oeis.org

2, 2, 2, 1783, 967, 1663, 3187, 4813, 13873, 20347, 1783, 2617, 27743, 14533, 54829, 71143, 66169, 46687, 44119, 57787, 79609, 552883, 21397, 297079, 1187107, 89017, 798697, 285763, 761377, 2660587, 812047, 1463257, 2795059, 2816239, 2676727, 3069607, 2500297
Offset: 1

Views

Author

Keywords

Comments

Conjecture. For n>=3, every a(n) is the lesser of a pair of cousin primes p and p+4, cf. A023200.
The limit of a(n) as n goes to infinity is infinity.

Crossrefs

Programs

  • Mathematica
    Table[aPrime[[NestWhile[#1+1&,1,!(nextAPrime[n aPrime[[#1]]]>n aPrime[[#1+1]])&]]],{n,2,20}]
  • PARI
    is_a025584(x) = isprime(x) && !isprime(x-2)
    a025584_next(n) = {local(p); p=n+1; while(!is_a025584(p), p=p+1); p}
    no_a025584(a,b) = {local(x,r); r=1; for(x=a+1, b-1, if(is_a025584(x), r=0)); r}
    a207820(n) = {local(r,rp); rp=2; r=3; while(!no_a025584(n*rp, n*r), rp=r; r=a025584_next(r)); rp} \\ Michael B. Porter, Jan 20 2013

Extensions

a(21)-a(37) from Michael B. Porter, Jan 20 2013

A195377 2.5-gap primes: Prime p is a term if there is no prime between 2.5*p and 2.5*q, where q is the next prime after p.

Original entry on oeis.org

127, 197, 281, 311, 347, 431, 613, 659, 673, 739, 877, 991, 1049, 1229, 1277, 1289, 1367, 1481, 1579, 1613, 1667, 1721, 1787, 1877, 1907, 2027, 2081, 2087, 2141, 2203, 2213, 2237, 2239, 2269, 2287, 2309, 2377, 2383, 2473, 2657, 2689, 2707, 2749, 2767, 2801
Offset: 1

Views

Author

Vladimir Shevelev, Sep 17 2011

Keywords

Crossrefs

Programs

  • Mathematica
    Select[Prime[Range[500]], PrimePi[5*NextPrime[#]/2] == PrimePi[5*#/2] &] (* T. D. Noe, Sep 20 2011 *)

A210465 Let p_(3,1)(m) be the m-th prime == 1(mod 3). Then a(n) is the smallest p_(3,1)(m) such that the interval(p_(3,1)(m)*n, p_(3,1)(m+1)*n) contains exactly one prime == 1(mod 3).

Original entry on oeis.org

7, 13, 193, 271, 157, 193, 1297, 1741, 1231, 1033, 3541, 1447, 727, 2341, 9337, 1747, 9007, 2287, 3307, 14401, 8887, 8161, 8461, 28753, 23623, 23893, 10861, 59233, 70111, 28927, 44257, 101113, 152947, 41941, 65167, 41263, 183301, 409573, 150517, 35803, 138883, 81547, 79693
Offset: 2

Views

Author

Keywords

Comments

The limit of a(n) as n goes to infinity is infinity.
Conjectures: (1) If q is the nearest prime>a(n), then q-a(n)=4 or 6 and both of these cases occur infinitely many times. (2) If q-a(n)=4 then q is the lesser of twin primes.
Thus, if the conjectures are true, then there exist infinitely many triples of primes of the form {p,p+4,p+6}.

Crossrefs

Programs

  • Mathematica
    bPrime=Select[Table[Prime[n],{n,1000000}],Mod[#,3]==1&];(*A002476*)
    binarySearch[lst_,find_]:=Module[{lo=1,up=Length[lst],v},(While[lo<=up,v=Floor[(lo+up)/2];If[lst[[v]]-find==0,Return[v]];If[lst[[v]]0&]]]+offset-1]];
    z=1;(*example for "contains exactly ONE b-
    primes"*)Table[bPrime[[NestWhile[#1+1&,1,!((nextBPrime[n bPrime[[#1]],z]n bPrime[[#1+1]]))&]]],{n,2,20}]

A210467 Let p_(3,2)(m) be the m-th prime == 2(mod 3). Then a(n) is the smallest p_(3,2)(m) such that the interval(p_(3,2)(m)*n, p_(3,2)(m+1)*n) contains exactly one prime == 2 (mod 3).

Original entry on oeis.org

2, 2, 101, 263, 1097, 251, 311, 461, 641, 941, 1601, 2351, 2543, 5003, 2837, 4787, 5711, 4283, 7901, 10331, 8831, 2687, 7877, 54287, 5711, 5501, 5303, 56087, 69827, 15641, 63611, 138581, 106427, 91571, 69827, 266177, 142421, 177533, 179687, 309311, 55691, 119291, 509543, 593987, 1393913
Offset: 2

Views

Author

Keywords

Comments

The limit of a(n) as n goes to infinity is infinity.
Conjectures: (1) If q is the nearest prime > a(n), then q-a(n) = 2 or 6 and both of these cases occur infinitely many times. (2) If q-a(n) = 2, then also q is lesser of a pair of cousin primes q and q+4, see A023200.
Thus, if the conjectures are true, then there exist infinitely many triples of primes of the form {p,p+2,p+6}.

Crossrefs

Programs

  • Mathematica
    bPrime=Select[Table[Prime[n], {n, 1000000}], Mod[#, 3]==2&];
    binarySearch[lst_, find_]:=Module[{lo=2, up=Length[lst], v}, (While[lo<=up, v=Floor[(lo+up)/2]; If[lst[[v]]-find==0, Return[v]]; If[lst[[v]]0&]]]+offset-1]];
    z=1; (*example for "contains exactly ONE b-
    primes"*)Table[bPrime[[NestWhile[#1+1&, 1, !((nextBPrime[n bPrime[[#1]], z]n bPrime[[#1+1]]))&]]], {n, 2, 20}]

A210475 Let p_(4,1)(m) be the m-th prime == 1 (mod 4). Then a(n) is the smallest p_(4,1)(m) such that the interval(p_(4,1)(m)*n, p_(4,1)(m+1)*n) contains exactly one prime == 1 (mod 4).

Original entry on oeis.org

13, 13, 29, 13, 193, 97, 97, 277, 457, 1193, 109, 229, 937, 397, 349, 1597, 2137, 937, 5569, 5737, 2833, 1549, 6733, 7477, 5077, 3457, 877, 4153, 12277, 11113, 8689, 14029, 11113, 5233, 24109, 14737, 26713, 1297, 77797, 12097, 51577, 57973, 33409, 30493, 49429, 112237, 10333, 143137
Offset: 2

Views

Author

Keywords

Comments

The limit of a(n) as n goes to infinity is infinity.
Conjecture: for n >= 12, every a(n) is the lesser of a pair of cousin primes p and p+4, (see A023200).

Crossrefs

Programs

  • Mathematica
    myPrime=Select[Table[Prime[n],{n,3000000}],Mod[#,4]==1&];
    binarySearch[lst_,find_]:=Module[{lo=1,up=Length[lst],v},(While[lo<=up,v=Floor[(lo+up)/2];If[lst[[v]]-find==0,Return[v]];If[lst[[v]]0&]]]+offset-1]];
    z=1;(*contains exactly ONE myPrime in the interval*)
    Table[myPrime[[NestWhile[#1+1&,1,!((nextMyPrime[n myPrime[[#1]],z+1]>n myPrime[[#1+1]]))&]]],{n,2,30}]

A218769 Let (p,p+2) be the n-th twin prime pair. a(n) is the least integer r > 1 for which the interval (r*p, r*(p+2)) contains no primes, or a(n)=0, if no such r exists.

Original entry on oeis.org

0, 0, 0, 0, 4, 0, 2, 2, 2, 2, 3, 2, 5, 5, 4, 5, 4, 4, 3, 2, 2, 4, 4, 2, 2, 2, 6, 3, 3, 4, 3, 2, 3, 2, 2, 7, 3, 3, 2, 2, 2, 6, 0, 3, 2, 2, 5, 5, 23, 2, 3, 2, 2, 2, 2, 2, 2, 2, 3, 2, 2, 3, 2, 5, 2
Offset: 1

Views

Author

Keywords

Comments

For n<=20000, the largest a(n) is a(49)=23. a(n)=0 for n = 1, 2, 3, 4, 6, 43, 37890, 606457, ... corresponding to the twin primes (p, p+2) with p=3, 5, 11, 17, 41, 1277, 5995727, 143556431, ....

Examples

			The 13th twin prime pair is {179, 181}. For r = 2 the range {358, ..., 362} contains prime 359; for r = 3, the range {537, ..., 543} contains prime 541; for r = 4, the range {716, ..., 724} contains prime 719. But for r = 5, the range {895, ..., 905} does not contain any prime. Thus a(13) = 5.
		

Crossrefs

Programs

  • Mathematica
    rmax = 100; p1[1] = 3; p1[n_] := p1[n] = (p = NextPrime[p1[n-1]]; While[ !PrimeQ[p+2], p = NextPrime[p]]; p); a[n_] := Catch[ For[r = 2, r <= rmax, r++, If[ PrimePi[r*p1[n]] == PrimePi[r*(p1[n] + 2)], Throw[r], If[r == rmax, Throw[0]]]]]; Table[ a[n] , {n, 1, 65}] (* Jean-François Alcover, Dec 13 2012 *)

Extensions

Typo in definition corrected by Jonathan Sondow, Dec 21 2012

A195379 3.5-gap primes: Primes prime(k) such that there is no prime between 7*prime(k)/2 and 7*prime(k+1)/2.

Original entry on oeis.org

2, 137, 281, 521, 641, 883, 937, 1087, 1151, 1229, 1277, 1301, 1489, 1567, 1607, 1697, 2027, 2081, 2237, 2381, 2543, 2591, 2657, 2687, 2729, 2801, 2851, 2969, 3119, 3257, 3301, 3359, 3463, 3467, 3529, 3673, 3733, 3793, 3821, 3851, 4073, 4217, 4229, 4241, 4259, 4283, 4337, 4421, 4481
Offset: 1

Views

Author

Vladimir Shevelev, Sep 17 2011

Keywords

Crossrefs

Programs

  • Mathematica
    Select[Prime[Range[1000]], PrimePi[7*NextPrime[#]/2] == PrimePi[7*#/2] &] (* T. D. Noe, Sep 20 2011 *)

Extensions

Corrected by R. J. Mathar, Sep 20 2011
Showing 1-10 of 13 results. Next