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.

1, 2, 10, 44, 215, 1112, 6141, 35968, 222659, 1451770, 9939702, 71265036, 533744979, 4166533826, 33831424388, 285213338300, 2492259168784, 22538314947452, 210639529104328, 2031804667766532, 20203377516199587, 206861906112012524, 2178715175981722659

Offset: 5

Author

Augustine O. Munagi, Apr 10 2005

Keywords

• nonn

Examples

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

Links

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

Crossrefs

Cf. A105482, A105484, A105489, A105493.

Programs

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

Mathematica

S2[_, -1] = 0;
S2[n_, k_] = StirlingS2[n, k];
c[n_, k_, r_] := c[n, k, r] = Which[r == 0, Sum[Binomial[n - j, j]*S2[n - j - 1, k - 1], {j, 0, Floor[n/2]}], r < 0 || r > n - k - 1, 0, n < 1, 0, k < 1, 0, True, 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]];
A105485[n_] := Sum[c[n, k, 3], {k, 1, n}];
Table[A105485[n], {n, 5, 28}] (* Jean-François Alcover, May 10 2023, after R. J. Mathar *)

Formula

a(n) = Sum_{k=1..n} c(n, k, 3), 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_{j= 0..floor(n/2)} binomial(n-j, j)*S2(n-j-1, k-1).

Extensions

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