|
| |
|
|
A008483
|
|
Number of partitions of n into parts >= 3.
|
|
67
|
|
|
|
1, 0, 0, 1, 1, 1, 2, 2, 3, 4, 5, 6, 9, 10, 13, 17, 21, 25, 33, 39, 49, 60, 73, 88, 110, 130, 158, 191, 230, 273, 331, 391, 468, 556, 660, 779, 927, 1087, 1284, 1510, 1775, 2075, 2438, 2842, 3323, 3872, 4510
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
0,7
|
|
|
COMMENTS
|
a(0) = 1 because the empty partition vacuously has each part >= 3. - Jason Kimberley, Jan 11 2011
Number of partitions where the largest part occurs at least three times. - Joerg Arndt, Apr 17 2011
By removing a single part of size 3, an A026796 partition of n becomes an A008483 partition of n - 3.
For n >= 3 the sequence counts the isomorphism classes of authentication codes AC(2,n,n) with perfect secrecy and with largest probability 0.5 that an interceptor could deceive with a substituted message. - E. Keith Lloyd (ekl(AT)soton.ac.uk).
For n >= 1, also the number of regular graphs of degree 2. - Mitch Harris, Jun 22 2005
(1 + 0*x + 0*x^2 + x^3 + x^4 + x^5 + 2*x^6 + ...) = (1 + x + 2*x^2 + 3*x^3 + 5*x^4 + ...) * 1 / (1 + x + 2*x^2 + 2*x^3 + 3*x^4 + 3*x^5 + 4*x^6 + 4*x^7 + ...). - Gary W. Adamson, Jun 30 2009
Because the triangle A051031 is symmetric, a(n) is also the number of (n-3)-regular graphs on n vertices. Since the disconnected (n-3)-regular graph with minimum order is 2K_{n-2}, then for n > 4 there are no disconnected (n-3)-regular graphs on n vertices. Therefore for n > 4, a(n) is also the number of connected (n-3)-regular graphs on n vertices. - Jason Kimberley, Oct 05 2009
Number of partitions of n+2 such that 2*(number of parts) is a part. - Clark Kimberling, Feb 27 2014
For n >= 1, a(n) is the number of (1,1)-separable partitions of n, as defined at A239482. For example, the (1,1)-separable partitions of 11 are [10,1], [7,1,2,1], [6,1,3,1], [5,1,4,1], 4,1,2,1,2,1], [3,1,3,1,2,1], so that a(11) = 6. - Clark Kimberling, Mar 21 2014
|
|
|
LINKS
|
|
|
|
FORMULA
|
a(n) = p(n) - p(n - 1) - p(n - 2) + p(n - 3) where p(n) is the number of unrestricted partitions of n into positive parts (A000041).
G.f.: Product_{m>=3} 1/(1-x^m).
G.f.: (Sum_{n>=0} x^(3*n)) / (Product_{k=1..n} (1 - x^k)). - Joerg Arndt, Apr 17 2011
a(n) ~ Pi^2 * exp(Pi*sqrt(2*n/3)) / (12*sqrt(3)*n^2). - Vaclav Kotesovec, Feb 26 2015
G.f.: exp(Sum_{k>=1} x^(3*k)/(k*(1 - x^k))). - Ilya Gutkovskiy, Aug 21 2018
|
|
|
MAPLE
|
series(1/product((1-x^i), i=3..50), x, 51);
ZL := [ B, {B=Set(Set(Z, card>=3))}, unlabeled ]: seq(combstruct[count](ZL, size=n), n=0..46); # Zerinvary Lajos, Mar 13 2007
with(combstruct):ZL2:=[S, {S=Set(Cycle(Z, card>2))}, unlabeled]:seq(count(ZL2, size=n), n=0..46); # Zerinvary Lajos, Sep 24 2007
with(combstruct):a:=proc(m) [A, {A=Set(Cycle(Z, card>m))}, unlabeled]; end: A008483:=a(2):seq(count(A008483, size=n), n=0..46); # Zerinvary Lajos, Oct 02 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, 3], {n, 49}] (* Robert G. Wilson v, Jan 31 2011 *)
Rest[Table[Count[IntegerPartitions[n], p_ /; MemberQ[p, 2*Length[p]]], {n, 50}]] (* Clark Kimberling, Feb 27 2014 *)
|
|
|
PROG
|
(Magma) p := NumberOfPartitions; A008483 := func< n | n eq 0 select 1 else n le 2 select 0 else p(n) - p(n-1) - p(n-2) + p(n-3)>; // Jason Kimberley, Jan 11 2011
|
|
|
CROSSREFS
|
2-regular simple graphs: A179184 (connected), A165652 (disconnected), this sequence (not necessarily connected).
2-regular not necessarily connected graphs without multiple edges [partitions without 2 as a part]: this sequence (no loops allowed [without 1 as a part]), A027336 (loops allowed [parts may be 1]).
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), this sequence (g=3), A008484 (g=4), A185325 (g=5), A185326 (g=6), A185327 (g=7), A185328 (g=8), A185329 (g=9).
|
|
|
KEYWORD
|
nonn,easy
|
|
|
AUTHOR
|
T. Forbes (anthony.d.forbes(AT)googlemail.com)
|
|
|
STATUS
|
approved
|
| |
|
|
