A280727 Number of even divisors of Bell(n).

0, 0, 1, 0, 0, 4, 0, 0, 24, 0, 0, 8, 0, 0, 4, 0, 0, 20, 0, 0, 24, 0, 0, 8, 0, 0, 16, 0, 0, 32, 0, 0, 16, 0, 0, 48, 0, 0, 8, 0, 0, 32, 0, 0, 32, 0, 0, 64, 0, 0, 16, 0, 0, 32, 0, 0, 1152, 0, 0, 16, 0, 0, 4, 0, 0, 16, 0, 0, 16, 0, 0

Offset

0,6

Links

Amiram Eldar, Table of n, a(n) for n = 0..112

Formula

a(n) = A183063(A000110(n)).

Mathematica

f[n_]:=Block[{d=Divisors[BellB[n]]}, Count[EvenQ[d], True]]; Table[f[n], {n, 0, 60}]

Crossrefs

Cf. A000110, A183063, A280589, A280638.

Sequence in context: A019218 A125762 A286216 * A232357 A196302 A307186

Adjacent sequences: A280724 A280725 A280726 * A280728 A280729 A280730

Keyword

nonn

Author

Vincenzo Librandi, Jan 08 2017

Extensions

Offset corrected by Amiram Eldar, Nov 23 2019

Status

approved