login
Numbers n such that q^2 < p, where p=nextprime(n), q=nextprime(square root of n).
1

%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_