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 A360752 #13 Aug 02 2023 02:00:27 %S A360752 1,3,1,9,1,41,1,65,193,161,1,2433,1,897,10241,18433,1,66049,1,403457, %T A360752 344065,22529,1,7127041,5242881,106497,9437185,73629697,1,332890113,1, %U A360752 940572673,230686721,2228225,9395240961,18828754945,1,9961473,5234491393,429517701121,1 %N A360752 Expansion of Sum_{k>0} (x * (1 + (2 * x)^k))^k. %F A360752 a(n) = Sum_{d|n} 2^(n-d) * binomial(d,n/d-1). %F A360752 If p is an odd prime, a(p) = 1. %t A360752 a[n_] := DivisorSum[n, 2^(n-#) * Binomial[#, n/# - 1] &]; Array[a, 40] (* _Amiram Eldar_, Aug 02 2023 *) %o A360752 (PARI) my(N=50, x='x+O('x^N)); Vec(sum(k=1, N, (x*(1+(2*x)^k))^k)) %o A360752 (PARI) a(n) = sumdiv(n, d, 2^(n-d)*binomial(d, n/d-1)); %Y A360752 Cf. A360733. %K A360752 nonn %O A360752 1,2 %A A360752 _Seiichi Manyama_, Feb 19 2023