login
A280727
Number of even divisors of Bell(n).
2
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
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
KEYWORD
nonn
AUTHOR
Vincenzo Librandi, Jan 08 2017
EXTENSIONS
Offset corrected by Amiram Eldar, Nov 23 2019
STATUS
approved