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

 

Logo

Please make a donation to keep the OEIS running. We are now in our 56th year. In the past year we added 10000 new sequences and reached almost 9000 citations (which often say "discovered thanks to the OEIS").
Other ways to donate

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A008484 Number of partitions of n into parts >= 4. 27
1, 0, 0, 0, 1, 1, 1, 1, 2, 2, 3, 3, 5, 5, 7, 8, 11, 12, 16, 18, 24, 27, 34, 39, 50, 57, 70, 81, 100, 115, 140, 161, 195, 225, 269, 311, 371, 427, 505, 583, 688, 791, 928, 1067, 1248, 1434, 1668, 1914, 2223, 2546, 2945, 3370, 3889, 4443, 5113, 5834, 6698 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,9

COMMENTS

a(n) is also the number of not necessarily connected 2-regular graphs on n-vertices with girth at least 4 (all such graphs are simple). The integer i corresponds to the i-cycle; addition of integers corresponds to disconnected union of cycles. - Jason Kimberley, Jan 2011 and Feb 2012

By removing a single part of size 4, an A026797 partition of n becomes an A008484 partition of n - 4. Hence this sequence is essentially the same as A026797. - Jason Kimberley, Feb 2012

Number of partitions of n+3 such that 3*(number of parts) is a part. - Clark Kimberling, Feb 27 2014

Let c(n) be the number of partitions of n such that both (number of parts) and 2*(number of parts) are parts; then c(n) = a(n-6) for n >= 6 and c(n) = 0 for n < 6. - Clark Kimberling, Mar 01 2014

a(n) is also the number of partitions of n for which three times the number of ones is twice the number of parts (conjectured). - George Beck, Aug 19 2017

LINKS

Giovanni Resta, Table of n, a(n) for n = 0..1000

Jason Kimberley, Not necessarily connected k-regular graphs with girth at least 4

Jason Kimberley, Index of sequences counting not necessarily connected k-regular simple graphs with girth at least g

FORMULA

G.f.: 1 / Product_{m>=4} (1 - x^m).

Euler transformation of A185114. - Jason Kimberley, Jan 30 2011

Given by p(n) - p(n-1) - p(n-2) + p(n-4) + p(n-5) - p(n-6) where p(n) = A000041(n). Generally, 1/Product_{i>=K} (1 - x^i) is given by p({A}), where {A} is defined over the coefficients of Product_{i=1..K-1} (1 - x^i). In this case, K=4, so (1-x)(1-x^2)(1-x^3) = 1 - x - x^2 + x^4 + x^5 - x^6, defining {A} as above. G.f.: 1 + Sum_{i>=1} (x^4i)/Product_{j=1..i}(1 - x^j). - Jon Perry, Jul 04 2004

a(n) ~ exp(Pi*sqrt(2*n/3)) * Pi^3 / (12*sqrt(2)*n^(5/2)). - Vaclav Kotesovec, Jun 02 2018

G.f.: exp(Sum_{k>=1} x^(4*k)/(k*(1 - x^k))). - Ilya Gutkovskiy, Aug 21 2018

MAPLE

series(1/product((1-x^i), i=4..65), x, 60); # end of program

ZL := [ B, {B=Set(Set(Z, card>=4))}, unlabeled ]: seq(combstruct[count](ZL, size=n), n=0..60); # Zerinvary Lajos, Mar 13 2007

MATHEMATICA

f[1, 1]=1; f[n_, k_]:= f[n, k] = If[n<0, 0, If[k>n, 0, If[k==n, 1, f[n, k +1] + f[n-k, k]]]]; Table[f[n, 4], {n, 60}] (* end of program *)

Drop[Table[Count[IntegerPartitions[n], p_ /; MemberQ[p, 3*Length[p]]], {n, 60}], 2]  (* Clark Kimberling, Feb 27 2014 *)

Table[Count[IntegerPartitions[n],

  p_ /; 3 Count[p, 1] == 2 Length[p]], {n, 0, 60}] (* George Beck Aug 19 2017 *)

CoefficientList[Series[1/QPochhammer[x^4, x], {x, 0, 60}], x] (* G. C. Greubel, Nov 03 2019 *)

PROG

(MAGMA) a:= func< n | NumberOfPartitions(n)-NumberOfPartitions(n-1)-NumberOfPartitions(n-2)+ NumberOfPartitions(n-4)+NumberOfPartitions(n-5)- NumberOfPartitions(n-6) >; [1, 0, 0, 0, 1, 1, 1] cat [ a(n) : n in [7..60]]; // Vincenzo Librandi, Aug 20 2017

(MAGMA) R<x>:=PowerSeriesRing(Integers(), 60); Coefficients(R!( 1/(&*[1-x^(m+4): m in [0..70]]) )); // G. C. Greubel, Nov 03 2019

(PARI) my(x='x+O('x^60)); Vec(1/prod(m=0, 70, 1-x^(m+4))) \\ G. C. Greubel, Nov 03 2019

(Sage)

def A008484_list(prec):

    P.<x> = PowerSeriesRing(ZZ, prec)

    return P( 1/product((1-x^(m+4)) for m in (0..70)) ).list()

A008484_list(60) # G. C. Greubel, Nov 03 2019

CROSSREFS

2-regular graphs with girth at least 4: A185114 (connected), A185224 (disconnected), this sequence (not necessarily connected).

Not necessarily connected 2-regular graphs with girth at least g [partitions into parts >= g]: A026807 (triangle); chosen g: A000041 (g=1 -- multigraphs with loops allowed), A002865 (g=2 -- multigraphs with loops forbidden), A008483 (g=3), this sequence (g=4), A185325(g=5), A185326 (g=6), A185327 (g=7), A185328 (g=8), A185329 (g=9).

Not necessarily connected 2-regular graphs with girth exactly g [partitions with smallest part g]: A026794 (triangle); chosen g: A002865 (g=2), A026796 (g=3), A026797 (g=4), A026798 (g=5), A026799 (g=6), A026800(g=7), A026801 (g=8), A026802 (g=9), A026803 (g=10).

Not necessarily connected k-regular simple graphs with girth at least 4: A185314 (any k), A185304 (triangle); specified degree k: this sequence (k=2), A185334 (k=3), A185344 (k=4), A185354 (k=5), A185364 (k=6).

Sequence in context: A126793 A069910 A026797 * A274146 A027189 A140829

Adjacent sequences:  A008481 A008482 A008483 * A008485 A008486 A008487

KEYWORD

nonn,easy

AUTHOR

T. Forbes (anthony.d.forbes(AT)googlemail.com)

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 November 30 04:01 EST 2020. Contains 338781 sequences. (Running on oeis4.)