OFFSET
0,5
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..1000
MATHEMATICA
Table[Floor[n!^(1/3)], {n, 0, 60}] (* Vincenzo Librandi, Feb 08 2013 *)
PROG
(Derive) PROG(y := [], n := 35, LOOP(IF(n = -1, RETURN y), y := ADJOIN(FLOOR(n!^(1/3)), y), n := n - 1))
(Magma) [Floor(Factorial(n)^(1/3)): n in [0..40]]; // Vincenzo Librandi, Feb 08 2013
(PARI) a(n) = sqrtnint(n!, 3); \\ Michel Marcus, Jan 11 2016
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Mohammad K. Azarian, Dec 22 2012
STATUS
approved