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 A347143 #7 Aug 20 2021 00:22:01
%S A347143 1,1,1,17,1,17,1,17,82,17,1,98,1,17,82,273,1,98,1,273,82,17,1,354,626,
%T A347143 17,82,273,1,723,1,273,82,17,626,1650,1,17,82,898,1,1394,1,273,707,17,
%U A347143 1,1650,2402,642,82,273,1,1394,626,2674,82,17,1,2275,1,17,2483,4369,626
%N A347143 Sum of 4th powers of divisors of n that are <= sqrt(n).
%F A347143 G.f.: Sum_{k>=1} k^4 * x^(k^2) / (1 - x^k).
%t A347143 Table[DivisorSum[n, #^4 &, # <= Sqrt[n] &], {n, 1, 65}]
%t A347143 nmax = 65; CoefficientList[Series[Sum[k^4 x^(k^2)/(1 - x^k), {k, 1, nmax}], {x, 0, nmax}], x] // Rest
%o A347143 (PARI) A347143(n) = { my(s=0); fordiv(n,d,if((d^2)>n,return(s)); s += (d^4)); (s); }; \\ _Antti Karttunen_, Aug 19 2021
%Y A347143 Cf. A001159, A038548, A066839, A095118, A279363, A280375, A347142.
%K A347143 nonn
%O A347143 1,4
%A A347143 _Ilya Gutkovskiy_, Aug 19 2021