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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A069905 Number of partitions of n into 3 positive parts. 19
0, 0, 0, 1, 1, 2, 3, 4, 5, 7, 8, 10, 12, 14, 16, 19, 21, 24, 27, 30, 33, 37, 40, 44, 48, 52, 56, 61, 65, 70, 75, 80, 85, 91, 96, 102, 108, 114, 120, 127, 133, 140, 147, 154, 161, 169, 176, 184, 192, 200, 208, 217, 225, 234, 243, 252, 261, 271, 280, 290, 300, 310, 320, 331, 341 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,6

COMMENTS

Number of binary bracelets of n beads, 3 of them 0. For n>=3 a(n-3) is the number of binary bracelets of n beads, 3 of them 0, with 00 prohibited. - Washington Bomfim, Aug 27 2008

Also number of partitions of n-3 into parts 1, 2, and 3. - Joerg Arndt, Sep 05 2013

Number of incongruent triangles with integer sides that have perimeter 2n-3 (see the Jordan et al. link). - Freddy Barrera, Aug 18 2018

REFERENCES

R. Honsberger, Mathematical Gems III, Math. Assoc. Amer., 1985, p. 39.

D. E. Knuth, The Art of Computer Programming, vol. 4A, Combinatorial Algorithms, Section 7.2.1.4, p. 410.

D. E. Knuth, The Art of Computer Programming, vol. 4,fascicle 3, Generating All Combinations and Partitions, Section 7.2.1.4., p. 56, exercise 31.

LINKS

Washington Bomfim, Table of n, a(n) for n = 0..10000

Roland Bacher, P. De La Harpe, Conjugacy growth series of some infinitely generated groups, hal-01285685v2, 2016.

R. Honsberger, Mathematical Gems III, Math. Assoc. Amer., 1985, p. 39. [Annotated scanned copy]

J. H. Jordan, R. Walch and R. J. Wisner, Triangles with integer sides, Amer. Math. Monthly, 86 (1979), 686-689.

Index entries for linear recurrences with constant coefficients, signature (1,1,0,-1,-1,1).

FORMULA

G.f.: x^3/((1-x)*(1-x^2)*(1-x^3)).

a(n) = round(n^2/12).

a(n) = floor((n^2+6)/12). - Washington Bomfim, Jul 03 2012

a(-n) = a(n). - Michael Somos, Sep 04 2013

a(n) = a(n-1) + A008615(n-1) for n > 0. - Reinhard Zumkeller, Apr 28 2014

Let n = 6k + m. Then a(n) = n^2/12 + a(m) - m^2/12. Also, a(n) = 3*k^2 + m*k + a(m). Example: a(35) = a(6*5 + 5) = 35^2/12 + a(5) - 5^2/12 = 102 = 3*5^2 + 5*5 + a(5). - Gregory L. Simay, Oct 13 2015

a(n) = a(n-1)+a(n-2)-a(n-4)-a(n-5)+a(n-6), n>5. - Wesley Ivan Hurt, Oct 16 2015

a(n) = A008284(n,3). - Robert A. Russell, May 13 2018

a(n) = A005044(2*n) = A005044(2*n - 3). - Freddy Barrera, Aug 18 2018

EXAMPLE

x^3 + x^4 + 2*x^5 + 3*x^6 + 4*x^7 + 5*x^8 + 7*x^9 + 8*x^10 + 10*x^11 + ...

MAPLE

A069905 := n->round(n^2/12): seq(A069905(n), n=0..100);

MATHEMATICA

a[ n_] := Round[ n^2 / 12] (* Michael Somos, Sep 04 2013 *)

CoefficientList[Series[x^3 / ((1 - x) (1 - x^2) (1 - x^3)), {x, 0, 80}], x] (* Vincenzo Librandi, Oct 14 2015 *)

Drop[LinearRecurrence[{1, 1, 0, -1, -1, 1}, Append[Table[0, {5}], 1], 103], 2] (* Robert A. Russell, May 17 2018 *)

PROG

(PARI) a(n) = floor((n^2+6)/12); /* Washington Bomfim, Jul 03 2012 */

(Haskell)

a069905 n = a069905_list !! n

a069905_list = scanl (+) 0 a008615_list

-- Reinhard Zumkeller, Apr 28 2014

(MAGMA) [(n^2+6) div 12: n in [0..100]]; // Vincenzo Librandi, Oct 14 2015

(PARI) x='x+O('x^50); concat([0, 0, 0], Vec(x^3/((1-x)*(1-x^2)*(1-x^3)))) \\ Altug Alkan, Oct 14 2015

(GAP) List([0..70], n->NrPartitions(n, 3)); # Muniru A Asiru, May 17 2018

CROSSREFS

Another version of A001399, which is the main entry for this sequence.

Cf. A008615, A026810 (4 positive parts).

Sequence in context: A034092 A211540 A001399 * A008761 A008760 A008759

Adjacent sequences:  A069902 A069903 A069904 * A069906 A069907 A069908

KEYWORD

nonn,easy,changed

AUTHOR

N. J. A. Sloane, May 04 2002

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 | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified August 21 10:21 EDT 2018. Contains 313937 sequences. (Running on oeis4.)