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

 

Logo

Many excellent designs for a new banner were submitted. We will use the best of them in rotation.

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A193638 Number of permutations of the multiset {1,1,1,2,2,2,3,3,3,...,n,n,n} with no two consecutive terms equal. 2
1, 0, 2, 174, 41304, 19606320, 16438575600, 22278418248240, 45718006789687680, 135143407245840698880, 553269523327347306412800, 3039044104423605600086688000, 21819823367694505460651694873600, 200345011881335747639978525387827200 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,3

LINKS

Andrew Woods, Table of n, a(n) for n = 0..101

FORMULA

a(n) = A190826(n) * n! for n >= 1.

EXAMPLE

a(2) = 2 because there are two permutations of {1,1,1,2,2,2} avoiding equal consecutive terms: 121212 and 212121.

MAPLE

a:= proc(n) option remember; `if`(n<3, (n-1)*(3*n-2)/2,

      n*((3*n-1)*(3*n^2-5*n+4) *a(n-1)

      +2*(n-1)*(6*n^2-9*n-1) *a(n-2)

      -4*n*(n-1)*(n-2) *a(n-3))/(2*n-2))

    end:

seq(a(n), n=0..20);  # Alois P. Heinz, Jun 05 2013

PROG

(Maxima) a(n):= (1/6^n)*sum((n+j)!*sum(binomial(n, k)*binomial(2*k, j)* (-3)^(n+k-j), k, ceiling(j/2), n), j, 0, 2*n); [Tani Akinari, Sep 23 2012]

CROSSREFS

Cf. A114938 = similar with two copies instead of three.

Cf. A193624 = arrangements of triplets with no adjacent siblings; A193624(n) = 6^n * a(n).

Sequence in context: A051030 A139935 A172231 * A215123 A219724 A103427

Adjacent sequences:  A193635 A193636 A193637 * A193639 A193640 A193641

KEYWORD

nonn

AUTHOR

Andrew Woods, Aug 01 2011

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement .

Last modified April 24 03:45 EDT 2014. Contains 240947 sequences.