login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A035454 Number of partitions of n into parts 8k+2 or 8k+3. 1
0, 1, 1, 1, 1, 2, 1, 2, 2, 3, 3, 4, 4, 5, 5, 6, 6, 8, 8, 10, 11, 13, 13, 16, 16, 19, 20, 23, 25, 29, 30, 35, 37, 41, 44, 50, 53, 60, 64, 72, 76, 85, 90, 100, 107, 118, 126, 140, 148, 163, 174, 190, 203, 223, 237, 260, 277, 301, 321, 349, 371, 403, 430, 466, 496, 537 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,6

LINKS

Robert Israel, Table of n, a(n) for n = 1..10000

FORMULA

a(n) ~ exp(Pi*sqrt(n/6)) * Gamma(1/4) * Gamma(3/8) / (8 * 2^(5/16) * 3^(1/16) * Pi^(11/8) * n^(9/16)). - Vaclav Kotesovec, Aug 26 2015

G.f.: Product_{k>=0} 1/((1-x^(8*k+2))*(1-x^(8*k+3))). - Robert Israel, Dec 11 2018

MAPLE

nmax:= 100:

g:= mul(1/(1-x^(8*k+2))/(1-x^(8*k+3)), k=0..(nmax-2)/8):

S:= series(g, x, nmax+1):

seq(coeff(S, x, j), j=1..nmax); # Robert Israel, Dec 11 2018

MATHEMATICA

nmax = 100; Rest[CoefficientList[Series[Product[1/((1 - x^(8k+2))*(1 - x^(8k+3))), {k, 0, nmax}], {x, 0, nmax}], x]] (* Vaclav Kotesovec, Aug 26 2015 *)

nmax = 60; kmax = nmax/8;

s = Flatten[{Range[0, kmax]*8 + 2}~Join~{Range[0, kmax]*8 + 3}];

Table[Count[IntegerPartitions@n, x_ /; SubsetQ[s, x]], {n, 1, nmax}] (* Robert Price, Aug 03 2020 *)

CROSSREFS

Cf. A035685.

Sequence in context: A242745 A285578 A029168 * A161228 A214130 A029172

Adjacent sequences:  A035451 A035452 A035453 * A035455 A035456 A035457

KEYWORD

nonn

AUTHOR

Olivier Gérard

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 4 10:06 EDT 2021. Contains 346447 sequences. (Running on oeis4.)