This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A259532 #32 Jul 20 2015 14:04:14 %S A259532 1,8,8,12,8,12,1,2304,2304,1,5,8,12,8,5,24,1600,12,12,1600,24,28,2304, %T A259532 3600,1,3600,2304,28,8,12544,2304,5,5,2304,12544,8,1,8,7056,24,5,24, %U A259532 7056,8,1,40,8,2304,28,14400,14400,28,2304,8,40,44,1600,12,8 %N A259532 Triangular array: row k shows the discriminant of sqrt(j) + sqrt(k) for j=1..k. %H A259532 Clark Kimberling, <a href="/A259532/b259532.txt">Table of n, a(n) for n = 1..1000</a> %e A259532 First seven rows: %e A259532 1 %e A259532 8 8 %e A259532 12 8 12 %e A259532 1 2304 2304 1 %e A259532 5 8 12 8 5 %e A259532 24 1600 12 12 1600 24 %e A259532 28 2304 3600 1 3600 2304 28 %t A259532 t = Table[NumberFieldDiscriminant[Sqrt[j] + Sqrt[k + 1 - j]], {k, 1, 16}, {j, 1, k}] %t A259532 TableForm[t] (* A259532 array *) %t A259532 Flatten[t] (* A259532 sequence *) %Y A259532 Cf. A259911, A259912, A259913. %K A259532 nonn,easy,tabl %O A259532 1,2 %A A259532 _Clark Kimberling_, Jul 20 2015