%I #12 Dec 24 2018 21:35:53
%S 3,113,113,113,1327,1327,15683,15683,248909,265621,492113,492113,
%T 3851459,7743233,18640103,18640103,18640103,435917249,435917249,
%U 435917249,649580171,649580171,19187736221,19187736221,19187736221,94746870541,94746870541,673420121333,1975675658371
%N Smallest prime for which the n closest primes are smaller.
%C It is surprising that few of the above entries are at the beginning of a prime gap in A000230 or A002386.
%e The smallest prime number for which the three closest primes to itself are all smaller than itself is 113 (the closest primes being 109, 107 and 103). So a(3)=113.
%t NextPrim[n_] := Block[{k = n + 1}, While[ !PrimeQ[k], k++ ]; k]; PrevPrim[n_] := Block[{k = n - 1}, While[ !PrimeQ[k], k-- ]; k]; k = 1; Do[ps = Table[0, {n + 1}]; ps = Append[ps, Max[k, 1]]; While[ps = Drop[ps, 1]; ps = Append[ps, NextPrim[ ps[[ -1]]]]; ps[[ -1]] - ps[[ -2]] <= ps[[ -2]] - ps[[1]], ]; Print[ ps[[ -2]]]; k = PrevPrim[ ps[[1]]], {n, 1, 30}]
%Y Cf. A001223, A074979, A074982, A075030, A075037, A075038, A075043 & A075050.
%K nonn
%O 1,1
%A _Neil Fernandez_, Oct 10 2002
%E Edited and extended by _Robert G. Wilson v_, Oct 12 2002
%E a(23)-a(29) from _Donovan Johnson_, Jun 19 2008
|