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,2

Links

Table of n, a(n) for n=1..22.

Formula

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

Mathematica

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

Crossrefs

Cf. A000040, A351368, A369748.

Sequence in context: A168251 A062758 A217854 * A028822 A270696 A069495

Adjacent sequences: A369863 A369864 A369865 * A369867 A369868 A369869

Keyword

nonn,easy

Author

Wesley Ivan Hurt, Feb 03 2024

Status

approved