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 A347172 #4 Aug 22 2021 00:17:16 %S A347172 0,1,1,1,1,1,1,1,1,1,1,82,1,1,82,1,1,82,1,1,82,1,1,82,1,1,82,1,1,707, %T A347172 1,1,82,1,626,82,1,1,82,626,1,82,1,1,707,1,1,82,1,626,82,1,1,82,626, %U A347172 2402,82,1,1,707,1,1,2483,1,626,82,1,1,82,3027,1,82,1,1,707 %N A347172 Sum of 4th powers of odd divisors of n that are < sqrt(n). %F A347172 G.f.: Sum_{k>=1} (2*k - 1)^4 * x^(2*k*(2*k - 1)) / (1 - x^(2*k - 1)). %t A347172 Table[DivisorSum[n, #^4 &, # < Sqrt[n] && OddQ[#] &], {n, 1, 75}] %t A347172 nmax = 75; CoefficientList[Series[Sum[(2 k - 1)^4 x^(2 k (2 k - 1))/(1 - x^(2 k - 1)), {k, 1, nmax}], {x, 0, nmax}], x] // Rest %Y A347172 Cf. A001159, A051001, A333805, A333807, A347142, A347161, A347162. %K A347172 nonn %O A347172 1,12 %A A347172 _Ilya Gutkovskiy_, Aug 21 2021