The On-Line Encyclopedia of Integer Sequences (OEIS)

The OEIS is supported by the many generous donors to the OEIS Foundation.

Revision History for A301597

(Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing all changes.

A301597

Expansion of Product_{k>=1} 1/(1 - x^k)^A050985(k).
(history; published version)

#7 by Vaclav Kotesovec at Sat Mar 31 07:28:20 EDT 2018

STATUS

editing

approved

#6 by Vaclav Kotesovec at Sat Mar 31 07:27:46 EDT 2018

MATHEMATICA

nmax = 40; CoefficientList[Series[Exp[Sum[Sum[k/(Times @@ (#[[1]]^(#[[2]] - Mod[#[[2]], 3]) & ) /@ FactorInteger[k]) * x^(j*k) / j, {k, 1, Floor[nmax/j] + 1}], {j, 1, nmax}]], {x, 0, nmax}], x] (* Vaclav Kotesovec, Mar 31 2018, after Jean-François Alcover *)

STATUS

approved

editing

#5 by Vaclav Kotesovec at Sat Mar 24 09:01:40 EDT 2018

STATUS

editing

approved

#4 by Vaclav Kotesovec at Sat Mar 24 08:03:16 EDT 2018

LINKS

Vaclav Kotesovec, <a href="/A301597/b301597.txt">Table of n, a(n) for n = 0..1000</a>

#3 by Vaclav Kotesovec at Sat Mar 24 07:57:30 EDT 2018

COMMENTS

Euler transform of A050985.

#2 by Vaclav Kotesovec at Sat Mar 24 07:57:05 EDT 2018

NAME

allocated for Vaclav Kotesovec

Expansion of Product_{k>=1} 1/(1 - x^k)^A050985(k).

DATA

1, 1, 3, 6, 13, 24, 48, 86, 153, 275, 479, 817, 1388, 2317, 3831, 6277, 10184, 16367, 26122, 41359, 65016, 101567, 157642, 243232, 373277, 569711, 865164, 1307587, 1967161, 2946379, 4394667, 6528255, 9660197, 14241627, 20920564, 30625556, 44683600, 64984798

OFFSET

0,3

CROSSREFS

Cf. A050985, A301596.

KEYWORD

allocated

nonn

AUTHOR

Vaclav Kotesovec, Mar 24 2018

STATUS

approved

editing

#1 by Vaclav Kotesovec at Sat Mar 24 07:55:00 EDT 2018

NAME

allocated for Vaclav Kotesovec

KEYWORD

allocated

STATUS

approved