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.

A082556 Expansion of g.f. Product_{m>=1} 1/(1-x^m)^30.

This page as a plain text file.
%I A082556 #17 Jan 13 2025 06:36:46
%S A082556 1,30,495,5890,56265,456786,3263990,21017040,124018290,679118550,
%T A082556 3484681077,16884109080,77731521980,341784289770,1441489548195,
%U A082556 5852747363518,22948550618400,87131200662540,321100847115950,1150962640399770,4020058004480100,13704611801774340
%N A082556 Expansion of g.f. Product_{m>=1} 1/(1-x^m)^30.
%H A082556 Alois P. Heinz, <a href="/A082556/b082556.txt">Table of n, a(n) for n = 0..1000</a>
%H A082556 <a href="/index/Pro#1mxtok">Index entries for expansions of Product_{k >= 1} (1-x^k)^m</a>
%p A082556 a:= proc(n) option remember; `if`(n=0, 1, add(
%p A082556       numtheory[sigma](j)*a(n-j), j=1..n)*30/n)
%p A082556     end:
%p A082556 seq(a(n), n=0..25);  # _Alois P. Heinz_, Mar 12 2015
%t A082556 a[n_] := a[n] = If[n == 0, 1, Sum[DivisorSigma[1, j]*a[n-j], {j, 1, n}]*30/n];
%t A082556 Table[a[n], {n, 0, 25}] (* _Jean-François Alcover_, Jan 13 2025, after _Alois P. Heinz_ *)
%Y A082556 Cf. 30th column of A144064.
%K A082556 nonn
%O A082556 0,2
%A A082556 _N. J. A. Sloane_, May 04 2003