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.

A341236 Expansion of (-1 + Product_{k>=1} 1 / (1 - x^k))^10.

This page as a plain text file.
%I A341236 #7 Feb 07 2021 11:35:56
%S A341236 1,20,210,1550,9055,44624,192945,751480,2686155,8934560,27946335,
%T A341236 82884860,234636435,637416140,1669127130,4228739712,10398140075,
%U A341236 24882425770,58080468790,132508486900,296005537183,648445364080,1394961003490,2950516502980,6142674032345,12599932782780
%N A341236 Expansion of (-1 + Product_{k>=1} 1 / (1 - x^k))^10.
%H A341236 Alois P. Heinz, <a href="/A341236/b341236.txt">Table of n, a(n) for n = 10..10000</a>
%p A341236 b:= proc(n, k) option remember; `if`(k<2, `if`(n=0, 1-k, combinat[
%p A341236       numbpart](n)), (q-> add(b(j, q)*b(n-j, k-q), j=0..n))(iquo(k, 2)))
%p A341236     end:
%p A341236 a:= n-> b(n, 10):
%p A341236 seq(a(n), n=10..35);  # _Alois P. Heinz_, Feb 07 2021
%t A341236 nmax = 35; CoefficientList[Series[(-1 + Product[1/(1 - x^k), {k, 1, nmax}])^10, {x, 0, nmax}], x] // Drop[#, 10] &
%Y A341236 Column k=10 of A060642.
%Y A341236 Cf. A000041, A023009, A048574, A327388, A341221, A341222, A341223, A341225, A341226, A341227, A341228.
%K A341236 nonn
%O A341236 10,2
%A A341236 _Ilya Gutkovskiy_, Feb 07 2021