# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/

Search: id:a327731
Showing 1-1 of 1

%I A327731 #6 Sep 23 2019 15:32:45
%S A327731 1,1,1,3,3,5,8,10,14,21,28,36,51,65,86,117,148,190,251,316,402,519,
%T A327731 647,814,1032,1282,1593,1994,2457,3029,3754,4591,5617,6895,8381,10193,
%U A327731 12411,14999,18125,21919,26359,31672,38074,45556,54468,65134,77576,92322
%N A327731 Expansion of Product_{i>=1, j>=1}  (1 + x^(i*(2*j - 1))).
%C A327731 Weigh transform of A001227.
%F A327731 G.f.: Product_{k>=1} (1 + x^k)^A001227(k).
%t A327731 nmax = 47; CoefficientList[Series[Product[(1 + x^k)^DivisorSum[k, Mod[#, 2] &], {k, 1, nmax}], {x, 0, nmax}], x]
%t A327731 a[n_] := a[n] = If[n == 0, 1, Sum[Sum[(-1)^(k/d + 1) d DivisorSum[d, Mod[#, 2] &], {d, Divisors[k]}] a[n - k], {k, 1, n}]/n]; Table[a[n], {n, 0, 47}]
%o A327731 (PARI) seq(n)={Vec(prod(k=1, n, (1 + x^k + O(x*x^n))^numdiv(k>>valuation(k, 2))))} \\ _Andrew Howroyd_, Sep 23 2019
%Y A327731 Cf. A001227, A107742, A301800, A320650.
%K A327731 nonn
%O A327731 0,4
%A A327731 _Ilya Gutkovskiy_, Sep 23 2019

# Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE