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

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, 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, 2402, 82, 1, 1, 707, 1, 1, 2483, 1, 626, 82, 1, 1, 82, 3027, 1, 82, 1, 1, 707

Offset

1,12

Links

Table of n, a(n) for n=1..75.

Formula

G.f.: Sum_{k>=1} (2*k - 1)^4 * x^(2*k*(2*k - 1)) / (1 - x^(2*k - 1)).

Mathematica

Table[DivisorSum[n, #^4 &, # < Sqrt[n] && OddQ[#] &], {n, 1, 75}]
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

Crossrefs

Cf. A001159, A051001, A333805, A333807, A347142, A347161, A347162.

Sequence in context: A128838 A231484 A340398 * A347175 A352032 A051001

Adjacent sequences: A347169 A347170 A347171 * A347173 A347174 A347175

Keyword

nonn

Author

Ilya Gutkovskiy, Aug 21 2021

Status

approved