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.

A329276 Expansion of 1 / (1 - Sum_{k>=1} mu(2*k) * log(1 - 2 * x^k) / (2 * k)), where mu = A008683.

This page as a plain text file.
%I A329276 #6 Nov 11 2019 18:45:39
%S A329276 1,1,2,4,9,20,45,102,232,528,1204,2748,6276,14342,32787,74976,171495,
%T A329276 392337,897696,2054232,4701202,10759689,24627245,56370546,129034271,
%U A329276 295373313,676158166,1547869038,3543458906,8111974160,18570800837,42514665175,97330789942,222825306335
%N A329276 Expansion of 1 / (1 - Sum_{k>=1} mu(2*k) * log(1 - 2 * x^k) / (2 * k)), where mu = A008683.
%C A329276 Invert transform of A000048.
%F A329276 a(0) = 1; a(n) = Sum_{k=1..n} A000048(k) * a(n-k).
%t A329276 nmax = 33; CoefficientList[Series[1/(1 - Sum[MoebiusMu[2 k] Log[1 - 2 x^k]/(2 k), {k, 1, nmax}]), {x, 0, nmax}], x]
%t A329276 a[0] = 1; a[n_] := a[n] = Sum[(1/(2 k)) DivisorSum[k, MoebiusMu[#] 2^(k/#) &, OddQ] a[n - k], {k, 1, n}]; Table[a[n], {n, 0, 33}]
%Y A329276 Cf. A000048, A008683, A123916, A329275.
%K A329276 nonn
%O A329276 0,3
%A A329276 _Ilya Gutkovskiy_, Nov 11 2019