The On-Line Encyclopedia of Integer Sequences (OEIS)

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

A339985

G.f.: g(x)^2 * g(x^2), where g(x) is the g.f. of A000081.
(history; published version)

#6 by Vaclav Kotesovec at Sat Dec 26 02:48:39 EST 2020

STATUS

editing

approved

#5 by Vaclav Kotesovec at Sat Dec 26 02:48:34 EST 2020

CROSSREFS

Cf. A000081, A217781, A339984.

STATUS

approved

editing

#4 by Vaclav Kotesovec at Fri Dec 25 17:25:46 EST 2020

STATUS

editing

approved

#3 by Vaclav Kotesovec at Fri Dec 25 17:25:40 EST 2020

LINKS

Vaclav Kotesovec, <a href="/A339985/b339985.txt">Table of n, a(n) for n = 0..2000</a>

#2 by Vaclav Kotesovec at Fri Dec 25 17:10:17 EST 2020

NAME

allocated for Vaclav KotesovecG.f.: g(x)^2 * g(x^2), where g(x) is the g.f. of A000081.

DATA

0, 0, 0, 0, 1, 2, 6, 14, 37, 90, 232, 584, 1512, 3906, 10246, 26984, 71766, 191852, 516400, 1396760, 3797435, 10367628, 28420466, 78183462, 215791426, 597368222, 1658233794, 4614679792, 12872125836, 35982713314, 100787606966, 282832173830, 795070060983

OFFSET

0,6

FORMULA

a(n) ~ 2 * A339986 * A051491^n / n^(3/2).

MATHEMATICA

max = 30; A000081 = Rest[Cases[ Import["https://oeis.org/A000081/b000081.txt", "Table"], {_, _}][[All, 2]]]; g81 = Sum[A000081[[k]]*x^k, {k, 1, max}]; g81x2 = Sum[A000081[[k]]*x^(2*k), {k, 1, max}]; CoefficientList[Series[g81^2 * g81x2, {x, 0, max}], x]

CROSSREFS

Cf. A217781, A339984.

KEYWORD

allocated

nonn

AUTHOR

Vaclav Kotesovec, Dec 25 2020

STATUS

approved

editing

#1 by Vaclav Kotesovec at Fri Dec 25 16:46:34 EST 2020

NAME

allocated for Vaclav Kotesovec

KEYWORD

allocated

STATUS

approved