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 A297794 #14 Oct 04 2023 03:54:15 %S A297794 1,2,2,18,2,34,2,34,83,34,2,196,2,34,164,290,2,196,2,546,164,34,2,708, %T A297794 627,34,164,546,2,1446,2,546,164,34,1252,2004,2,34,164,1796,2,2788,2, %U A297794 546,1414,34,2,3300,2403,1284,164,546,2,2788,1252,5348,164,34,2,4550,2 %N A297794 a(n) = Sum_{d|n} min(d, n/d)^4. %H A297794 Seiichi Manyama, <a href="/A297794/b297794.txt">Table of n, a(n) for n = 1..10000</a> %t A297794 a[n_] := DivisorSum[n, Min[#, n/#]^4 &]; Array[a, 60] (* _Amiram Eldar_, Oct 04 2023 *) %o A297794 (PARI) {a(n) = sumdiv(n, d, min(d, n/d)^4)} %Y A297794 Sum_{d|n} min(d, n/d)^k: A117004 (k=1), A297792 (k=2), A297793 (k=3), this sequence (k=4), A297795 (k=5). %K A297794 nonn %O A297794 1,2 %A A297794 _Seiichi Manyama_, Jan 06 2018