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 A334314 #17 May 06 2020 02:45:44 %S A334314 1,3,7,35,21,259,1241,5497,475,19367,7473,54193,307727,485041,1109501, %T A334314 9353753,7870991,189509941,1048445929,4213673063,96924859,68325181, %U A334314 3156755829,113847868229,3353128913,614935296797,120633624344,1937548941997,70096529185,62887637910847 %N A334314 Numerators of the partial sums of the Möbius transform of the harmonic numbers. %F A334314 a(n) = numerator of Sum_{m=1..n} Sum_{d|m} H(d)*mu(m/d). %F A334314 a(n)/A334313(n) = Sum_{k=1..n} A334312(n,k)/k. %t A334314 nn = 30; Numerator[Table[Sum[Sum[If[Mod[n, k] == 0, MoebiusMu[n/k]*HarmonicNumber[k], 0], {k, 1, n}], {n, 1, m}], {m, 1, nn}]] %o A334314 (PARI) a(n) = numerator(sum(m=1, n, sumdiv(m, d, moebius(m/d)*sum(i=1, d, 1/i)))); \\ _Michel Marcus_, Apr 23 2020 %Y A334314 Denominators are in A334313. %Y A334314 Cf. A001008 (numerators of harmonic numbers), A334312. %K A334314 nonn,frac %O A334314 1,2 %A A334314 _Mats Granvik_, Apr 22 2020