%I #13 Sep 12 2017 14:03:57
%S 3,5,7,13,19,23,31,37,43,47,53,61,73,83,89,113,131,139,151,157,167,
%T 173,181,199,211,241,283,293,317,337,359,389,401,409,421,449,467,479,
%U 491,509,523,547,577,619,631,661,691,709,773,787,797,811,829,839,863,887
%N Prime numbers n such that there are no primes between n and n+n^(1/3).
%C Subsequence of A127458. - _Michel Marcus_, Nov 06 2013
%H Donovan Johnson, <a href="/A127459/b127459.txt">Table of n, a(n) for n = 1..396</a> (probably complete)
%t a = {}; Do[If[(PrimePi[x + x^(1/3)] - PrimePi[x] == 0) && (PrimeQ[x]), AppendTo[a, x]], {x, 1, 20000}]; a
%t Select[Prime[Range[200]],PrimePi[#]==PrimePi[#+Surd[#,3]]&] (* _Harvey P. Dale_, Sep 12 2017 *)
%o (PARI) is(n)=isprime(n) && (nextprime(n+1)-n)^3>n \\ _Charles R Greathouse IV_, Dec 09 2014
%Y Cf. A127441, A127458.
%K nonn
%O 1,1
%A _Artur Jasinski_, Jan 15 2007
|