login
Numbers n such that prime(n)^2 > prime(n-1)*prime(n+1).
5

%I #16 Mar 07 2020 07:19:47

%S 3,5,7,10,12,13,16,17,19,20,22,25,26,28,31,33,35,37,38,40,41,43,45,47,

%T 48,49,52,54,55,56,57,59,60,63,64,67,69,73,74,75,78,81,83,85,88,89,92,

%U 93,95,98,100,102,103,104,107,108,109,111,112,113,115,116,119,120,122

%N Numbers n such that prime(n)^2 > prime(n-1)*prime(n+1).

%H Chai Wah Wu, <a href="/A046868/b046868.txt">Table of n, a(n) for n = 1..10000</a>

%t Select[Range[2, 122], Prime[#]^2 > Prime[# - 1]*Prime[# + 1] &] (* _Jayanta Basu_, Jun 29 2013 *)

%Y Cf. A046869.

%K nonn

%O 1,1

%A _N. J. A. Sloane_

%E Extended by _Don Reble_, Nov 19 2006