%I #15 Dec 18 2020 03:38:34
%S 3,7,8,23,24,47,48,113,114,115,116,117,118,119,120,167,168,283,284,
%T 285,286,287,288,359,360,523,524,525,526,527,528,839,840,953,954,955,
%U 956,957,958,959,960,1367,1368,1669,1670,1671,1672,1673,1674,1675,1676
%N Numbers n such that q^2 < p, where p=nextprime(n), q=nextprime(square root of n).
%H Harvey P. Dale, <a href="/A037208/b037208.txt">Table of n, a(n) for n = 1..2000</a>
%t Select[Range[2000],NextPrime[Sqrt[#]]^2<NextPrime[#]&] (* _Harvey P. Dale_, Oct 24 2011 *)
%Y Cf. A151800 (nextprime).
%K easy,nonn
%O 1,1
%A _Naohiro Nomoto_