login
A046868
Numbers n such that prime(n)^2 > prime(n-1)*prime(n+1).
5
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
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
KEYWORD
nonn
EXTENSIONS
Extended by Don Reble, Nov 19 2006
STATUS
approved