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 A338657 #20 Apr 23 2021 06:38:58 %S A338657 1,1,2,1,4,-3,6,-2,-1,-10,10,-22,12,-21,-40,-20,16,-55,18,-80,-98,-55, %T A338657 22,-90,-101,-78,-138,-182,28,-271,30,-104,-330,-136,-756,-37,36,-171, %U A338657 -520,-676,40,-476,42,-550,-1786,-253,46,648,-1667,-1276,-1088,-832,52,1539,-4312 %N A338657 a(n) = Sum_{d|n} mu(d) * binomial(d+n/d-1, d). %H A338657 Seiichi Manyama, <a href="/A338657/b338657.txt">Table of n, a(n) for n = 1..10000</a> %F A338657 G.f.: Sum_{k >= 1} mu(k) * x^k/(1 - x^k)^(k+1). %F A338657 If p is prime, a(p) = p - 1. %t A338657 a[n_] := DivisorSum[n, MoebiusMu[#] * Binomial[# + n/# - 1, #] &]; Array[a, 100] (* _Amiram Eldar_, Apr 22 2021 *) %o A338657 (PARI) a(n) = sumdiv(n, d, moebius(d)*binomial(d+n/d-1, d)); %o A338657 (PARI) my(N=66, x='x+O('x^N)); Vec(sum(k=1, N, moebius(k)*x^k/(1-x^k)^(k+1))) %Y A338657 Cf. A008683, A338656, A343565, A338658. %K A338657 sign %O A338657 1,3 %A A338657 _Seiichi Manyama_, Apr 22 2021