cp's OEIS Frontend

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.

A297843 a(n) = Sum_{d|n} max(d, n/d)^4.

This page as a plain text file.
%I A297843 #17 Jan 13 2025 01:32:29
%S A297843 1,32,162,528,1250,2754,4802,8704,13203,21250,29282,44576,57122,81634,
%T A297843 102500,139520,167042,225666,260642,341250,393764,497794,559682,
%U A297843 715808,781875,971074,1076004,1310946,1414562,1743842,1847042,2236416,2401124,2839714,3006052
%N A297843 a(n) = Sum_{d|n} max(d, n/d)^4.
%H A297843 Seiichi Manyama, <a href="/A297843/b297843.txt">Table of n, a(n) for n = 1..10000</a>
%F A297843 a(n) + A297794(n) = 2*A001159(n).
%F A297843 Sum_{k=1..n} a(k) ~ (2*zeta(5)/5) * n^5. - _Amiram Eldar_, Jan 12 2025
%t A297843 f[n_] := Block[{d = Divisors@ n}, Plus @@ (Max[#, n/#]^4 & /@ d)]; Array[f, 35] (* _Robert G. Wilson v_, Jan 07 2018 *)
%o A297843 (PARI) {a(n) = sumdiv(n, d, max(d, n/d)^4)}
%Y A297843 Sum_{d|n} max(d, n/d)^k: A117003 (k=1), A297841 (k=2), A297842 (k=3), this sequence (k=4), A297844 (k=5).
%Y A297843 Cf. A001159, A013663, A297794.
%K A297843 nonn
%O A297843 1,2
%A A297843 _Seiichi Manyama_, Jan 07 2018