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

1, 8, 8, 12, 8, 12, 1, 2304, 2304, 1, 5, 8, 12, 8, 5, 24, 1600, 12, 12, 1600, 24, 28, 2304, 3600, 1, 3600, 2304, 28, 8, 12544, 2304, 5, 5, 2304, 12544, 8, 1, 8, 7056, 24, 5, 24, 7056, 8, 1, 40, 8, 2304, 28, 14400, 14400, 28, 2304, 8, 40, 44, 1600, 12, 8

Offset: 1

Author

Clark Kimberling, Jul 20 2015

Keywords

• nonn
• easy
• tabl

Examples

			First seven rows:
1
8   8
12  8     12
1   2304  2304   1
5   8     12     8   5
24  1600  12     12  1600  24
28  2304  3600   1   3600  2304  28
		

Links

• Clark Kimberling, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A259911, A259912, A259913.

Programs

Mathematica

t = Table[NumberFieldDiscriminant[Sqrt[j] + Sqrt[k + 1 - j]], {k, 1, 16}, {j, 1, k}]
TableForm[t] (* A259532 array *)
Flatten[t]   (* A259532 sequence *)