A373003 - OEIS

%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