OFFSET
0,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..500
FORMULA
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
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Apr 01 2001
STATUS
approved