A225626 - OEIS

%I #12 May 13 2013 18:32:55

%S 67,73,97,103,137,431,569,709,859,929,941,971,991,1039,22093,22621,

%T 22679,22697,22709,22739,22943,22961,22963,23087,23159,23173,23197,

%U 23369,23509,23971,24077,24083,24097,24109,24151,24373,24413,24571,24623,24781,24851

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

%H John-Å. W. Olsen, <a href="/A225626/b225626.txt">Table of n, a(n) for n = 1..5000</a>

%t Select[Prime[Range[3000]], PrimeQ[Floor[Log[#]] + #^2] &] (* _T. D. Noe_, May 13 2013 *)

%Y Cf. A225625.

%K nonn

%O 1,1

%A _John-Å. W. Olsen_, May 11 2013