|
|
A067858
|
|
J_n(n), where J is the Jordan function, J_n(n) = n^n product{p|n}(1 - 1/p^n), the product is over the distinct primes, p, dividing n.
|
|
8
|
|
|
1, 3, 26, 240, 3124, 45864, 823542, 16711680, 387400806, 9990233352, 285311670610, 8913906892800, 302875106592252, 11111328602468784, 437893859848932344, 18446462598732840960, 827240261886336764176, 39346257879101671328376, 1978419655660313589123978
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
FORMULA
|
J_n(n) = sum{k|n} mu(n/k) k^n, where mu() is the Moebius function.
|
|
MAPLE
|
with(numtheory):
a:= n-> n^n*mul(1-1/p^n, p=factorset(n)):
|
|
MATHEMATICA
|
JordanTotient[n_, k_:1]:=DivisorSum[n, #^k*MoebiusMu[n/#]&]/; (n>0)&&IntegerQ[n]; A067858[n_]:=JordanTotient[n, n]; Array[A067858, 20]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|