login
A182365
The largest prime in some interval of the form (2*prime(k),2*prime(k+1)) if this interval contains at least 2 primes.
6
13, 19, 31, 43, 53, 61, 73, 103, 113, 131, 139, 157, 173, 193, 199, 251, 271, 293, 313, 353, 379, 421, 443, 463, 499, 509, 523, 577, 613, 619, 661, 691, 733, 743, 757, 773, 811, 829, 859, 883, 911, 953, 971, 997, 1013, 1039, 1069, 1093, 1109, 1123, 1153
OFFSET
1,1
COMMENTS
These are called "left primes" in A166251.
EXAMPLE
For k=6 we have 2*13 < 29 < 31 < 2*17, and the interval contains two primes. Therefore 31 is in the sequence.
MATHEMATICA
n = 0; t = {}; While[Length[t] < 100, n++; ps = Select[Range[2*Prime[n], 2*Prime[n + 1]], PrimeQ]; If[Length[ps] >= 2, AppendTo[t, ps[[-1]]]]]; t (* T. D. Noe, Apr 30 2012 *)
KEYWORD
nonn
AUTHOR
Vladimir Shevelev, Apr 26 2012
STATUS
approved