|
%I #20 Oct 18 2014 09:16:37
%S 4493,5333,9413,10613,18773,185767,323767,502687,737887,863047,885487,
%T 942847,982087,1079527,488100659,511709651,514337051,515153819,
%U 515698691,517062131,526381259,527207531,527299379,533009579,536339291,536987939,538100819,546110171
%N Primes of the form floor(log(p)) + p^2, where p is prime.
%H John-Å. W. Olsen, <a href="/A225625/b225625.txt">Table of n, a(n) for n = 1..5000</a>
%e Floor(log(67)) + 67^2 = 4493.
%e Floor(log(22093)) + 22093^2 = 488100659.
%t p = Prime[Range[3000]]; Select[p^2 + Floor[Log[p]], PrimeQ] (* _T. D. Noe_, May 13 2013 *)
%Y Cf. A225626 (primes p).
%K nonn
%O 1,1
%A _John-Å. W. Olsen_, May 11 2013
|
