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,1

Links

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

Mathematica

pcl[n_]:=Module[{lc=LCM@@Range[n], p1, p2}, p1=NextPrime[lc, -1]; p2= NextPrime[ lc]; If[p2-lc<lc-p1, p2, p1]]; Table[pcl[n], {n, 2, 50}]//Union

Crossrefs

Cf. A000961, A003418, A051451.

Sequence in context: A201473 A088884 A328381 * A206640 A182354 A046928

Adjacent sequences: A058026 A058027 A058028 * A058030 A058031 A058032

Keyword

nonn

Author

Labos Elemer, Nov 16 2000

Status

approved