[go: up one dir, main page]

login
A214083
a(n) = floor(n!^(1/3)).
6
1, 1, 1, 1, 2, 4, 8, 17, 34, 71, 153, 341, 782, 1839, 4434, 10935, 27555, 70852, 185686, 495486, 1344956, 3710632, 10397338, 29568648, 85290741, 249391641, 738821756, 2216465268, 6730493989, 20678209929, 64252006059, 201840008711, 640802084315
OFFSET
0,5
LINKS
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
KEYWORD
easy,nonn
AUTHOR
Mohammad K. Azarian, Dec 22 2012
STATUS
approved