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 A114654 #16 Aug 28 2020 06:17:06
%S A114654 1,-3,-31,229,3381,-43531,-870199,15953673,404197705,-9612579511,
%T A114654 -295311670611,8630788777645,311791207040509,-10809131718965763,
%U A114654 -449005897206417391,18008850183328692241,845687005960046315793,-38519167813410200811247
%N A114654 Discriminant of the polynomial x^n + x + 1.
%C A114654 Except for the sign, the sequence alternates between the sum and difference of consecutive terms of A000312. x^2+x+1 divides x^n+x+1 for n=2 (mod 3).
%D A114654 Mohammad K. Azarian, On the Hyperfactorial Function, Hypertriangular Function, and the Discriminants of Certain Polynomials, International Journal of Pure and Applied Mathematics, Vol. 36, No. 2, 2007, pp. 251-257. Mathematical Reviews, MR2312537. Zentralblatt MATH, Zbl 1133.11012.
%F A114654 for n>1, a(n) = (n^n + (-1)^(n-1) * (n-1)^(n-1)) * (-1)^floor(n/2).
%F A114654 a(n) = (Cos[Pi n/2]+Sin[Pi n/2])(n^n)+(Cos[Pi(n+1)/2]+Sin[Pi(n+1)/2])(n+1)^(n+1). - _Artur Jasinski_, Oct 12 2007
%t A114654 Table[Discriminant[x^n + x + 1, x], {n, 0, 100}] (* _Artur Jasinski_, Oct 12 2007 *)
%o A114654 (PARI) a(n) = poldisc(x^n+x+1); \\ _Michel Marcus_, Aug 28 2020
%Y A114654 Cf. A000312 (n^n), A007781 (n^n - (n-1)^(n-1)), A056788 (n^n + (n-1)^(n-1)), A086797 (discriminant of the polynomial x^n-x-1).
%K A114654 sign
%O A114654 1,2
%A A114654 _T. D. Noe_, Dec 21 2005