# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/

Search: id:a211650
Showing 1-1 of 1

%I A211650 #17 Nov 23 2016 18:37:15
%S A211650 0,1,7,22,50,96,163,255,378,534,730,969,1255,1592,1982,2434,2949,3533,
%T A211650 4188,4918,5732,6629,7617,8696,9876,11154,12539,14037,15646,17378,
%U A211650 19230,21209,23321,25568,27957,30487,33166,36000,38989,42140
%N A211650 Number of ordered triples (w,x,y) with all terms in {1,...,n} and w^3 < x^3 + y^3.
%C A211650 For a guide to related sequences, see A211422.
%C A211650 Also the number of ordered triples (w,x,y) with all terms in {1,...,n} and w^3 <= x^3 + y^3. [Note that there are no integer solutions to w^3 = x^3 + y^3, see for example Compos. Math. 140 (6) (2004) p 1399 Theorem 8.1. - _R. J. Mathar_, Jun 27 2012]
%D A211650 L. Euler, Vollständige Anleitung zur Algebra, (1770), Roy. Acad. Sci., St. Petersburg.
%H A211650 Michael A. Bennett, Vinayak Vatsal and Soroosh Yazdani, <a href="https://doi.org/10.1112/S0010437X04000983">Ternary Diophantine equations of signature (p, p, 3)</a>, Compos. Math. 140 (6) (2004) p. 1399 Theorem 8.1.
%t A211650 t = Compile[{{n, _Integer}}, Module[{s = 0},
%t A211650     (Do[If[w^3 < x^3 + y^3, s = s + 1],
%t A211650         {w, 1, #}, {x, 1, #}, {y, 1, #}] &[n]; s)]];
%t A211650 Map[t[#] &, Range[0, 50]] (* A211650 *)
%t A211650 (* _Peter J. C. Moses_, Apr 13 2012 *)
%Y A211650 Cf. A211422.
%K A211650 nonn
%O A211650 0,3
%A A211650 _Clark Kimberling_, Apr 18 2012

# Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE