login
Triangular array: row k shows the discriminant of sqrt(j) + sqrt(k) for j=1..k.
1

%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