1,1

Chai Wah Wu, Table of n, a(n) for n = 1..10000

Select[Range[2, 122], Prime[#]^2 > Prime[# - 1]*Prime[# + 1] &] (* Jayanta Basu, Jun 29 2013 *)

Cf. A046869.

Sequence in context: A206812 A189372 A108052 * A225240 A104309 A306683

Adjacent sequences: A046865 A046866 A046867 * A046869 A046870 A046871

nonn

N. J. A. Sloane

Extended by Don Reble, Nov 19 2006

approved