|
%I #4 Apr 19 2012 17:39:01
%S 0,0,2,3,2,5,6,7,9,11,10,9,13,17,14,14,29,17,18,25,21,28,26,17,32,59,
%T 24,28,39,37,28,41,36,42,50,28,91,55,26,44,66,55,40,57,59,67,70,31,65,
%U 151,48,62,85,57,68,70,78,84,72,55,92,115,38,71,210,88,80,89
%N Number of ordered triples (w,x,y) with all terms in {1,...,n} and w^2=x*y+n.
%C For a guide to related sequences, see A211422.
%t t[n_] := t[n] = Flatten[Table[w^2 - x*y - n, {w, 1, n}, {x, 1, n}, {y, 1, n}]]
%t c[n_] := Count[t[n], 0]
%t t = Table[c[n], {n, 0, 80}] (* A211506 *)
%Y Cf. A211422.
%K nonn
%O 0,3
%A _Clark Kimberling_, Apr 14 2012
|
