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

0, 4, 9, 8, 25, 59, 49, 128, 243, 2173, 121, 10379, 169, 131415, 180272, 524288, 289, 9982931, 361, 536949037, 129156970, 2147484979, 529, 138601214939, 48828125, 2199023257749, 94143178827, 8796093845751, 841, 209369086423336, 961, 9007199254740992

Offset

1,2

Links

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

Mathematica

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

Crossrefs

Cf. A000040, A351368, A369748, A369749.

Sequence in context: A087687 A264090 A345283 * A365780 A297439 A168175

Adjacent sequences: A369747 A369748 A369749 * A369751 A369752 A369753

Keyword

nonn,easy

Author

Wesley Ivan Hurt, Jan 30 2024

Status

approved