A127441 -id:A127441 - cp's OEIS frontend

A127458 Numbers k such that there are no primes between k and k + k^(1/3).

3, 5, 7, 8, 13, 14, 19, 20, 23, 24, 25, 26, 31, 32, 33, 37, 43, 47, 48, 49, 53, 54, 55, 61, 62, 63, 73, 74, 83, 84, 89, 90, 91, 92, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 131, 139, 140, 141, 142, 143, 151, 157, 167, 173, 181, 182, 183, 184, 185, 199, 200, 201

Offset: 1

Artur Jasinski, Jan 15 2007

nonn

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

Cf. A127441, A127459.

a = {}; Do[If[PrimePi[x + x^(1/3)] - PrimePi[x] == 0, AppendTo[a, x]], {x, 1, 2000}]; a

is(n)=(nextprime(n+1)-n)^3>n \\ Charles R Greathouse IV, Dec 09 2014

A127459 Prime numbers n such that there are no primes between n and n+n^(1/3).

Original entry on oeis.org

3, 5, 7, 13, 19, 23, 31, 37, 43, 47, 53, 61, 73, 83, 89, 113, 131, 139, 151, 157, 167, 173, 181, 199, 211, 241, 283, 293, 317, 337, 359, 389, 401, 409, 421, 449, 467, 479, 491, 509, 523, 547, 577, 619, 631, 661, 691, 709, 773, 787, 797, 811, 829, 839, 863, 887

Offset: 1

Artur Jasinski, Jan 15 2007

nonn

Subsequence of A127458. - Michel Marcus, Nov 06 2013

Donovan Johnson, Table of n, a(n) for n = 1..396 (probably complete)

Cf. A127441, A127458.

a = {}; Do[If[(PrimePi[x + x^(1/3)] - PrimePi[x] == 0) && (PrimeQ[x]), AppendTo[a, x]], {x, 1, 20000}]; a
Select[Prime[Range[200]],PrimePi[#]==PrimePi[#+Surd[#,3]]&] (* Harvey P. Dale, Sep 12 2017 *)

is(n)=isprime(n) && (nextprime(n+1)-n)^3>n \\ Charles R Greathouse IV, Dec 09 2014

cp's OEIS Frontend

A127458 Numbers k such that there are no primes between k and k + k^(1/3).

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

PARI