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 A369748 #9 Jan 22 2025 15:35:45 %S A369748 0,2,2,3,2,8,2,7,5,14,2,20,2,20,16,19,2,36,2,36,22,34,2,56,11,44,23, %T A369748 50,2,89,2,53,36,62,28,98,2,70,46,90,2,129,2,86,70,86,2,142,17,126,64, %U A369748 108,2,164,42,126,72,112,2,221,2,130,96,131,52,229,2,146,88,221 %N A369748 a(n) = Sum_{p|n, p prime} prime(n/p). %H A369748 Antti Karttunen, <a href="/A369748/b369748.txt">Table of n, a(n) for n = 1..20000</a> %t A369748 Table[DivisorSum[n, Prime[n/#] &, PrimeQ[#] &], {n, 100}] %o A369748 (PARI) A369748(n) = if(1==n, 0, my(f=factor(n)); sum(i=1, #f~, prime(n/f[i, 1]))); \\ _Antti Karttunen_, Jan 22 2025 %Y A369748 Cf. A000040, A351368. %K A369748 nonn,easy %O A369748 1,2 %A A369748 _Wesley Ivan Hurt_, Jan 30 2024