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 A301507 #7 Mar 23 2018 05:01:28 %S A301507 1,1,1,1,0,1,2,2,2,2,2,3,3,3,4,5,6,6,6,7,8,9,10,11,13,14,14,16,18,20, %T A301507 23,24,27,30,31,34,37,41,46,49,53,58,62,67,73,80,88,94,101,109,117, %U A301507 127,136,147,161,172,184,198,211,228,245,262,284,304,324,347,370,397,425,454,488 %N A301507 Expansion of Product_{k>=0} (1 + x^(4*k+1))*(1 + x^(4*k+2)). %C A301507 Number of partitions of n into distinct parts congruent to 1 or 2 mod 4. %H A301507 <a href="/index/Par#part">Index entries for sequences related to partitions</a> %F A301507 G.f.: Product_{k>=1} (1 + x^A042963(k)). %F A301507 a(n) ~ exp(Pi*sqrt(n/6)) / (2^(3/2)*3^(1/4)*n^(3/4)). - _Vaclav Kotesovec_, Mar 23 2018 %e A301507 a(11) = 3 because we have [10, 1], [9, 2] and [6, 5]. %t A301507 nmax = 70; CoefficientList[Series[Product[(1 + x^(4 k + 1)) (1 + x^(4 k + 2)), {k, 0, nmax}], {x, 0, nmax}], x] %t A301507 nmax = 70; CoefficientList[Series[QPochhammer[-x, x^4] QPochhammer[-x^2, x^4], {x, 0, nmax}], x] %t A301507 nmax = 70; CoefficientList[Series[Product[(1 + Boole[MemberQ[{1, 2}, Mod[k, 4]]] x^k), {k, 1, nmax}], {x, 0, nmax}], x] %Y A301507 Cf. A035365, A042963, A070048, A108932, A169975, A301504, A301505, A301508. %K A301507 nonn %O A301507 0,7 %A A301507 _Ilya Gutkovskiy_, Mar 22 2018