%I #8 Jan 26 2025 09:21:05

%S 1,5,16,38,73,123,194,290,415,569,754,978,1245,1559,1914,2320,2781,

%T 3303,3888,4532,5243,6027,6890,7836,8853,9957,11152,12440,13827,15301,

%U 16878,18564,20363,22273,24290,26430,28697,31093,33612,36262

%N Number of ordered triples (w,x,y) with all terms in {1,...,n} and 2w^3<=x^3+y^3.

%C Row 3 of A211808; see A211790 for a discussion and guide to related sequences.

%H Robert Israel, <a href="/A211807/b211807.txt">Table of n, a(n) for n = 1..10000</a>

%p f:= proc(n) local x;

%p n + add(2*floor(((x^3+n^3)/2)^(1/3)), x=1..n-1)

%p end proc:

%p ListTools:-PartialSums(map(f,[$1..50])); # _Robert Israel_, Jan 26 2025

%t (See the program at A211808.)

%Y Cf. A211790, A211808.

%K nonn

%O 1,2

%A _Clark Kimberling_, Apr 22 2012