cp's OEIS Frontend

A211652 Number of ordered triples (w,x,y) with all terms in {1,...,n} and w^4

%I A211652 #5 Dec 04 2016 19:46:28
%S A211652 0,1,7,22,50,95,161,253,374,528,721,955,1236,1567,1953,2396,2902,3475,
%T A211652 4117,4837,5634,6516,7485,8545,9700,10956,12316,13783,15365,17062,
%U A211652 18880,20821,22892,25096,27437,29921,32548,35324,38256,41345
%N A211652 Number of ordered triples (w,x,y) with all terms in {1,...,n} and w^4<x^4+y^4.
%C A211652 For a guide to related sequences, see A211422.
%t A211652 t = Compile[{{n, _Integer}}, Module[{s = 0},
%t A211652     (Do[If[w^4 < x^4 + y^4, s = s + 1],
%t A211652         {w, 1, #}, {x, 1, #}, {y, 1, #}] &[n]; s)]];
%t A211652 Map[t[#] &, Range[0, 50]] (* A211652 *)
%t A211652 (* _Peter J. C. Moses_, Apr 13 2012 *)
%Y A211652 Cf. A211422.
%K A211652 nonn
%O A211652 0,3
%A A211652 _Clark Kimberling_, Apr 19 2012