A225625 Primes of the form floor(log(p)) + p^2, where p is prime.

4493, 5333, 9413, 10613, 18773, 185767, 323767, 502687, 737887, 863047, 885487, 942847, 982087, 1079527, 488100659, 511709651, 514337051, 515153819, 515698691, 517062131, 526381259, 527207531, 527299379, 533009579, 536339291, 536987939, 538100819, 546110171

Offset: 1

Author

John-Å. W. Olsen, May 11 2013

Keywords

• nonn

Examples

			Floor(log(67)) + 67^2 = 4493.
Floor(log(22093)) + 22093^2 = 488100659.
		

Links

• John-Å. W. Olsen, Table of n, a(n) for n = 1..5000

Crossrefs

Cf. A225626 (primes p).

Programs

Mathematica

p = Prime[Range[3000]]; Select[p^2 + Floor[Log[p]], PrimeQ] (* T. D. Noe, May 13 2013 *)