%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