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