OFFSET
0,4
FORMULA
a(n) = -n + [n^(3/2)], where [ ] = floor.
EXAMPLE
a(7) = 11 because (7+11)^2 <= 7^3 < (7+12)^2.
MATHEMATICA
a[n_] := Select[-1 + Range[1300], (n + #)^2 <= n^3 < (n + # + 1)^2 &]
Flatten[Table[a[n], {n, 0, 100}]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, Jan 26 2023
STATUS
approved