OFFSET
1,2
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
f:= proc(n) local x;
n + add(2*floor(((x^3+n^3)/2)^(1/3)), x=1..n-1)
end proc:
ListTools:-PartialSums(map(f, [$1..50])); # Robert Israel, Jan 26 2025
MATHEMATICA
(See the program at A211808.)
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, Apr 22 2012
STATUS
approved