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

0, 1, 1, 4, 1, 42, 1, 64, 81, 1010, 1, 1872, 1, 38430, 3600, 65536, 1, 110808, 1, 160400, 194922, 5153654, 1, 8294400, 15625, 308915802, 531441, 481891088, 1, 729837000, 1, 1073741824, 39136482, 52523350178, 1543500, 78424630272, 1, 4347792138534, 3518745282

Offset

1,4

Links

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

Formula

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

Mathematica

Table[DivisorSum[n, n^PrimePi[n/#] &, PrimeQ[#] &], {n, 60}]

Crossrefs

Cf. A000720 (pi), A345301, A369745, A369747.

Sequence in context: A298495 A373827 A193962 * A302441 A373459 A269906

Adjacent sequences: A369865 A369866 A369867 * A369869 A369870 A369871

Keyword

nonn,easy

Author

Wesley Ivan Hurt, Feb 03 2024

Status

approved