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,1

Links

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

Mathematica

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

Crossrefs

Cf. A225625.

Sequence in context: A295803 A033243 A241897 * A345214 A277429 A039432

Adjacent sequences: A225623 A225624 A225625 * A225627 A225628 A225629

Keyword

nonn

Author

John-Å. W. Olsen, May 11 2013

Status

approved