This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A369912 #8 Jul 13 2025 21:17:16
%S A369912 0,1,1,4,1,17,1,4,27,57,1,41,1,177,368,4,1,251,1,153,2530,2169,1,41,
%T A369912 3125,8361,27,561,1,5568,1,4,178478,131361,94932,275,1,524649,1596520,
%U A369912 153,1,37514,1,8313,6686,8389137,1,41,823543,78157,129145076,32937,1,251
%N A369912 a(n) = Sum_{p|n, p prime} p^sopf(n/p).
%F A369912 a(p^k) = p^(p-p*floor(1/k)) for p prime and k>=1. - _Wesley Ivan Hurt_, Jul 09 2025
%t A369912 a[n_] := Sum[p, {p, Select[Divisors[n], PrimeQ]}]; Table[DivisorSum[n, #^a[n/#] &, PrimeQ[#] &], {n, 80}]
%Y A369912 Cf. A008472 (sopf), A369744, A369911, A369913.
%K A369912 nonn,easy
%O A369912 1,4
%A A369912 _Wesley Ivan Hurt_, Feb 05 2024