A369914 a(n) = n * Sum_{p|n, p prime} sopf(n/p) / p.

0, 0, 0, 4, 0, 13, 0, 8, 9, 29, 0, 38, 0, 53, 34, 16, 0, 57, 0, 78, 58, 125, 0, 76, 25, 173, 27, 134, 0, 220, 0, 32, 130, 293, 74, 150, 0, 365, 178, 156, 0, 366, 0, 294, 147, 533, 0, 152, 49, 195, 298, 398, 0, 171, 146, 268, 370, 845, 0, 500, 0, 965, 237, 64, 194

Offset

1,4

Links

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

Mathematica

a[n_] := Sum[p, {p, Select[Divisors[n], PrimeQ]}]; Table[n*DivisorSum[n, a[n/#]/# &, PrimeQ[#] &], {n, 80}]

Crossrefs

Cf. A008472 (sopf), A369744, A369911, A369912, A369913.

Sequence in context: A056460 A137523 A375988 * A291108 A117786 A117788

Adjacent sequences: A369911 A369912 A369913 * A369915 A369916 A369917

Keyword

nonn,easy

Author

Wesley Ivan Hurt, Feb 05 2024

Status

approved