Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
%I #37 Jan 17 2020 04:22:21
%S 1,2,3,4,5,6,7,8,9,11,13,14,15,19,20,23,24,25,31,32,47
%N Numbers k such that there is no prime p between k and (9/8)k, exclusive.
%C In 1932, Robert Hermann Breusch proved that for n >= 48, there is at least one prime p between n and (9/8)n, exclusive (A327802).
%C The terms of A285586 correspond to numbers k such that there is no prime p between k and (9/8)n, inclusive.
%D David Wells, The Penguin Dictionary of Curious and Interesting Numbers (Revised edition), Penguin Books, 1997, entry 48, p. 106.
%H Robert Breusch, <a href="https://doi.org/10.1007/BF01180606"> Zur Verallgemeinerung des Bertrandschen Postulates, daß zwischen x und 2x stets Primzahlen liegen</a>, Mathematische Zeitschrift (in German), December 1932, Volume 34, Issue 1, pp. 505-526.
%H Wikipedia, <a href="https://en.wikipedia.org/wiki/Robert_Breusch">Robert Breusch</a>
%F A327802(a(n)) = 0.
%e Between 16 and (9/8) * 16 = 18, exclusive, there is the prime 17, hence 16 is not a term.
%e Between 47 and (9/8) * 47 = 52.875, exclusive, 48, 49, 50, 51 and 52 are all composite numbers, hence 47 is a term.
%t Select[Range[47], Count[Range[# + 1, 9# / 8], _?PrimeQ] == 0 &] (* _Amiram Eldar_, Jan 11 2020 *)
%t Select[Range[1000], PrimePi[#] == PrimePi[9#/8] &] (* _Alonso del Arte_, Jan 16 2020 *)
%Y Cf. A285586, A327802.
%K nonn,fini,full
%O 1,2
%A _Bernard Schott_, Jan 10 2020