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

Author

N. J. A. Sloane, Apr 01 2001

Keywords

• nonn

Links

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

Crossrefs

Cf. A003418, A151800.

Programs

Magma

[NextPrime(Lcm([1..n])): n in [0..30]]; // Vincenzo Librandi, 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 *)

PARI

a(n) = nextprime(lcm([1..n])+1); \\ Michel Marcus, Mar 18 2018

Formula

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