cp's OEIS Frontend

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

%I A211807 #8 Jan 26 2025 09:21:05
%S A211807 1,5,16,38,73,123,194,290,415,569,754,978,1245,1559,1914,2320,2781,
%T A211807 3303,3888,4532,5243,6027,6890,7836,8853,9957,11152,12440,13827,15301,
%U A211807 16878,18564,20363,22273,24290,26430,28697,31093,33612,36262
%N A211807 Number of ordered triples (w,x,y) with all terms in {1,...,n} and 2w^3<=x^3+y^3.
%C A211807 Row 3 of A211808; see A211790 for a discussion and guide to related sequences.
%H A211807 Robert Israel, <a href="/A211807/b211807.txt">Table of n, a(n) for n = 1..10000</a>
%p A211807 f:= proc(n) local x;
%p A211807   n + add(2*floor(((x^3+n^3)/2)^(1/3)), x=1..n-1)
%p A211807 end proc:
%p A211807 ListTools:-PartialSums(map(f,[$1..50])); # _Robert Israel_, Jan 26 2025
%t A211807 (See the program at A211808.)
%Y A211807 Cf. A211790, A211808.
%K A211807 nonn
%O A211807 1,2
%A A211807 _Clark Kimberling_, Apr 22 2012