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

3, 5, 7, 10, 12, 13, 16, 17, 19, 20, 22, 25, 26, 28, 31, 33, 35, 37, 38, 40, 41, 43, 45, 47, 48, 49, 52, 54, 55, 56, 57, 59, 60, 63, 64, 67, 69, 73, 74, 75, 78, 81, 83, 85, 88, 89, 92, 93, 95, 98, 100, 102, 103, 104, 107, 108, 109, 111, 112, 113, 115, 116, 119, 120, 122

Offset

1,1

Links

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

Mathematica

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

Crossrefs

Cf. A046869.

Sequence in context: A189372 A108052 A359113 * A225240 A104309 A306683

Adjacent sequences: A046865 A046866 A046867 * A046869 A046870 A046871

Keyword

nonn

Author

N. J. A. Sloane

Extensions

Extended by Don Reble, Nov 19 2006

Status

approved