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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A291553 Column 3 of A060244. 2
0, 0, 1, 2, 4, 8, 13, 22, 35, 54, 81, 121, 174, 250, 352, 491, 675, 924, 1246, 1674, 2226, 2944, 3862, 5046, 6541, 8449, 10846, 13869, 17641, 22365, 28214, 35485, 44443, 55494, 69036, 85650, 105894, 130594, 160561, 196923, 240847, 293907, 357722, 434477, 526448 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,4

LINKS

Vaclav Kotesovec, Table of n, a(n) for n = 1..10000

FORMULA

G.f.: x^3 * (1 + x - x^4) / ((1 - x)^2 * (1 + x) * (1 + x + x^2)) * Product_{k>=1} 1/(1 - x^k).

a(n) = Sum_{k=3..n} (floor(k/2) - floor((k-1)/3)) * A000041(n-k).

a(n) ~ exp(Pi*sqrt(2*n/3)) / (4*sqrt(3)*Pi^2).

a(n) ~ n * A000041(n) / Pi^2.

MATHEMATICA

nmax = 50; col = 3; Flatten[{0, 0, CoefficientList[Coefficient[Normal[Series[Product[Product[1/(1 - x^(i - j)*y^j), {j, 0, i}], {i, 2, nmax + col}], {x, 0, col}, {y, 0, nmax}]], x^col], y]}]

nmax = 50; Rest[CoefficientList[Series[(x^3 * (1 + x - x^4))/((1-x)^2 * (1+x) * (1 + x + x^2)) / QPochhammer[x], {x, 0, nmax}], x]]

Table[Sum[(Floor[k/2] - Floor[(k-1)/3]) * PartitionsP[n-k], {k, 3, n}], {n, 1, 50}]

CROSSREFS

Cf. A060244, A024786.

Sequence in context: A078157 A144119 A207033 * A244985 A164413 A164441

Adjacent sequences:  A291550 A291551 A291552 * A291554 A291555 A291556

KEYWORD

nonn

AUTHOR

Vaclav Kotesovec, Aug 26 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 May 20 20:16 EDT 2019. Contains 323426 sequences. (Running on oeis4.)