[go: up one dir, main page]

login
A259532
Triangular array: row k shows the discriminant of sqrt(j) + sqrt(k) for j=1..k.
1
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
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
KEYWORD
nonn,easy,tabl
AUTHOR
Clark Kimberling, Jul 20 2015
STATUS
approved