|
|
A373002
|
|
a(n) = Sum_{k=1..n} tau( (n/gcd(k,n))^n ).
|
|
1
|
|
|
1, 4, 9, 24, 25, 120, 49, 144, 135, 540, 121, 1728, 169, 1456, 2145, 800, 289, 5220, 361, 8840, 5985, 5544, 529, 21216, 1125, 9100, 1863, 25200, 841, 252000, 961, 4160, 23529, 20196, 31465, 94392, 1369, 28120, 38961, 113520, 1681, 991452, 1849, 101024, 118215
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
FORMULA
|
If p is prime, a(p) = p^2.
a(n) = Sum_{d|n} phi(d) * tau(d^n).
|
|
PROG
|
(PARI) a(n) = sumdiv(n, d, eulerphi(d)*numdiv(d^n));
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|