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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A261492 Number of partitions of subsets of {1,...,n}, where consecutive integers are required to be in the same part and the elements of {1, n} are required to be in the same part if they are both members of a subset. 5
1, 2, 4, 8, 18, 42, 102, 254, 648, 1688, 4486, 12146, 33474, 93810, 267112, 772124, 2264214, 6731254, 20275118, 61841886, 190914356, 596256556, 1883148834, 6012081046, 19395355770, 63205986042, 208003526516, 691048272152, 2317140259834, 7839542054210 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,2

LINKS

Alois P. Heinz, Table of n, a(n) for n = 0..1000

FORMULA

a(n) = 2 * Sum_{j=0..floor(n/2)} C(n,2*j) * A000110(j) for n>0, a(0) = 1.

EXAMPLE

a(3) = 8: {}, 1, 2, 3, 12, 23, 13, 123.

a(4) = 18: {}, 1, 2, 3, 4, 12, 13, 1|3, 14, 23, 24, 2|4, 34, 123, 124, 134, 234, 1234.

MAPLE

with(combinat):

a:= n-> `if`(n=0, 1, 2*add(binomial(n, 2*j)*bell(j), j=0..n/2)):

seq(a(n), n=0..35);

MATHEMATICA

a[n_] := If[n==0, 1, 2*Sum[Binomial[n, 2*j]*BellB[j], {j, 0, n/2}]]; Table[ a[n], {n, 0, 35}] (* Jean-Fran├žois Alcover, Feb 22 2017, translated from Maple *)

CROSSREFS

Cf. A000110, A247100, A261134, A261041, A261489.

Sequence in context: A026699 A182780 A078678 * A027056 A024428 A049075

Adjacent sequences:  A261489 A261490 A261491 * A261493 A261494 A261495

KEYWORD

nonn

AUTHOR

Alois P. Heinz, Aug 21 2015

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 February 22 11:16 EST 2018. Contains 299452 sequences. (Running on oeis4.)