PROG
(MAGMAMagma) [EulerPhi(n*2^n-1): n in [1..30]]; // Vincenzo Librandi, Apr 15 2019
The OEIS is supported by the many generous donors to the OEIS Foundation.
(MAGMAMagma) [EulerPhi(n*2^n-1): n in [1..30]]; // Vincenzo Librandi, Apr 15 2019
Amiram Eldar, <a href="/A056821/b056821_1.txt">Table of n, a(n) for n = 1..853</a> (terms 1..150 from Vincenzo Librandi)
reviewed
approved
proposed
reviewed
editing
proposed
Amiram Eldar, <a href="/A056821/b056821_1.txt">Table of n, a(n) for n = 1..853</a> (terms 1..150 from Vincenzo Librandi)
Vincenzo Librandi, Amiram Eldar, <a href="/A056821/b056821_1.txt">Table of n, a(n) for n = 1..150853</a>
approved
editing
editing
approved
1, 6, 22, 36, 104, 382, 712, 1936, 4320, 6824, 15012, 46992, 79344, 183000, 421008, 480000, 1453784, 4658784, 8877792, 20958480, 38887680, 61284600, 110250264, 388201176, 719023536, 1734432480, 2889658368, 4745378304, 10350643968, 32212254718, 66251144568
a:= n-> numtheory[phi](n*2^n-1):
seq(a(n), n=1..35); # Alois P. Heinz, Apr 15 2019