|
%I #10 May 03 2024 22:51:43
%S 1,2,3,5,8,15,29,58,122,267,607,1430,3482,8739,22555,59743,162115,
%T 449977,1275856,3690963,10882913,32674420,99806496,309930282,
%U 977731801,3131470488,10176415237,33537002728,112026106459
%N a(n) = sum(floor(sqrt(Bell(k))),k=0..n).
%t Table[Sum[Floor[Sqrt[BellB[k]]],{k,0,n}],{n,0,100}]
%t Accumulate[Floor[Sqrt[BellB[Range[0,30]]]]] (* _Harvey P. Dale_, May 03 2024 *)
%o (Maxima) makelist(sum(floor(sqrt(belln(k))),k,0,n),n,0,28);
%Y Cf. A000110, A192570.
%K nonn
%O 0,2
%A _Emanuele Munarini_, Jul 04 2011
|
