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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A105485 Number of partitions of {1...n} containing 3 strings of 3 consecutive integers, where each string is counted within a block and a string of more than 3 consecutive integers are counted three at a time. 6
1, 2, 10, 44, 215, 1112, 6141, 35968, 222659, 1451770, 9939702, 71265036, 533744979, 4166533826, 33831424388, 285213338300, 2492259168784, 22538314947452, 210639529104328, 2031804667766532, 20203377516199587 (list; graph; refs; listen; history; text; internal format)
OFFSET

5,2

REFERENCES

A. O. Munagi, Set Partitions with Successions and Separations, Int. J. Math and Math. Sc. 2005, no. 3 (2005), 451-463.

LINKS

Table of n, a(n) for n=5..25.

A. O. Munagi, Set Partitions with Successions and Separations,IJMMS 2005:3 (2005),451-463.

FORMULA

a(n)=Sum(c(n, k, 3), k=1...n), where c(n, k, 3) is the case r=3 of c(n, k, r) given by c(n, k, r)=c(n-1, k-1, r)+(k-1)c(n-1, k, r)+c(n-2, k-1, r)+(k-1)c(n-2, k, r)+c(n-1, k, r-1)-c(n-2, k-1, r-1)-(k-1)c(n-2, k, r-1), r=0, 1, .., n-k-1, k=1, 2, .., n-2r, c(n, k, 0)=sum(binomial(n-j, j)*S2(n-j-1, k-1), j= 0..floor(n/2)).

EXAMPLE

a(6)=2 because the partitions of {1,...,6} with 3 strings of 3 consecutive integers are 12345/6, 1/23456.

MAPLE

c := proc(n, k, r) option remember ; local j ; if r =0 then add(binomial(n-j, j)*combinat[stirling2](n-j-1, k-1), j=0..floor(n/2)) ; else if r <0 or r > n-k-1 then RETURN(0) fi ; if n <1 then RETURN(0) fi ; if k <1 then RETURN(0) fi ; RETURN( c(n-1, k-1, r)+(k-1)*c(n-1, k, r)+c(n-2, k-1, r)+(k-1)*c(n-2, k, r) +c(n-1, k, r-1)-c(n-2, k-1, r-1)-(k-1)*c(n-2, k, r-1) ) ; fi ; end: A105485 := proc(n) local k ; add(c(n, k, 3), k=1..n) ; end: for n from 5 to 28 do printf("%d, ", A105485(n)) ; od ; # R. J. Mathar, Feb 20 2007

CROSSREFS

Cf. A105482, A105484, A105489, A105493.

Sequence in context: A100397 A084059 A084609 * A151313 A144896 A142983

Adjacent sequences:  A105482 A105483 A105484 * A105486 A105487 A105488

KEYWORD

nonn

AUTHOR

Augustine O. Munagi, Apr 10 2005

EXTENSIONS

More terms from R. J. Mathar, Feb 20 2007

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 February 23 08:00 EST 2019. Contains 320420 sequences. (Running on oeis4.)