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.
%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