login
A214081
a(n) = floor( n^(1/3) )!.
5
1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24
OFFSET
0,9
LINKS
FORMULA
Sum_{n>=0} 1/a(n) = 10*e. - Amiram Eldar, Aug 15 2022
a(n) = A000142(A048766(n)). - Michel Marcus, Aug 15 2022
MATHEMATICA
Table[Floor[n^(1/3)]!, {n, 0, 100}] (* T. D. Noe, Dec 23 2012 *)
Floor[CubeRoot[Range[0, 90]]]! (* Harvey P. Dale, Jan 15 2024 *)
PROG
(Derive) PROG(y := [], n := 70, LOOP(IF(n = -1, RETURN y), y := ADJOIN(FLOOR(n^(1/3))!, y), n := n - 1))
(Magma) [Factorial(Floor(n^(1/3))): n in [0..80]]; // Vincenzo Librandi, Feb 13 2013
(PARI) a(n) = floor(n^(1/3))!; \\ Altug Alkan, Jan 11 2016
KEYWORD
easy,nonn
AUTHOR
Mohammad K. Azarian, Dec 22 2012
STATUS
approved