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 A281612 #9 Jan 27 2017 13:05:59 %S A281612 0,0,0,1,1,3,4,8,12,20,28,45,62,92,127,181,244,340,452,614,809,1077, %T A281612 1401,1841,2371,3071,3923,5026,6363,8078,10149,12769,15939,19899, %U A281612 24676,30604,37726,46489,57007,69849,85211,103871,126119,152987,184955,223349,268898,323384,387830,464587,555168,662619,789084 %N A281612 Expansion of Sum_{i = p*q, p prime, q prime} x^i/(1 - x^i) / Product_{j>=1} (1 - x^j). %C A281612 Total number of semiprime parts (A001358) in all partitions of n. %C A281612 Convolution of A000041 and A086971. %H A281612 <a href="/index/Par#partN">Index entries for related partition-counting sequences</a> %F A281612 G.f.: Sum_{i = p*q, p prime, q prime} x^i/(1 - x^i) / Product_{j>=1} (1 - x^j). %e A281612 a(6) = 3 because we have [6], [5, 1], [4, 2], [4, 1, 1], [3, 3], [3, 2, 1], [3, 1, 1, 1], [2, 2, 2], [2, 1, 1, 1, 1], [1, 1, 1, 1, 1, 1] and 1 + 0 + 1 + 1 + 0 + 0 + 0 + 0 + 0 + 0 + 0 = 3. %t A281612 nmax = 53; Rest[CoefficientList[Series[Sum[Floor[PrimeOmega[i]/2] Floor[2/PrimeOmega[i]] x^i/(1 - x^i), {i, 2, nmax}]/Product[1 - x^j, {j, 1, nmax}], {x, 0, nmax}], x]] %Y A281612 Cf. A000041, A001358, A037032, A073335, A086971, A281573. %K A281612 nonn %O A281612 1,6 %A A281612 _Ilya Gutkovskiy_, Jan 25 2017