A060357 a(n) = smallest prime > lcm(1..n).

2, 2, 3, 7, 13, 61, 61, 421, 853, 2521, 2521, 27733, 27733, 360391, 360391, 360391, 720743, 12252259, 12252259, 232792561, 232792561, 232792561, 232792561, 5354228921, 5354228921, 26771144401, 26771144401, 80313433231, 80313433231, 2329089562843, 2329089562843

Offset

0,1

Links

Vincenzo Librandi, Table of n, a(n) for n = 0..500

Formula

a(n) = A151800(A003418(n)). - Michel Marcus, Mar 20 2018

Maple

[seq(nextprime(A003418(n)), n=0..60)];

Mathematica

Join[{2}, Table[NextPrime[LCM@@Range[n], 1], {n, 1, 30}]] (* Vincenzo Librandi, Mar 20 2018 *)

Prog

(PARI) a(n) = nextprime(lcm([1..n])+1); \\ Michel Marcus, Mar 18 2018
(Magma) [NextPrime(Lcm([1..n])): n in [0..30]]; // Vincenzo Librandi, Mar 20 2018

Crossrefs

Cf. A003418, A151800.

Sequence in context: A109277 A093437 A075059 * A064714 A152255 A002848

Adjacent sequences: A060354 A060355 A060356 * A060358 A060359 A060360

Keyword

nonn

Author

N. J. A. Sloane, Apr 01 2001

Status

approved