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