%I #6 Mar 30 2012 18:55:30
%S 1,1,1,2,3,7,14,29,64,145,340,823,2052,5257,13816,37188,102372,287862,
%T 825879,2415107,7191950,21791507,67132076,210123786,667801519,
%U 2153738687,7044944749,23360587491,78489103731
%N a(n) = floor(sqrt(Bell(n)))
%t Table[Floor[Sqrt[BellB[n]]],{n,0,100}]
%o (Maxima) makelist(floor(sqrt(belln(n))),n,0,28);
%Y Cf. A000110.
%K nonn
%O 0,4
%A _Emanuele Munarini_, Jul 04 2011
|