|
%I #7 May 19 2024 09:41:44
%S 1,2,3,6,5,20,7,18,15,54,11,144,13,104,143,50,17,290,19,442,285,252,
%T 23,884,45,350,69,900,29,8400,31,130,713,594,899,2622,37,740,999,2838,
%U 41,23606,43,2296,2627,1080,47,4884,91,2314,1715,3234,53,3836,2295,5880,2145
%N a(n) = (1/n) * Sum_{k=1..n} tau( (n/gcd(k,n))^n ).
%F If p is prime, a(p) = p.
%F a(n) = (1/n) * Sum_{d|n} phi(d) * tau(d^n).
%o (PARI) a(n) = sumdiv(n, d, eulerphi(d)*numdiv(d^n))/n;
%Y Cf. A344226, A373002.
%K nonn
%O 1,2
%A _Seiichi Manyama_, May 19 2024
|
