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 A050451 #12 Dec 06 2018 07:50:30 %S A050451 1,1,1,1,126,1,1,1,730,126,1,1,2198,1,126,1,4914,730,1,126,9262,1,1,1, %T A050451 15751,2198,730,1,24390,126,1,1,35938,4914,126,730,50654,1,2198,126, %U A050451 68922,9262,1,1,91980,1,1,1,117650,15751,4914,2198,148878 %N A050451 a(n) = Sum_{d|n, d=1 mod 4} d^3. %H A050451 Seiichi Manyama, <a href="/A050451/b050451.txt">Table of n, a(n) for n = 1..10000</a> %p A050451 A050451 := proc(n) local a,d; a := 0 ; for d in numtheory[divisors](n) do if d mod 4 = 1 then a := a+d^3 ; end if; end do; a ; end proc: %p A050451 seq(A050451(n),n=1..100) ; # _R. J. Mathar_, Jan 07 2011 %t A050451 a[n_] := DivisorSum[n, #^3 &, Mod[#, 4]==1 &]; Array[a, 30] (* _Amiram Eldar_, Dec 06 2018 *) %K A050451 nonn %O A050451 1,5 %A A050451 _N. J. A. Sloane_, Dec 23 1999