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 A050454 #14 Oct 13 2024 18:58:36
%S A050454 0,0,27,0,0,27,343,0,27,0,1331,27,0,343,3402,0,0,27,6859,0,370,1331,
%T A050454 12167,27,0,0,19710,343,0,3402,29791,0,1358,0,43218,27,0,6859,59346,0,
%U A050454 0,370,79507,1331,3402,12167,103823,27,343,0,132678,0,0
%N A050454 a(n) = Sum_{d|n, d=3 mod 4} d^3.
%H A050454 Seiichi Manyama, <a href="/A050454/b050454.txt">Table of n, a(n) for n = 1..10000</a>
%p A050454 A050454 := proc(n) local a,d; a := 0 ; for d in numtheory[divisors](n) do if d mod 4 = 3 then a := a+d^3 ; end if; end do; a ; end proc:
%p A050454 seq(A050454(n),n=1..100) ; # _R. J. Mathar_, Jan 07 2011
%t A050454 a[n_] := DivisorSum[n, #^3 &, Mod[#, 4]==3 &]; Array[a, 30] (* _Amiram Eldar_, Dec 06 2018 *)
%t A050454 Table[Total[Select[Divisors[n],Mod[#,4]==3&]^3],{n,80}] (* _Harvey P. Dale_, Oct 13 2024 *)
%K A050454 nonn
%O A050454 1,3
%A A050454 _N. J. A. Sloane_, Dec 23 1999