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.

A192061 Number of 12-core partitions of n.

This page as a plain text file.
%I A192061 #20 May 27 2020 09:55:22
%S A192061 1,1,2,3,5,7,11,15,22,30,42,56,65,89,111,140,171,213,253,310,363,432,
%T A192061 498,583,705,800,924,1060,1216,1379,1578,1772,2013,2259,2554,2847,
%U A192061 3147,3507,3897,4305,4756,5225,5748,6297,6909,7546,8250,9000,9724,10626,11512,12478,13482,14616,15714,17007,18215,19602,20930,22470
%N A192061 Number of 12-core partitions of n.
%H A192061 Seiichi Manyama, <a href="/A192061/b192061.txt">Table of n, a(n) for n = 0..10000</a> (terms 0..1000 from Alois P. Heinz)
%p A192061 M:=60;
%p A192061 f:=proc(t) global M; local q,i,t1;
%p A192061 t1:=1;
%p A192061 for i from 1 to M+1 do
%p A192061 t1:=series(t1*(1-q^(i*t))^t,q,M);
%p A192061 t1:=series(t1/(1-q^i),q,M);
%p A192061 od;
%p A192061 t1;
%p A192061 end;
%p A192061 seriestolist(f(12));
%t A192061 m = 60;
%t A192061 f[0] = 1/(1 - x^k);
%t A192061 f[t_] = (1 - x^(k t))^t/(1 - x^k);
%t A192061 s[t_] := CoefficientList[Series[Product[f[t], {k, m-1}], {x, 0, m-1}], x];
%t A192061 s[12] (* _Jean-François Alcover_, May 27 2020 *)
%Y A192061 A column of A175595.
%K A192061 nonn
%O A192061 0,3
%A A192061 _N. J. A. Sloane_, Jun 21 2011