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.

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

This page as a plain text file.
%I A211438 #7 Apr 18 2012 12:12:54
%S A211438 1,3,13,19,39,49,79,93,133,151,201,223,283,309,379,409,489,523,613,
%T A211438 651,751,793,903,949,1069,1119,1249,1303,1443,1501,1651,1713,1873,
%U A211438 1939,2109,2179,2359,2433,2623,2701,2901,2983,3193,3279,3499,3589
%N A211438 Number of ordered triples (w,x,y) with all terms in {-n,...,0,...,n} and w+2x+2y=0.
%C A211438 For a guide to related sequences, see A211422.
%F A211438 Conjecture: a(n) = (5+3*(-1)^n+2*(7+3*(-1)^n)*n+14*n^2)/8. G.f.: (1+2*x+8*x^2+2*x^3+x^4)/((1-x)^3*(1+x)^2). [_Colin Barker_, Apr 18 2012]
%t A211438 t[n_] := t[n] = Flatten[Table[w + 2 x + 2 y, {w, -n, n}, {x, -n, n}, {y, -n, n}]]
%t A211438 c[n_] := Count[t[n], 0]
%t A211438 t = Table[c[n], {n, 0, 70}]  (* A211438 *)
%t A211438 (t - 1)/2                    (* A118277  *)
%Y A211438 Cf. A211422.
%K A211438 nonn,easy
%O A211438 0,2
%A A211438 _Clark Kimberling_, Apr 11 2012