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.

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

This page as a plain text file.
%I A211424 #13 Jun 25 2020 15:14:07
%S A211424 1,5,9,21,25,29,49,53,57,69,73,77,105,109,113,125,137,141,161,165,169,
%T A211424 181,185,189,217,229,233,261,265,269,297,301,313,325,329,333,369,373,
%U A211424 377,389,393,397,417,421,425,445,449,453,497,517,529,541,545
%N A211424 Number of ordered triples (w,x,y) with all terms in {-n,...,0,...,n} and w^2+3*x*y=0.
%C A211424 For a guide to related sequences, see A211422.
%H A211424 Brandon Crofts, <a href="/A211424/b211424.txt">Table of n, a(n) for n = 0..20000</a>
%H A211424 Brandon Crofts, <a href="/A211424/a211424.txt">Faster Mathematica code for A211424</a>
%t A211424 t[n_] := t[n] = Flatten[Table[w^2 + 3 x*y, {w, -n, n}, {x, -n, n}, {y, -n, n}]]
%t A211424 c[n_] := Count[t[n], 0]
%t A211424 t = Table[c[n], {n, 0, 70}]  (* A211424 *)
%t A211424 (t - 1)/4                    (* integers  *)
%Y A211424 Cf. A211422.
%K A211424 nonn
%O A211424 0,2
%A A211424 _Clark Kimberling_, Apr 10 2012