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,2

Links

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

Example

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

Mathematica

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

Crossrefs

Cf. A259911, A259912, A259913.

Sequence in context: A001732 A213746 A219236 * A329822 A226835 A363326

Adjacent sequences: A259529 A259530 A259531 * A259533 A259534 A259535

Keyword

nonn,easy,tabl

Author

Clark Kimberling, Jul 20 2015

Status

approved