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
Keywords
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 *)