login
Number of even divisors of Bell(n).
2

%I #12 Nov 23 2019 04:05:36

%S 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,

%T 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,

%U 0,4,0,0,16,0,0,16,0,0

%N Number of even divisors of Bell(n).

%H Amiram Eldar, <a href="/A280727/b280727.txt">Table of n, a(n) for n = 0..112</a>

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

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

%Y Cf. A000110, A183063, A280589, A280638.

%K nonn

%O 0,6

%A _Vincenzo Librandi_, Jan 08 2017

%E Offset corrected by _Amiram Eldar_, Nov 23 2019