A225626 Primes p such that floor(log(p)) + p^2 is prime.

67, 73, 97, 103, 137, 431, 569, 709, 859, 929, 941, 971, 991, 1039, 22093, 22621, 22679, 22697, 22709, 22739, 22943, 22961, 22963, 23087, 23159, 23173, 23197, 23369, 23509, 23971, 24077, 24083, 24097, 24109, 24151, 24373, 24413, 24571, 24623, 24781, 24851

Offset: 1

Author

John-Å. W. Olsen, May 11 2013

Keywords

• nonn

Links

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

Crossrefs

Cf. A225625.

Programs

Mathematica

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