|
%I #6 May 20 2021 12:21:13
%S 1,2,3,6,11,24,52,112,251,574,1347,3242,7996,20202,52245,138200,
%T 373640,1031702,2907207,8353892,24460864,72931232,221265823,682632254,
%U 2140211338,6814954528,22027143227,72228405060,240154754720
%N a(n) = Sum_{k=0..n} floor(sqrt(Bell(k)))*floor(sqrt(Bell(n-k))).
%t Table[Sum[Floor[Sqrt[BellB[k]]]Floor[Sqrt[BellB[n-k]]],{k,0,n}],{n,0,100}]
%o (Maxima) makelist(sum(floor(sqrt(belln(k)))*floor(sqrt(belln(n-k))),k,0,n),n,0,28);
%Y Cf. A192570, A192571, A192572.
%K nonn
%O 0,2
%A _Emanuele Munarini_, Jul 04 2011
|
