|
%I #32 Jul 20 2015 14:04:14
%S 1,8,8,12,8,12,1,2304,2304,1,5,8,12,8,5,24,1600,12,12,1600,24,28,2304,
%T 3600,1,3600,2304,28,8,12544,2304,5,5,2304,12544,8,1,8,7056,24,5,24,
%U 7056,8,1,40,8,2304,28,14400,14400,28,2304,8,40,44,1600,12,8
%N Triangular array: row k shows the discriminant of sqrt(j) + sqrt(k) for j=1..k.
%H Clark Kimberling, <a href="/A259532/b259532.txt">Table of n, a(n) for n = 1..1000</a>
%e First seven rows:
%e 1
%e 8 8
%e 12 8 12
%e 1 2304 2304 1
%e 5 8 12 8 5
%e 24 1600 12 12 1600 24
%e 28 2304 3600 1 3600 2304 28
%t t = Table[NumberFieldDiscriminant[Sqrt[j] + Sqrt[k + 1 - j]], {k, 1, 16}, {j, 1, k}]
%t TableForm[t] (* A259532 array *)
%t Flatten[t] (* A259532 sequence *)
%Y Cf. A259911, A259912, A259913.
%K nonn,easy,tabl
%O 1,2
%A _Clark Kimberling_, Jul 20 2015
|
