login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 59th year, we have over 358,000 sequences, and we’ve crossed 10,300 citations (which often say “discovered thanks to the OEIS”).

Other ways to Give
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A102286 Total number of odd blocks in all partitions of n-set. 5
1, 2, 7, 24, 96, 418, 1989, 10216, 56275, 330424, 2057672, 13532060, 93633021, 679473694, 5156626991, 40824399712, 336406367196, 2879570703510, 25557841113625, 234822774979908, 2230107923204443, 21861817965483016, 220940261740238140, 2299258336094622008 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

COMMENTS

a(n) is also the number of set partitions of {1,2,...,n+1} in which the element 1 is in an even size block. - Geoffrey Critzer, Apr 02 2013

LINKS

Alois P. Heinz, Table of n, a(n) for n = 1..575

FORMULA

E.g.f: sinh(x)*exp(exp(x)-1).

a(n) = Sum_{k=0..floor((n-1)/2)} binomial(n,2*k+1) * Bell(n-2*k-1). - Ilya Gutkovskiy, Apr 10 2022

EXAMPLE

a(3)=7 because we have (123), (1)/23, 12/(3), 13/(2), (1)/(2)/(3); the odd blocks are shown between parentheses.

MAPLE

G:=sinh(x)*exp(exp(x)-1): Gser:=series(G, x=0, 30): seq(n!*coeff(Gser, x^n), n=1..25); # Emeric Deutsch

# second Maple program:

with(combinat):

b:= proc(n, i) option remember; `if`(n=0 or i=1, [1, n],

add((p->(p+[0, `if`(i::odd, j, 0)*p[1]]))(

b(n-i*j, i-1))*multinomial(n, n-i*j, i$j)/j!, j=0..n/i))

end:

a:= n-> b(n$2)[2]:

seq(a(n), n=1..30); # Alois P. Heinz, Sep 16 2015

MATHEMATICA

Range[0, nn]! CoefficientList[

D[Series[Exp[ (Cosh[x] - 1) + y Sinh[x]], {x, 0, nn}], y] /. y -> 1, x] (* Geoffrey Critzer, Aug 28 2012 *)

With[{nn=30}, CoefficientList[Series[Sinh[x]Exp[Exp[x]-1], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Jul 03 2021 *)

CROSSREFS

Cf. A000110, A000296, A005493.

Sequence in context: A150423 A150424 A150425 * A150426 A150427 A150428

Adjacent sequences: A102283 A102284 A102285 * A102287 A102288 A102289

KEYWORD

easy,nonn

AUTHOR

Vladeta Jovovic, Feb 19 2005

EXTENSIONS

More terms from Emeric Deutsch, Mar 04 2005

STATUS

approved

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified November 29 16:20 EST 2022. Contains 358431 sequences. (Running on oeis4.)