OFFSET
1,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..1000
MATHEMATICA
lst={}; Do[nx=n^(1/3); AppendTo[lst, Floor[n^nx]], {n, 5!}]; lst
Table[Floor[n^Surd[n, 3]], {n, 50}] (* Harvey P. Dale, Sep 15 2013 *)
PROG
(PARI) for(n=1, 30, print1(floor(n^(n^(1/3))), ", ")) \\ G. C. Greubel, Feb 04 2018
(Magma) [Floor(n^(n^(1/3))): n in [1..30]]; // G. C. Greubel, Feb 04 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Feb 25 2009
STATUS
approved