OFFSET
1,1
LINKS
FORMULA
MATHEMATICA
Table[(Prime[n] - 1) Product[Prime[k], {k, n}], {n, 100}] (* Indranil Ghosh, Jul 07 2017 *)
PROG
(Python)
from sympy import prime, primorial
def a002110(n): return 1 if n<1 else primorial(n)
def a(n): return (prime(n) - 1)*a002110(n)
print([a(n) for n in range(1, 21)]) # Indranil Ghosh, Jul 07 2017
(PARI) a(n) = (prime(n)-1)*prod(k=1, n, prime(k)); \\ Michel Marcus, Jul 07 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jul 07 2017
STATUS
approved