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

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,1

Comments

Subsequence of A127458. - Michel Marcus, Nov 06 2013

Links

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

Mathematica

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

Prog

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

Crossrefs

Cf. A127441, A127458.

Sequence in context: A357170 A277717 A120460 * A174635 A075579 A059788

Adjacent sequences: A127456 A127457 A127458 * A127460 A127461 A127462

Keyword

nonn

Author

Artur Jasinski, Jan 15 2007

Status

approved