login
Sum of odd divisors of Bell(n).
3

%I #14 Nov 23 2019 04:05:24

%S 1,1,1,6,24,14,240,878,1872,34560,143840,542880,4421376,27644438,

%T 97250652,1666163520,10523628456,30946448412,779556556800,

%U 5873176163328,15288823623792,633207380826720,6399554302310400,22325251164046200,594616643557427040,5146116019164933120

%N Sum of odd divisors of Bell(n).

%H Amiram Eldar, <a href="/A280589/b280589.txt">Table of n, a(n) for n = 0..104</a> (terms 1..70 from Vincenzo Librandi)

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

%t a[n_]:=Select[Divisors[BellB[n]], OddQ]//Total; Table[a[n], {n, 0, 40}]

%Y Cf. A000110, A000593, A280638.

%K nonn

%O 0,4

%A _Vincenzo Librandi_, Jan 07 2017

%E Offset 0 and a(0) added by _Amiram Eldar_, Nov 23 2019