login
A349741
a(n) = Product_{k=1..n-1} phi(gcd(n,k)).
0
1, 1, 1, 1, 1, 2, 1, 2, 4, 4, 1, 32, 1, 6, 256, 16, 1, 96, 1, 1024, 2304, 10, 1, 16384, 256, 12, 2304, 13824, 1, 524288, 1, 2048, 102400, 16, 5308416, 14155776, 1, 18, 589824, 134217728, 1, 63700992, 1, 1024000, 86973087744, 22, 1, 8589934592, 46656, 1310720
OFFSET
1,6
FORMULA
a(n) = Product_{d|n, d < n} phi(d)^phi(n/d).
MATHEMATICA
Table[Product[EulerPhi[GCD[n, k]], {k, 1, n - 1}], {n, 1, 50}]
PROG
(PARI) a(n) = prod(k=1, n-1, eulerphi(gcd(n, k))); \\ Michel Marcus, Nov 28 2021
CROSSREFS
Cf. A000010, A001088, A029935, A029940, A046022 (positions of 1's), A051190.
Sequence in context: A105022 A263293 A230535 * A257651 A275122 A264569
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Nov 28 2021
STATUS
approved