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 A307656 #5 Apr 21 2019 07:50:24
%S A307656 1,-1,2,1,0,8,-7,22,-6,13,29,-11,82,-36,114,13,103,88,88,275,-20,549,
%T A307656 -200,1007,-144,811,730,188,2093,-777,3538,-643,4083,-537,4562,2478,
%U A307656 1973,8062,-3508,17362,-8164,20281,-2227,17483,8605,2946,30190,-6085,53176,-28913,78516
%N A307656 G.f. A(x) satisfies: (1 - x) = A(x)*A(x^2)^2*A(x^3)^3*A(x^4)^4* ... *A(x^k)^k* ...
%C A307656 Convolution inverse of A307648.
%F A307656 G.f.: Product_{k>=1} (1 - x^k)^(mu(k)*k).
%F A307656 G.f.: exp(-Sum_{k>=1} A046970(k)*x^k/k).
%e A307656 G.f.: A(x) = 1 - x + 2*x^2 + x^3 + 8*x^5 - 7*x^6 + 22 x^7 - 6*x^8 + 13*x^9 + 29*x^10 - 11*x^11 + 82*x^12 - 36*x^13 + ...
%t A307656 terms = 50; CoefficientList[Series[Product[(1 - x^k)^(MoebiusMu[k] k), {k, 1, terms}], {x, 0, terms}], x]
%t A307656 terms = 50; CoefficientList[Series[Exp[-Sum[Sum[MoebiusMu[d] d^2, {d, Divisors[k]}] x^k/k, {k, 1, terms}]], {x, 0, terms}], x]
%t A307656 terms = 50; A[_] = 1; Do[A[x_] = (1 - x)/Product[A[x^k]^k, {k, 2, terms}] + O[x]^(terms + 1) // Normal, terms + 1]; CoefficientList[A[x], x]
%Y A307656 Cf. A008683, A046970, A055615, A117208, A307648.
%K A307656 sign
%O A307656 0,3
%A A307656 _Ilya Gutkovskiy_, Apr 20 2019