%I #18 Sep 08 2022 08:45:01

%S 1,6,22,36,104,382,712,1936,4320,6824,15012,46992,79344,183000,421008,

%T 480000,1453784,4658784,8877792,20958480,38887680,61284600,110250264,

%U 388201176,719023536,1734432480,2889658368,4745378304,10350643968,32212254718,66251144568

%N Totient of the Woodall numbers (A003261), n*2^n -1.

%H Amiram Eldar, <a href="/A056821/b056821.txt">Table of n, a(n) for n = 1..853</a> (terms 1..150 from Vincenzo Librandi)

%F a(n) = A000010(A003261(n)).

%p a:= n-> numtheory[phi](n*2^n-1):

%p seq(a(n), n=1..35); # _Alois P. Heinz_, Apr 15 2019

%t Table[EulerPhi[n 2^n - 1], {n, 1, 35}]

%o (Magma) [EulerPhi(n*2^n-1): n in [1..30]]; // _Vincenzo Librandi_, Apr 15 2019

%o (PARI) a(n) = eulerphi(n*2^n -1); \\ _Michel Marcus_, Apr 15 2019

%Y Cf. A000010, A003261.

%K nonn

%O 1,2

%A _Robert G. Wilson v_, Aug 31 2000