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-5 of 5 results.

A195871 a(n) is the smallest prime(m) such that the interval (prime(m)*n, prime(m+1)*n) contains exactly one prime.

Original entry on oeis.org

2, 2, 2, 17, 59, 29, 239, 227, 107, 149, 347, 191, 569, 461, 269, 659, 311, 1277, 2711, 821, 1427, 2711, 3581, 1019, 1451, 1319, 9281, 4931, 6269, 5849, 11549, 35729, 8537, 5441, 5741, 10007, 29759
Offset: 2

Views

Author

Vladimir Shevelev, Jan 02 2013

Keywords

Comments

Conjecture: In the supposition that there are infinitely many twin primes, for n>=5 all terms are in A001359 (lesser of twin primes).
Note that a unique prime which is contained in an interval of the form (prime(m)*n, prime(m+1)*n) is called n-isolated (see author's link, where a heuristic proof is given that the number of n-isolated primes<=x approaches e^{-2(n-1)}x/log(x) as x goes to infinity (cf. Conjecture 25, Remark 26 and formula (47)). One can easily prove that a(n) is not bounded.
This conjecture seems hard, since it's not obvious how to find an upper bound for a(n) (see Conjecture 42 in the Shevelev link). - Charles R Greathouse IV, Jan 02 2013

Examples

			Let n=5, and consider intervals of the form (5*prime(m), 5*prime(m+1)).
For 2, 3, 5, ..., the intervals (10,15), (15,25), (25,35), (35,55), (55,65), (65,85), (85,95)... contain 2, 3, 2, 5, 2, 4, 1,... primes. Hence the smallest such prime is 17.
		

Crossrefs

Programs

  • PARI
    a(n)=my(p=2,t);forprime(q=3,,t=0;for(i=p*n+1,q*n-1,if(isprime(i)&&t++>1,break));if(t==1,return(p));p=q) \\ Charles R Greathouse IV, Jan 02 2013

A217603 Consider sets of 3 consecutive primes a, b, c such that c - a = 100, then sequence gives the values of b.

Original entry on oeis.org

58831, 286927, 360653, 404941, 590489, 623107, 651587, 673747, 710119, 740801, 779413, 794831, 795427, 1040311, 1107269, 1185241, 1206869, 1320437, 1392007, 1568771, 1581829, 1599803, 1601953, 1613201, 1721081, 1744927, 1942273, 1951321, 1994299, 2024063
Offset: 1

Views

Author

Zak Seidov, Oct 08 2012

Keywords

Examples

			a(1) = 58831 because {58789, 58831, 58889} is the first set of 3 consecutive primes a, b, c with c-a=100.
a(2) = 286927 because {286873, 286927, 286973} is the second set of 3 consecutive primes a, b, c with c-a=100.
a(1000) = 23090087 because {23090059, 23090087, 23090159} is the 1000th set of 3 consecutive primes a, b, c with c-a=100.
		

Crossrefs

Programs

  • Mathematica
    s = {}; a = 2; b = 3; c = 5; Do[If[c - a == 100, AppendTo[s, b]; Print[{a, b, c}]]; a = b; b = c; c = NextPrime[c], {10^5}]; s
    Select[Partition[Prime[Range[151000]],3,1],#[[3]]-#[[1]]==100&][[;;,2]] (* Harvey P. Dale, Jul 22 2024 *)
  • PARI
    p=2;q=3;forprime(r=5,1e6,if(r-p==100,print1(q", "));p=q;q=r) \\ Charles R Greathouse IV, Nov 14 2012

A218275 a(n) is the smallest n-isolated prime, or a(n)=0 if there are no n-isolated primes.

Original entry on oeis.org

5, 7, 11, 89, 359, 211, 1913, 2053, 1087, 1657, 4177, 2503, 7993, 6917, 4327, 11213, 5623, 24281, 54251, 17257, 31397, 62383, 85991, 25523, 37747, 35617, 259907, 143053, 188107, 181361, 369581, 1179109, 290317, 190471, 206699, 370261, 1130863, 162143
Offset: 2

Views

Author

Vladimir Shevelev and Zak Seidov, Oct 25 2012

Keywords

Comments

For a given n>=2, a prime p such that there is no other prime in the interval [n*prevprime(p/n), n*nextprime(p/n)] is called n-isolated.
Conjectures. 1) a(n) > 0; 2) a(n)/n is between 2 and 3 or between the smaller and larger member of a twin prime pair.

