login
Primes not of the form floor(k + (1/2)*log(k)^2).
0

%I #6 Mar 29 2015 19:41:06

%S 5,37,97,421,673,2659,3407,3847,7703,13229,176921

%N Primes not of the form floor(k + (1/2)*log(k)^2).

%t lmt = 10^6; Complement[ Table[ Prime[n], {n, PrimePi[ Floor[lmt + Log[lmt]^2/2]]}], Select[ Table[ Floor[n + Log[n]^2/2], {n, lmt}], PrimeQ[ # ] &]] (* _Robert G. Wilson v_, Nov 14 2004 *)

%K nonn

%O 1,1

%A _Roger L. Bagula_, Nov 12 2004

%E Edited and extended by _Robert G. Wilson v_, Nov 14 2004