

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.


1



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
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


COMMENTS

These are called "left primes" in A166251.


LINKS

Table of n, a(n) for n=1..51.


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 *)


CROSSREFS

Cf. A166252, A166251, A164368, A104272, A080359, A164333, A164288, A164294, A164554, A166307.
Sequence in context: A085413 A244311 A164333 * A069324 A040047 A163847
Adjacent sequences: A182362 A182363 A182364 * A182366 A182367 A182368


KEYWORD

nonn


AUTHOR

Vladimir Shevelev, Apr 26 2012


STATUS

approved



