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.

A347172 Sum of 4th powers of odd divisors of n that are < sqrt(n).

This page as a plain text file.
%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