A108222 - OEIS

%I #6 Oct 13 2019 09:54:21

%S 2,3,5,7,17,19,23,37,41,43,47,101,103,107,109,113,149,151,157,163,167,

%T 257,263,269,271,277,281,283,331,337,347,349,353,359,487,491,499,503,

%U 509,521,523,787,797,809,811,821,823,827,829,839,907,911,919,929,937

%N Primes p such that ceiling(sqrt(p)) = prime.

%t Select[Prime /@ Range[200], PrimeQ[Ceiling[Sqrt[ # ]]] &] (* _Ray Chandler_, Jul 03 2005 *)

%Y Cf. A108221.

%K easy,nonn

%O 1,1

%A _Giovanni Teofilatto_, Jun 16 2005

%E Corrected and extended by _Ray Chandler_, Jul 03 2005