%I #9 Feb 01 2024 08:30:11
%S 0,2,3,4,5,42,7,64,81,10010,11,288,13,7529550,50850,65536,17,34012548,
%T 19,160400,85766562,26559922791446,23,663552,390625,95428956661682202,
%U 387420489,481891088,29,656100810900,31,1099511627776,1531578985265538,3189059870763703892770850
%N a(n) = Sum_{p|n, p prime} n^phi(n/p).
%t Table[DivisorSum[n, n^EulerPhi[n/#] &, PrimeQ[#] &], {n, 40}]
%Y Cf. A000010, A345893, A347104, A369687, A369779.
%K nonn,easy
%O 1,2
%A _Wesley Ivan Hurt_, Jan 31 2024