A192319 Numbers k such that the half-open interval (k-5*sqrt(sqrt(k)), k] does not contain primes.
1, 1358, 1359, 1360, 31464, 31465, 31466, 31467, 31468
Offset: 1
Programs
-
Maple
isA192319 := proc(n) phigh := n ; plow := ceil(n-5*root[4](n))-1 ; numtheory[pi](phigh)-numtheory[pi](plow) = 0 ; end proc: for n from 1 do if isA192319(n) then print(n); end if; end do: # R. J. Mathar, Jul 10 2011
-
PARI
isA192319(n)=nextprime(floor(n+1-5*n^.25))>n \\ Charles R Greathouse IV, Jun 27 2011
Comments