A297794 a(n) = Sum_{d|n} min(d, n/d)^4.

1, 2, 2, 18, 2, 34, 2, 34, 83, 34, 2, 196, 2, 34, 164, 290, 2, 196, 2, 546, 164, 34, 2, 708, 627, 34, 164, 546, 2, 1446, 2, 546, 164, 34, 1252, 2004, 2, 34, 164, 1796, 2, 2788, 2, 546, 1414, 34, 2, 3300, 2403, 1284, 164, 546, 2, 2788, 1252, 5348, 164, 34, 2, 4550, 2

Offset

1,2

Links

Seiichi Manyama, Table of n, a(n) for n = 1..10000

Mathematica

a[n_] := DivisorSum[n, Min[#, n/#]^4 &]; Array[a, 60] (* Amiram Eldar, Oct 04 2023 *)

Prog

(PARI) {a(n) = sumdiv(n, d, min(d, n/d)^4)}

Crossrefs

Sum_{d|n} min(d, n/d)^k: A117004 (k=1), A297792 (k=2), A297793 (k=3), this sequence (k=4), A297795 (k=5).

Sequence in context: A000528 A260478 A074970 * A291765 A231123 A225123

Adjacent sequences: A297791 A297792 A297793 * A297795 A297796 A297797

Keyword

nonn

Author

Seiichi Manyama, Jan 06 2018

Status

approved