|
|
A072911
|
|
Number of "phi-divisors" of n.
|
|
12
|
|
|
1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 2, 1, 1, 1, 1, 4, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1, 2, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 4, 1, 1, 1, 1, 1, 1, 1, 2, 1
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,8
|
|
COMMENTS
|
If n = Product p(i)^r(i), d = Product p(i)^s(i), = s(i)<=r(i) and gcd(s(i), r(i)) = 1, then d is a phi-divisor of n.
The integers n = Product_{i=1..r} p_i^{a_i} and m = Product_{i=1..r} p_i^{b_i}, a_i, b_i >= 1 (1 <= i <= r) having the same prime factors are called exponentially coprime, if gcd(a_i, b_i) = 1 for every 1 <= i <= r, i.e., the only common exponential divisor of n and m is Product_{i=1..r} p_i = the common squarefree kernel of n and m, cf. A049419, A007947. The terms of this sequence count the divisors d of n such that d and n are exponentially coprime. - Laszlo Toth, Oct 06 2008
|
|
REFERENCES
|
József Sándor, On an exponential totient function, Studia Univ. Babes-Bolyai, Math., 41 (1996), 91-94. [Laszlo Toth, Oct 06 2008]
|
|
LINKS
|
|
|
FORMULA
|
If n = Product p(i)^r(i) then a(n) = Product (phi(r(i))), where phi(k) is the Euler totient function of k, cf. A000010.
Sum_{k=1..n} a(k) ~ c_1 * n + c_2 * n^(1/3) + O(n^(1/5+eps)), where c_1 = A327838 (Tóth, 2004). - Amiram Eldar, Oct 30 2022
|
|
MAPLE
|
local a, p;
a := 1 ;
for p in ifactors(n)[2] do
a := a*numtheory[phi](op(2, p)) ;
od:
a ;
end:
|
|
MATHEMATICA
|
a[n_] := Times @@ EulerPhi[FactorInteger[n][[All, 2]]];
|
|
PROG
|
(Haskell)
a072911 = product . map (a000010 . fromIntegral) . a124010_row
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,mult
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|