OFFSET
3,7
FORMULA
MATHEMATICA
lcmp[n_]:=Module[{c=LCM@@Range[n]}, c-NextPrime[c, -1]]; Array[lcmp, 80, 3] (* Harvey P. Dale, Dec 22 2012 *)
PROG
(PARI) a(n) = my(lc = lcm([1..n])); lc - precprime(lc-1); \\ Michel Marcus, Mar 20 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Apr 01 2001
STATUS
approved