OFFSET
1,3
MATHEMATICA
Table[n*EulerPhi[n], {n, 50}]-1 (* Harvey P. Dale, Mar 25 2015 *)
PROG
(PARI) a(n) = n*eulerphi(n) - 1; \\ Michel Marcus, Mar 08 2020
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved