A265022 Row sums of the Bell transform of the complementary Bell numbers (A264435).

1, 1, 0, -2, -1, 12, 20, -113, -430, 1278, 10821, -10234, -317048, -384915, 10352420, 42836466, -340348905, -3180089128, 8045616512, 219303897655, 301713947470, -14401913182942, -84197219028827, 824481606288554, 11426928115546036, -23133559937561187

Offset

0,4

Links

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

Peter Luschny, The Bell transform

Mathematica

Table[Sum[BellY[n, k, BellB[Range[n] - 1, -1]], {k, 0, n}], {n, 0, 30}] (* Vladimir Reshetnikov, Nov 09 2016 *)

Prog

(SageMath) # uses[bell_transform from A264428]
def A265022_list(len):
    uno = [1]*len
    complementary_bell_numbers = [sum((-1)^n*b for (n, b) in enumerate (bell_transform(n, uno))) for n in range(len)]
    return [sum(bell_transform(n, complementary_bell_numbers)) for n in range(len)]
A265022_list(26)

Crossrefs

Cf. A000587 (complementary Bell numbers), A264428, A264435, A265023, A265024.

Sequence in context: A380051 A045873 A371637 * A110060 A061081 A007368

Adjacent sequences: A265019 A265020 A265021 * A265023 A265024 A265025

Keyword

sign

Author

Peter Luschny, Dec 01 2015

Status

approved