This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A192679 #7 Mar 30 2016 23:00:21
%S A192679 1,1,1,3,8,23,68,217,738,2662,10111,40281,167605,725850,3262107,
%T A192679 15175084,72908536,361068922,1839982245,9633358049,51746379547,
%U A192679 284824200163,1604632175859,9243292234736,54390064543757,326645626694244,2000556362576213,12485902607285611
%N A192679 Floor-Sqrt transform of ordered Bell numbers (A000670).
%F A192679 a(n) = floor(sqrt(orderedBell(n))).
%t A192679 FSFromExpSeries[f_,x_,n_] := Map[Floor[Sqrt[#]]&,CoefficientList[Series[f,{x,0,n}],x]Table[k!,{k,0,n}]]
%t A192679 FSFromExpSeries[1/(2-Exp[x]),x,40]
%t A192679 (* second program: *)
%t A192679 Fubini[n_, r_] := Sum[k!*Sum[(-1)^(i+k+r)*(i+r)^(n-r)/(i!*(k-i-r)!), {i, 0, k-r}], {k, r, n}]; Fubini[0, 1] = 1; a[n_] := Fubini[n, 1] // Sqrt // Floor; Table[a[n], {n, 0, 27}] (* _Jean-François Alcover_, Mar 30 2016 *)
%K A192679 nonn
%O A192679 0,4
%A A192679 _Emanuele Munarini_, Jul 07 2011