login
Primes prime(n) such that prime(n)^2 - prime(n + 2)*prime(n - 2) < 0.
0

%I #16 Jan 08 2019 18:08:49

%S 19,43,47,61,73,79,83,89,109,113,137,139,157,167,181,197,199,211,229,

%T 233,239,241,271,281,283,293,313,317,353,359,383,389,401,439,443,449,

%U 463,467,503,509,521,523

%N Primes prime(n) such that prime(n)^2 - prime(n + 2)*prime(n - 2) < 0.

%t Prime[Select[Range[100], Prime[#]^2 - Prime[# + 2]Prime[# - 2] < 0 &]]

%t Select[Partition[Prime[Range[120]],5,1],#[[3]]^2-#[[5]] #[[1]]<0&][[All,3]] (* _Harvey P. Dale_, Jan 08 2019 *)

%Y Cf. A130903.

%K nonn,easy

%O 1,1

%A _Roger L. Bagula_ and _Gary W. Adamson_, May 23 2008

%E Edited by _N. J. A. Sloane_, May 23 2008