A369866 a(n) = Sum_{p|n, p prime} n^prime(n/p).

0, 4, 9, 64, 25, 7992, 49, 2097152, 59049, 100000001000, 121, 106993241210880, 169, 30491346729331198648, 8649756618750, 75557863725914323419136, 289, 74347713614042750878184448000, 361, 53687091200000000000000000001280000000, 30041942495081695978842, 412195366437884247746798137865015318817176

Offset: 1

Author

Wesley Ivan Hurt, Feb 03 2024

Keywords

• nonn
• easy

Crossrefs

Cf. A000040, A351368, A369748.

Programs

Mathematica

Table[DivisorSum[n, n^Prime[n/#] &, PrimeQ[#] &], {n, 30}]

Formula

a(p^k) = p^(k*prime(p^(k-1))), for p prime and k >= 1. - Wesley Ivan Hurt, Jun 26 2024