A108221 - OEIS

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

%S 2,2,3,3,5,5,5,7,7,7,7,11,11,11,11,11,13,13,13,13,13,17,17,17,17,17,

%T 17,17,19,19,19,19,19,19,23,23,23,23,23,23,23,29,29,29,29,29,29,29,29,

%U 29,31,31,31,31,31,31,31,31,37,37,37,37,37,37,37,37,37,41,41,41,41,41,41

%N Primes of the form ceiling(sqrt(prime(n))).

%F a(n) = ceiling(sqrt(A108222(n))).

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

%K easy,nonn

%O 1,1

%A _Giovanni Teofilatto_, Jun 16 2005

%E Extended by _Ray Chandler_, Jul 03 2005