|
%I #14 Apr 01 2021 18:38:20
%S 4,6,10,12,14,18,22,26,30,34,38,42,46,51,58,60,62,69,72,74,82,86,94,
%T 99,102,106,108,111,122,129,134,138,146,150,155,158,166,172,178,180,
%U 183,192,194,198,206,218,226,228,232,237,240,249,254,262,267,270
%N Observe that A052248(n) = greatest prime divisor q (say) of all composite numbers between p = prime(n) and next prime. There is only one composite number in this range which is divisible by q. Sequence lists these composite numbers.
%C The uniqueness follows from generalization of Bertrand's Postulate. - _Franklin T. Adams-Watters_.
%H Robert Israel, <a href="/A114331/b114331.txt">Table of n, a(n) for n = 2..10000</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/BertrandsPostulate.html">Bertrand's Postulate</a>
%p p:= 3: R:= NULL:
%p for i from 2 to 100 do
%p pp:= p; p:= nextprime(p);
%p rmax:= 0:
%p for q from pp+1 to p-1 do
%p r:= max(numtheory:-factorset(q));
%p if r > rmax then rmax:= r; qmax:= q fi
%p od;
%p R:= R, qmax
%p od:
%p R; # _Robert Israel_, Apr 01 2021
%Y Cf. A052248, A114349.
%K nonn
%O 2,1
%A _N. J. A. Sloane_, based on correspondence from _Leroy Quet_ and _Hugo Pfoertner_, Feb 22 2006
|