Examples

			a(5) = 89 because there are no primes except 89 in the interval [5*prevprime(89/5), 5*nextprime(89/5)] = [5*17, 5*19] = [85, 95].  And 89 is the smallest such prime - for example, if q = 37 < 89, then the interval [5*nextprime(q/5), 5*nextprime(q/5)] = [5*7,5*11] = [35,55] contains 4 primes other than 41, namely 37, 43, 47, and 53. - _Vladimir Shevelev_, Nov 04 2012.
		

Crossrefs

Programs

  • Mathematica
    s = {}; Do[a = 2; b = 3; While[(p = NextPrime[k*a]) != NextPrime[k*b, -1], a = b; b = NextPrime[b]]; AppendTo[s, p], {k, 2, 40}]; s (* Zak Seidov, Nov 04 2012 *)

Formula

nextprime(a(n)/n) < nextprime(a(n))/n. For n>=5 and every prime q from the interval (3*n, a(n)), the interval (n*prevprime(q/n), n*nextprime(q/n)) contains a prime greater than q. - Vladimir Shevelev, Nov 04 2012

A218279 Let (p(n), p(n)+2) be the n-th twin prime pair. a(n) is the smallest k, such that there is only one prime in the interval (k*p(n), k*(p(n)+2)), or a(n)=0, if there is no such k.

Original entry on oeis.org

2, 4, 2, 2, 3, 2, 6, 5, 3, 5, 2, 3, 2, 2, 2, 2, 2, 2, 2, 3, 5, 2, 2, 4, 3, 3, 2, 2, 2, 3, 6, 3, 2, 4, 3, 2, 2, 2, 3, 3, 2, 2, 2, 3, 5, 2, 2, 2, 3, 2, 3, 3, 6, 3, 4, 9, 5, 2, 5, 4, 2, 3, 2, 3, 3, 2, 4, 3, 2, 2, 5, 3, 4, 4, 4, 4, 3, 2, 6, 2, 7, 4, 2, 6, 4, 2
Offset: 1

Views

Author

Vladimir Shevelev, Oct 25 2012

Keywords

Comments

Conjecture: a(n)>0 for all n.

Examples

			The first pair of twin primes is (3,5). For k=1 and 2, we have the intervals (3,5) and (6,10), such that not the first but the second interval contains exactly one prime(7). Thus a(1)=2. For n=2 and k=1 to 4, we have the intervals (5,7),(10,14),(15,21), and (20,28) and only the last interval contains exactly one prime(23). Thus, a(2)=4.
		

Crossrefs

Extensions

a(6) corrected and terms beyond a(11) contributed by Zak Seidov, Oct 25 2012

A217655 Consider sets of 3 consecutive primes a

Original entry on oeis.org

8917523, 17051707, 24662467, 25173593, 27001199, 37757639, 38089453, 42629173, 44310817, 67142137, 67816601, 76317653, 80517691, 82772143, 82843753, 83929789, 84980743, 90007363, 94905269, 99099773, 99524219, 117813307, 119401577, 129163457, 147426791, 162159887
Offset: 1

Views

Author

Zak Seidov, Oct 09 2012

Keywords

Examples

			a(1) = 8917523 because {8917463, 8917523, 8917663} is the first set of 3 consecutive primes a, b, c with c-a = 200.
		

Crossrefs

Programs

  • Maple
    a :=2 :
    b := nextprime(a) :
    c := nextprime(b) :
    for i from 1 do
        if c-a= 200 then
            print(b);
        end if;
        a := b ;
        b := c ;
        c := nextprime(b) ;
    end do:  # R. J. Mathar, Nov 07 2012
  • Mathematica
    Select[Partition[Prime[Range[91*10^5]],3,1],#[[3]]-#[[1]]==200&][[;;,2]] (* Harvey P. Dale, Jul 17 2025 *)
Showing 1-5 of 5 results.