A214083 a(n) = floor(n!^(1/3)).

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

Author

Mohammad K. Azarian, Dec 22 2012

Keywords

• easy
• nonn

Links

• Vincenzo Librandi, Table of n, a(n) for n = 0..1000

Crossrefs

Cf. A214078, A214079, A214080, A214081, A214083, A055228, A055226.

Programs

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

Mathematica

Table[Floor[n!^(1/3)], {n, 0, 60}] (* Vincenzo Librandi, Feb 08 2013 *)

PARI

a(n) = sqrtnint(n!,3); \\ Michel Marcus, Jan 11 2016