OFFSET
1,4
REFERENCES
Tenenbaum, G. (2015). Introduction to analytic and probabilistic number theory, 3rd ed., American Mathematical Soc. See page 22.
LINKS
T. D. Noe, Table of n, a(n) for n = 1..200
MAPLE
a[1] := 0:a[2] := 0:l := 2:p := 3:pp := 2:for i from 3 to 50 do l := ilcm(l, i): if(p=i) then pp := pp*p:p := nextprime(p):end if: a[i] := l-pp:end do:q := seq(a[j], j=1..50);
MATHEMATICA
f[n_] := (LCM @@ Table[i, {i, n}] - Product[Prime[i], {i, PrimePi[n]}]); Table[f[n], {n, 30}]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
N. J. A. Sloane, Mar 21 2002
EXTENSIONS
More terms from Sascha Kurz, Mar 23 2002
STATUS
approved