%I #14 Dec 05 2021 19:12:54
%S 1,5,15,30,45,56,65,85,115,150,171,175,185,205,260,300,325,340,350,
%T 415,440,485,500,505,580,581,650,645,675,815,815,910,845,865,985,951,
%U 1130,1030,1060,1155,1150,1370,1265,1410,1495,1420,1545,1460,1600,1675,1690
%N Number of ordered ways of writing n as a sum of 5 generalized pentagonal numbers (A001318).
%H G. C. Greubel, <a href="/A059160/b059160.txt">Table of n, a(n) for n = 0..1000</a>
%F G.f.: f(x, x^2)^5 where f(,) is Ramanujan's two-variable theta function. - _Michael Somos_, Jun 08 2012
%t a[n_] := SeriesCoefficient[(QPochhammer[-q, q^3]* QPochhammer[-q^2, q^3]*QPochhammer[q^3, q^3])^5, {q, 0, n}]; Table[a[n], {n, 0, 50}] (* _G. C. Greubel_, Jun 12 2017 *)
%Y Cf. A001318, A008443, A014110, A080995.
%K nonn
%O 0,2
%A _Judson Neer_, Feb 14 2001