OFFSET
1,2
MAPLE
seq(numtheory[phi](mul(ithprime(k), k=1..n)-1), n=1..30);
PROG
(PARI) a(n)=eulerphi(prod(k=1, n, prime(k))-1)
CROSSREFS
KEYWORD
nonn
AUTHOR
Sean A. Irvine, Oct 23 2023
STATUS
approved