cp's OEIS Frontend

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.

A318026 Expansion of Product_{k>=1} 1/((1 - x^k)*(1 - x^(3*k))).

This page as a plain text file.
%I A318026 #13 May 08 2020 12:45:10
%S A318026 1,1,2,4,6,9,16,22,33,50,70,98,143,193,266,368,493,659,892,1170,1543,
%T A318026 2035,2642,3422,4448,5694,7294,9334,11839,14982,18968,23812,29868,
%U A318026 37410,46598,57924,71953,88913,109728,135212,165991,203407,248986,303706,369939,449967,545820,661038,799629
%N A318026 Expansion of Product_{k>=1} 1/((1 - x^k)*(1 - x^(3*k))).
%C A318026 Convolution of A000041 and A035377.
%C A318026 Convolution of A000712 and A137569.
%C A318026 Convolution inverse of A030203.
%C A318026 Number of partitions of n if there are 2 kinds of parts that are multiples of 3.
%H A318026 Zakir Ahmed, Nayandeep Deka Baruah, Manosij Ghosh Dastidar, <a href="https://doi.org/10.1016/j.jnt.2015.05.002">New congruences modulo 5 for the number of 2-color partitions</a>, Journal of Number Theory, Volume 157, December 2015, Pages 184-198.
%H A318026 <a href="/index/Par#part">Index entries for sequences related to partitions</a>
%F A318026 G.f.: exp(Sum_{k>=1} x^k*(1 + x^k + 2*x^(2*k))/(k*(1 - x^(3*k)))).
%F A318026 a(n) ~ exp(2*sqrt(2*n)*Pi/3) / (3 * 2^(5/4) * n^(5/4)). - _Vaclav Kotesovec_, Aug 14 2018
%e A318026 a(4) = 6 because we have [4], [3, 1], [3', 1], [2, 2], [2, 1, 1] and [1, 1, 1, 1].
%p A318026 a:=series(mul(1/((1-x^k)*(1-x^(3*k))),k=1..55),x=0,49): seq(coeff(a,x,n),n=0..48); # _Paolo P. Lava_, Apr 02 2019
%t A318026 nmax = 48; CoefficientList[Series[Product[1/((1 - x^k) (1 - x^(3 k))), {k, 1, nmax}], {x, 0, nmax}], x]
%t A318026 nmax = 48; CoefficientList[Series[1/(QPochhammer[x] QPochhammer[x^3]), {x, 0, nmax}], x]
%t A318026 nmax = 48; CoefficientList[Series[Exp[Sum[x^k (1 + x^k + 2 x^(2 k))/(k (1 - x^(3 k))), {k, 1, nmax}]], {x, 0, nmax}], x]
%t A318026 Table[Sum[PartitionsP[k] PartitionsP[n - 3 k], {k, 0, n/3}], {n, 0, 48}]
%Y A318026 Cf. A000041, A000712, A002513, A030203, A030206, A035377, A112175, A137569, A318027, A318028.
%K A318026 nonn
%O A318026 0,3
%A A318026 _Ilya Gutkovskiy_, Aug 13 2018