login
Bell numbers written backwards.
4

%I #24 Sep 08 2022 08:44:32

%S 1,1,2,5,51,25,302,778,414,74112,579511,75876,7953124,73444672,

%T 223998091,5458592831,74124108401,40896846828,951608670286,

%U 7505022472385,27353285142715,157651618968474,3237448375176054,64348055850025144,982508492968859544

%N Bell numbers written backwards.

%H Alois P. Heinz, <a href="/A004098/b004098.txt">Table of n, a(n) for n = 0..576</a>

%F a(n) = A004086(A000110(n)). - _Michel Marcus_, Apr 05 2014

%p b:= proc(n) option remember; `if`(n=0, 1,

%p add(b(n-j)*binomial(n-1, j-1), j=1..n))

%p end:

%p a:= n-> (s-> parse(cat(seq(s[-i], i=1..length(s)))))(""||(b(n))):

%p seq(a(n), n=0..30); # _Alois P. Heinz_, Apr 01 2018

%t FromDigits[Reverse[IntegerDigits[#]]]&/@BellB[Range[0,30]] (* _Harvey P. Dale_, Feb 01 2012 *)

%o (Magma) [Seqint(Reverse(Intseq(Bell(n)))): n in [0..30]]; // _Vincenzo Librandi_, Jan 30 2015

%Y Cf. A000110, A004086.

%K nonn,base

%O 0,3

%A _N. J. A. Sloane_

%E More terms from _Eric M. Schmidt_, Apr 04 2014