A287014 - OEIS

%I #10 Sep 08 2022 08:46:19

%S 1,1,10,101,1111,110100,11001011,1101101101,1000000101100,

%T 101001010011011,11100010100000111,10100101101010101010,

%U 10000000100101101011101,1101001011101001000010101,1011011000001110010001111010,1010010011011100100010111010001

%N Bell numbers written in base 2.

%H Robert Israel, <a href="/A287014/b287014.txt">Table of n, a(n) for n = 0..214</a>

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

%p seq(convert(combinat:-bell(n),binary),n=0..20); # _Robert Israel_, Aug 12 2018

%t Table[FromDigits[IntegerDigits[BellB[n], 2]], {n, 0, 30}]

%o (Magma) [Seqint(Intseq(Bell(n), 2)): n in [0..20]];

%Y Cf. A000110, A004685, A007088,

%K nonn,base

%O 0,3

%A _Vincenzo Librandi_, May 22 2017