A058029 Primes closest to LCM(1,...,x) either above or below. Arguments x were selected from A000961 (powers of primes including primes) in order to obtain distinct values of LCM exactly once.

3, 5, 11, 59, 419, 839, 2521, 27733, 360337, 720703, 12252259, 232792559, 5354228879, 26771144401, 80313433231, 2329089562799, 72201776446801, 144403552893599, 5342931457063157, 219060189739591153

Offset: 0

Author

Labos Elemer, Nov 16 2000

Keywords

• nonn

Links

• Harvey P. Dale, Table of n, a(n) for n = 0..100

Crossrefs

Cf. A000961, A003418, A051451.

Programs

Mathematica

pcl[n_]:=Module[{lc=LCM@@Range[n],p1,p2},p1=NextPrime[lc,-1];p2= NextPrime[ lc];If[p2-lc