A369908 a(n) = Sum_{p|n, p prime} n^Omega(n/p).
0, 1, 1, 4, 1, 12, 1, 64, 9, 20, 1, 288, 1, 28, 30, 4096, 1, 648, 1, 800, 42, 44, 1, 27648, 25, 52, 729, 1568, 1, 2700, 1, 1048576, 66, 68, 70, 93312, 1, 76, 78, 128000, 1, 5292, 1, 3872, 4050, 92, 1, 10616832, 49, 5000, 102, 5408, 1, 314928, 110, 351232, 114
Offset: 1
Programs
-
Mathematica
Table[DivisorSum[n, n^PrimeOmega[n/#] &, PrimeQ[#] &], {n, 100}]
Formula
a(p^k) = p^(k*(k-1)), for p prime and k >= 1. - Wesley Ivan Hurt, Jun 26 2024