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.

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

This page as a plain text file.
%I A341227 #8 Feb 07 2021 11:40:44
%S A341227 1,16,136,824,4004,16608,61076,204200,631714,1831752,5027312,13159104,
%T A341227 33049090,80030808,187613348,427201176,947520103,2051989360,
%U A341227 4347996772,9030416704,18412343832,36905322248,72807201940,141525042736,271321432489,513454659312
%N A341227 Expansion of (-1 + Product_{k>=1} 1 / (1 - x^k))^8.
%H A341227 Alois P. Heinz, <a href="/A341227/b341227.txt">Table of n, a(n) for n = 8..10000</a>
%p A341227 b:= proc(n, k) option remember; `if`(k<2, `if`(n=0, 1-k, combinat[
%p A341227       numbpart](n)), (q-> add(b(j, q)*b(n-j, k-q), j=0..n))(iquo(k, 2)))
%p A341227     end:
%p A341227 a:= n-> b(n, 8):
%p A341227 seq(a(n), n=8..33);  # _Alois P. Heinz_, Feb 07 2021
%t A341227 nmax = 33; CoefficientList[Series[(-1 + Product[1/(1 - x^k), {k, 1, nmax}])^8, {x, 0, nmax}], x] // Drop[#, 8] &
%Y A341227 Column k=8 of A060642.
%Y A341227 Cf. A000041, A023007, A048574, A327386, A341221, A341222, A341223, A341225, A341226, A341228.
%K A341227 nonn
%O A341227 8,2
%A A341227 _Ilya Gutkovskiy_, Feb 07 2021