%I #11 Mar 02 2023 11:25:25
%S 1,2,7,3855,246109501,3658981728433681,22537999301860113141522943,
%T 85070267212918892756053780436965654527,
%U 273892802259521776518514883585359984420603636167980521,1000000010000000100000001000000010000000100000001000000010000000100000001
%N Values of the family of polynomials y = Sum_{z = 0..n1} x^z at point x = discriminant of y.
%t Clear[x]; s = {}; Do[pol = Simplify[(x^n  1)/(x  1)]; d = Discriminant[pol, x]; AppendTo[s, pol /. x > d], {n, 1, 10}]; s
%o (PARI) a(n) = my(p=sum(k=0, n1, x^k)); subst(p, x, poldisc(p)); \\ _Michel Marcus_, Mar 02 2023
%Y Cf. A174304, A174305, A174306, A174307, A174308, A174309, A174310, A174311.
%K sign
%O 1,2
%A _Artur Jasinski_, Mar 15 2010
%E One more term from _Michel Marcus_, Mar 02 2023
