OFFSET
1,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..853 (terms 1..150 from Vincenzo Librandi)
MAPLE
a:= n-> numtheory[phi](n*2^n-1):
seq(a(n), n=1..35); # Alois P. Heinz, Apr 15 2019
MATHEMATICA
Table[EulerPhi[n 2^n - 1], {n, 1, 35}]
PROG
(Magma) [EulerPhi(n*2^n-1): n in [1..30]]; // Vincenzo Librandi, Apr 15 2019
(PARI) a(n) = eulerphi(n*2^n -1); \\ Michel Marcus, Apr 15 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Aug 31 2000
STATUS
approved