login
This site is supported by donations to The OEIS Foundation.

 

Logo


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.

License Agreements, Terms of Use, Privacy Policy. .

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