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