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 A300278 #6 Mar 01 2018 14:54:13
%S A300278 1,1,4,5,14,19,42,57,115,170,287,433,694,1061,1709,2461,3740,5635,
%T A300278 8243,12256,18255,26135,37826,54209,78315,110488,159418,224514,315414,
%U A300278 442790,618665,855640,1199409,1642334,2288904,3144738,4303994,5862294,8031872,10869290,14749050
%N A300278 G.f.: 1 + Sum_{n>=1} a(n)*x^n/(1 - x^n) = Product_{n>=1} (1 + n*x^n).
%C A300278 Moebius transform of A022629.
%H A300278 N. J. A. Sloane, <a href="/transforms.txt">Transforms</a>
%F A300278 a(n) = Sum_{d|n} mu(n/d)*A022629(d).
%t A300278 nn = 41; f[x_] := 1 + Sum[a[n] x^n/(1 - x^n), {n, 1, nn}]; sol = SolveAlways[0 == Series[f[x] - Product[(1 + n x^n), {n, 1, nn}], {x, 0, nn}], x]; Table[a[n], {n, 1, nn}] /. sol // Flatten
%t A300278 s[n_] := SeriesCoefficient[Product[(1 + k x^k), {k, 1, n}], {x, 0, n}]; a[n_] := Sum[MoebiusMu[n/d] s[d], {d, Divisors[n]}]; Table[a[n], {n, 1, 41}]
%Y A300278 Cf. A000837, A022629, A078374, A085410, A300274, A300275, A300276, A300277.
%K A300278 nonn
%O A300278 1,3
%A A300278 _Ilya Gutkovskiy_, Mar 01 2018