%I #17 Jan 29 2018 10:12:39
%S 1,1,1,2,4,10,26,70,200,602,1904,6317,21886,78911,295259,1143535,
%T 4574143,18859677,80014834,348776576,1559776268,7147792818,
%U 33526120082,160785623545,787685471322,3938427356614,20082117944245,104349745809073,552166953567228,2973510046012910,16286585271694955,90679869067935485
%N a(n) = floor(sqrt(n!)).
%H T. D. Noe, <a href="/A055226/b055226.txt">Table of n, a(n) for n=0..300</a>
%F a(n) = A000196(A000142(n)).
%t Table[Floor[Sqrt[n!]], {n, 0, 100}] (* _Emanuele Munarini_, Jul 07 2011 *)
%o (Maxima) makelist(floor(sqrt(n!)),n,0,24); /* _Emanuele Munarini_, Jul 07 2011 */
%o (PARI) a(n)=sqrtint(n!);
%Y Cf. A000142, A000196.
%K easy,nonn
%O 0,4
%A _Henry Bottomley_, Jun 21 2000
|