login
A157254
a(n) = floor(n^(n^(1/3))).
1
1, 2, 4, 9, 15, 25, 41, 64, 96, 142, 207, 295, 416, 578, 795, 1081, 1458, 1948, 2583, 3400, 4445, 5774, 7457, 9576, 12234, 15554, 19683, 24798, 31113, 38882, 48409, 60055, 74248, 91494, 112395, 137656, 168110, 204735, 248677, 301278, 364107
OFFSET
1,2
LINKS
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
Sequence in context: A119759 A026036 A072846 * A080004 A176915 A060742
KEYWORD
nonn
AUTHOR
STATUS
approved