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

 

Logo

Annual Appeal: Please make a donation to keep the OEIS running. In 2018 we replaced the server with a faster one, added 20000 new sequences, and reached 7000 citations (often saying "discovered thanks to the OEIS").
Other ways to donate

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A008795 Molien series for 3-dimensional representation of dihedral group D_6 of order 6. 19

%I

%S 1,0,3,1,6,3,10,6,15,10,21,15,28,21,36,28,45,36,55,45,66,55,78,66,91,

%T 78,105,91,120,105,136,120,153,136,171,153,190,171,210,190,231,210,

%U 253,231,276,253,300,276,325,300

%N Molien series for 3-dimensional representation of dihedral group D_6 of order 6.

%C a(n-3) is the number of ordered triples of positive integers which are the side lengths of a nondegenerate triangle of perimeter n. - _Rob Pratt_, Jul 12 2004

%C a(n) is the number of ways to distribute n identical objects into 3 distinguishable bins so that no bin contains an absolute majority of objects. - _Geoffrey Critzer_, Mar 17 2010

%C From _Omar E. Pol_, Feb 05 2012 (Start:)

%C Also terms of A000217 and A000217-shifted interleaved.

%C Also 0 together with this sequence give the first row of the square array A194801. (End)

%C a(n) is the number of coins left after packing 3-curves coins patterns into fountain of coins base n. Refer to A005169: "A fountain is formed by starting with a row of coins, then stacking additional coins on top so that each new coin touches two in the previous row". See illustration in links. - _Kival Ngaokrajang_, Oct 12 2013

%H Vincenzo Librandi, <a href="/A008795/b008795.txt">Table of n, a(n) for n = 0..10000</a>

%H Kival Ngaokrajang, <a href="/A008795/a008795.pdf">Illustration of initial terms</a>

%H Ira Rosenholtz, <a href="https://www.jstor.org/stable/2690803">Problem 1584</a>, Mathematics Magazine, Vol. 72 (1999), p. 408.

%H <a href="/index/Gre#groups">Index entries for sequences related to groups</a>

%H <a href="/index/Mo#Molien">Index entries for Molien series</a>

%H <a href="/index/Rec#order_05">Index entries for linear recurrences with constant coefficients</a>, signature (1,2,-2,-1,1).

%F The signed version with g.f. (1-x^3)/(1-x^2)^3 is the inverse binomial transform of A084861. - _Paul Barry_, Jun 12 2003

%F a(n) = binomial(n/2+2, 2) for n even, binomial((n+1)/2, 2) for n odd. - _Rob Pratt_, Jul 12 2004

%F a(n-2) interleaves n(n+1)/2 and n(n-1)/2. G.f.: (1-x+x^2)/((1+x)^2(1-x)^3)); a(n)=(2n^2+6n+7)/16+3(2n+3)(-1)^n/16. - _Paul Barry_, Jul 29 2004

%F a(n) = n*(n+1)/2, n = +- 1, +- 2... - _Omar E. Pol_, Feb 05 2012

%F From _Michael Somos_, Feb 01 2018: (Start)

%F Euler transform of length 6 sequence [0, 3, 1, 0, 0, -1].

%F G.f.: (1 + x^3) / (1 - x^2)^3.

%F a(n) = a(-3-n) for all in Z. (End)

%p a:= n-> binomial(n/2+2-3*irem(n, 2)/2, 2):

%p seq(a(n), n=0..10^2); # _Muniru A Asiru_, Feb 01 2018

%t Table[If[EvenQ[n], Binomial[n/2+2, 2], Binomial[(n+1)/2, 2]], {n, 0, 49}]

%t CoefficientList[ Series[(1 + x^3)/(1 - x^2)^3, {x, 0, 50}], x] (* _Robert G. Wilson v_, Feb 05 2012 *)

%t a[ n_] := Binomial[ Quotient[n, 2] + 2 - Mod[n, 2], 2]; (* _Michael Somos_, Feb 01 2018 *)

%t a[ n_] := With[ {m = If[ n < 0, -3 - n, n]}, SeriesCoefficient[ (1 - x + x^2) / ((1 - x)^3 (1 + x)^2), {x, 0, m}]]; (* _Michael Somos_, Feb 01 2018 *)

%t LinearRecurrence[{1, 2, -2, -1, 1}, {1, 0, 3, 1, 6}, 60] (* _Robert G. Wilson v_, Feb 01 2018 *)

%o (MAGMA) [(2*n^2+6*n+7)/16+3*(2*n+3)*(-1)^n/16: n in [0..60] ]; // _Vincenzo Librandi_, Aug 21 2011

%o (PARI) a(n)=(2*n^2+6*n+7)/16+3*(2*n+3)*(-1)^n/16 \\ _Charles R Greathouse IV_, Oct 22 2015

%o (PARI) {a(n) = binomial(n\2 + 2 - n%2, 2)}; /* _Michael Somos_, Feb 01 2018 */

%o (GAP) a := [1,0,3,1,6];; for n in [6..10^4] do a[n] := a[n-1] + 2*a[n-2] -2*a[n-3] -a[n-4] +a[n-5]; od; a; # _Muniru A Asiru_, Feb 01 2018

%Y Cf. A005044.

%Y First differences of A053307.

%K nonn,easy

%O 0,3

%A _N. J. A. Sloane_

%E Definition clarified by _N. J. A. Sloane_, Feb 02 2018

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 December 15 13:35 EST 2018. Contains 318149 sequences. (Running on oeis4.)