cp's OEIS Frontend

A060362 a(n) = Min { { smallest prime > k } - k, k - { largest prime < k } }, where k = lcm(1..n) = A003418(n).

%I A060362 #14 Jan 01 2019 17:07:50
%S A060362 1,1,1,1,1,1,1,1,13,13,23,23,23,17,19,19,1,1,1,1,1,1,1,1,31,31,1,1,1,
%T A060362 1,1,1,1,1,43,43,43,43,47,47,59,59,59,59,1,1,59,59,59,59,61,61,61,61,
%U A060362 61,61,113,113,1,1,1,97,97,97,73,73,73,73,73,73,97
%N A060362 a(n) = Min { { smallest prime > k } - k, k - { largest prime < k } }, where k = lcm(1..n) = A003418(n).
%p A060362 [seq( min( nextprime(A003418(n))-A003418(n), A003418(n)-prevprime(A003418(n)) ), n=3..100)];
%t A060362 Min[NextPrime[#]-#,#-NextPrime[#,-1]]&/@Table[LCM@@Range[n],{n,80}] (* _Harvey P. Dale_, Jan 01 2019 *)
%o A060362 (PARI) a(n) = my(lcn = lcm([1..n])); min(nextprime(lcn+1)-lcn, lcn-precprime(lcn-1)); \\ _Michel Marcus_, Mar 29 2018
%Y A060362 Cf. A003418, A060357, A060358, A060359, A060360, A060361.
%K A060362 nonn
%O A060362 3,9
%A A060362 _N. J. A. Sloane_, Apr 01 2001
%E A060362 Definition corrected by _Jon E. Schoenfield_, Mar 18 2018