This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A280487 G.f.: Product_{i>=1, j>=1, k>=1, l>=1} 1/(1 - x^(i*j*k*l)). 7
 1, 1, 5, 9, 29, 49, 135, 235, 565, 995, 2177, 3821, 7900, 13728, 26974, 46606, 88128, 150644, 276283, 467647, 835708, 1400874, 2448818, 4065230, 6975307, 11470265, 19359345, 31552473, 52488142, 84808548, 139274675, 223191639, 362297234, 576064732, 925295844 (list; graph; refs; listen; history; text; internal format)
 OFFSET 0,3 LINKS Vaclav Kotesovec, Table of n, a(n) for n = 0..10000 FORMULA G.f.: Product_{k>=1} 1/(1 - x^k)^tau_4(k), where tau_4() = A007426. - Ilya Gutkovskiy, May 22 2018 MATHEMATICA nmax=50; CoefficientList[Series[Product[1/(1-x^(i*j*k*l)), {i, 1, nmax}, {j, 1, nmax/i}, {k, 1, nmax/i/j}, {l, 1, nmax/i/j/k}], {x, 0, nmax}], x] nmax = 50; tau4 = Table[DivisorSum[n, DivisorSigma[0, n/#] * DivisorSigma[0, #] &], {n, 1, nmax}]; s = 1 - x; Do[s *= Sum[Binomial[tau4[[k]], j]*(-1)^j*x^(j*k), {j, 0, nmax/k}]; s = Expand[s]; s = Take[s, Min[nmax + 1, Exponent[s, x] + 1, Length[s]]]; , {k, 2, nmax}]; CoefficientList[Series[1/s, {x, 0, nmax}], x] (* Vaclav Kotesovec, Sep 08 2018 *) CROSSREFS Cf. A000041, A006171, A007426, A174465, A280486. Sequence in context: A192914 A303676 A163779 * A191013 A193487 A006131 Adjacent sequences:  A280484 A280485 A280486 * A280488 A280489 A280490 KEYWORD nonn AUTHOR Vaclav Kotesovec, Jan 04 2017 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified August 20 18:56 EDT 2019. Contains 326154 sequences. (Running on oeis4.)