login
a(n) = Sum_{p|n, p prime} n^phi(n/p).
0

%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