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 A029862 #28 Jul 22 2025 05:48:56
%S A029862 1,1,4,5,14,18,41,54,109,145,267,357,618,826,1359,1815,2872,3824,5859,
%T A029862 7774,11600,15329,22362,29425,42113,55167,77648,101267,140479,182395,
%U A029862 249789,322906,437199,562755,754171,966713,1283630,1638716,2157763
%N A029862 Expansion of q^(5/24) / (eta(q) * eta(q^2)^2) in powers of q.
%C A029862 Number of partitions of n where there are 3 kinds of even parts. - _Ilya Gutkovskiy_, Jan 17 2018
%C A029862 Also the number of non-isomorphic multiset partitions of weight n using singletons or pairs where no vertex appears more than twice. - _Gus Wiseman_, Oct 18 2018 (Proved by _Andrew Howroyd_, Oct 26 2018)
%H A029862 Seiichi Manyama, <a href="/A029862/b029862.txt">Table of n, a(n) for n = 0..10000</a>
%H A029862 N. J. A. Sloane, <a href="/transforms.txt">Transforms</a>
%F A029862 Euler transform of period 2 sequence [ 1, 3, ...].
%F A029862 G.f.: Product_{k>0} 1 / ((1 - x^(2*k))^3 * (1 - x^(2*k-1))). - _Michael Somos_, Mar 23 2003
%F A029862 a(n) ~ exp(2*Pi*sqrt(n/3))/(6*sqrt(2)*n^(3/2)). - _Vaclav Kotesovec_, Sep 07 2015
%e A029862 G.f. = 1 + x + 4*x^2 + 5*x^3 + 14*x^4 + 18*x^5 + 41*x^6 + 54*x^7 + 109*x^8 + ...
%e A029862 G.f. = q^-5 + q^19 + 4*q^43 + 5*q^67 + 14*q^91 + 18*q^115 + 41*q^139 + ...
%e A029862 From _Gus Wiseman_, Oct 27 2018: (Start)
%e A029862 Non-isomorphic representatives of the a(1) = 1 through a(5) = 18 multiset partitions using singletons or pairs where no vertex appears more than twice:
%e A029862 {{1}} {{1,1}} {{1},{2,2}} {{1,1},{2,2}} {{1},{2,2},{3,3}}
%e A029862 {{1,2}} {{1},{2,3}} {{1,2},{1,2}} {{1},{2,3},{2,3}}
%e A029862 {{1},{1}} {{2},{1,2}} {{1,2},{3,3}} {{1},{2,3},{4,4}}
%e A029862 {{1},{2}} {{1},{2},{2}} {{1,2},{3,4}} {{1},{2,3},{4,5}}
%e A029862 {{1},{2},{3}} {{1,3},{2,3}} {{1},{2,4},{3,4}}
%e A029862 {{1},{1},{2,2}} {{2},{1,2},{3,3}}
%e A029862 {{1},{1},{2,3}} {{2},{1,3},{2,3}}
%e A029862 {{1},{2},{1,2}} {{4},{1,2},{3,4}}
%e A029862 {{1},{2},{3,3}} {{1},{1},{3},{2,3}}
%e A029862 {{1},{2},{3,4}} {{1},{2},{2},{3,3}}
%e A029862 {{1},{3},{2,3}} {{1},{2},{2},{3,4}}
%e A029862 {{1},{1},{2},{2}} {{1},{2},{3},{2,3}}
%e A029862 {{1},{2},{3},{3}} {{1},{2},{3},{4,4}}
%e A029862 {{1},{2},{3},{4}} {{1},{2},{3},{4,5}}
%e A029862 {{1},{2},{4},{3,4}}
%e A029862 {{1},{2},{2},{3},{3}}
%e A029862 {{1},{2},{3},{4},{4}}
%e A029862 {{1},{2},{3},{4},{5}}
%e A029862 (End)
%t A029862 nmax = 40; CoefficientList[Series[Product[1 / ((1 - x^(2*k))^3 * (1 - x^(2*k-1))), {k, 1, nmax}], {x, 0, nmax}], x] (* _Vaclav Kotesovec_, Sep 07 2015 *)
%t A029862 QP = QPochhammer; s = 1/(QP[q]*QP[q^2]^2) + O[q]^40; CoefficientList[s, q] (* _Jean-François Alcover_, Nov 25 2015 *)
%o A029862 (PARI) {a(n) = local(A); if( n<0, 0, A = x * O(x^n); polcoeff( 1 / (eta(x + A) * eta(x^2 + A)^2), n))};
%Y A029862 Cf. A001358, A007716, A007717, A037143, A320462, A320655, A320663, A320665.
%K A029862 nonn
%O A029862 0,3
%A A029862 _N. J. A. Sloane_