cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A211436 Number of ordered triples (w,x,y) with all terms in {-n,...,0,...,n} and 2w+3x+4y=0.

This page as a plain text file.
%I A211436 #7 May 15 2017 10:58:05
%S A211436 1,1,7,11,21,27,43,51,73,83,109,123,155,169,207,225,267,287,335,357,
%T A211436 411,435,493,521,585,613,683,715,789,823,903,939,1025,1063,1153,1195,
%U A211436 1291,1333,1435,1481,1587,1635,1747,1797,1915,1967,2089,2145
%N A211436 Number of ordered triples (w,x,y) with all terms in {-n,...,0,...,n} and 2w+3x+4y=0.
%C A211436 For a guide to related sequences, see A211422.
%F A211436 Empirical g.f.: (1 + x + 6*x^2 + 9*x^3 + 12*x^4 + 9*x^5 + 6*x^6 + x^7 + x^8) / ((1 - x)^3*(1 + x)^2*(1 + x^2)*(1 + x + x^2)). - _Colin Barker_, May 15 2017
%t A211436 t[n_] := t[n] = Flatten[Table[2 w + 3 x + 4 y, {w, -n, n}, {x, -n, n}, {y, -n, n}]]
%t A211436 c[n_] := Count[t[n], 0]
%t A211436 t = Table[c[n], {n, 0, 80}]  (* A211436 *)
%t A211436 (t - 1)/2                    (* integers *)
%Y A211436 Cf. A211422.
%K A211436 nonn
%O A211436 0,3
%A A211436 _Clark Kimberling_, Apr 11 2012