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

Author

Vincenzo Librandi, Jan 08 2017

Keywords

• nonn

Links

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

Crossrefs

Cf. A000110, A183063, A280589, A280638.

Programs

Mathematica

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

Formula

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

Extensions

Offset corrected by Amiram Eldar, Nov 23 2019