A369749 a(n) = Sum_{p|n, p prime} p * prime(n/p).
0, 4, 6, 6, 10, 19, 14, 14, 15, 37, 22, 47, 26, 55, 58, 38, 34, 85, 38, 93, 86, 95, 46, 131, 55, 121, 69, 135, 58, 246, 62, 106, 148, 169, 162, 233, 74, 191, 188, 237, 82, 366, 86, 235, 256, 235, 94, 337, 119, 339, 262, 293, 106, 389, 276, 347, 296, 305, 118, 624
Offset: 1
Programs
-
Mathematica
Table[DivisorSum[n, #*Prime[n/#] &, PrimeQ[#] &], {n, 100}]
Formula
a(p^k) = p * prime(p^(k-1)), for p prime and k >= 1. - Wesley Ivan Hurt, Jun 26 2024