cp's OEIS Frontend

A212057 Number of (w,x,y,z) with all terms in {1,...,n} and w

%I A212057 #8 Dec 04 2016 19:46:29
%S A212057 0,0,11,69,231,584,1230,2307,3964,6385,9771,14356,20377,28125,37894,
%T A212057 50008,64809,82681,104005,129216,158743,193063,232668,278080,329812,
%U A212057 388452,454585,528822,611791,704167,806610,919852,1044607,1181643
%N A212057 Number of (w,x,y,z) with all terms in {1,...,n} and w<x*y*z.
%C A212057 a(n)+A212058(n)=n^4.  For a guide to related sequences, see A211795.
%t A212057 t = Compile[{{n, _Integer}}, Module[{s = 0},
%t A212057 (Do[If[w < x*y*z, s = s + 1],
%t A212057 {w, 1, #}, {x, 1, #}, {y, 1, #}, {z, 1, #}] &[n]; s)]];
%t A212057 Map[t[#] &, Range[0, 50]] (* A212057 *)
%t A212057 (* _Peter J. C. Moses_, Apr 13 2012 *)
%Y A212057 Cf. A211795, A061201.
%K A212057 nonn
%O A212057 0,3
%A A212057 _Clark Kimberling_, Apr 30 2012