|
%I #32 Oct 14 2019 04:28:23
%S 0,1,-1728,1,3375,1,-8000,1,32768,1,-54000,1,-121287375,191025,1,
%T -287496,1,884736,1,-681472000,-1264000,1,12771880859375,-5151296875,
%U 3491750,1,14670139392,-4834944,1,12288000,1,-16581375,1,1566028350940383,-58682638134
%N Coefficients of Hilbert class polynomial H_D(x) as D runs through the numbers -3, -4, -7, -8, -11, -12, ... .
%H Seiichi Manyama, <a href="/A305474/b305474.txt">Rows n = 1..250, flattened</a>
%e D | 0 1 2 3
%e ----+---------------------------------------------
%e -3 | 0, 1;
%e -4 | -1728, 1;
%e -7 | 3375, 1;
%e -8 | -8000, 1;
%e -11 | 32768, 1;
%e -12 | -54000, 1;
%e -15 | -121287375, 191025, 1;
%e -16 | -287496, 1;
%e -19 | 884736, 1;
%e -20 | -681472000, -1264000, 1;
%e -23 | 12771880859375, -5151296875, 3491750, 1;
%e -24 | 14670139392, -4834944, 1;
%e -27 | 12288000, 1;
%e -28 | -16581375, 1;
%e -31 | 1566028350940383, -58682638134, 39491307, 1;
%e -32 | 12167000000, -52250000, 1;
%e -35 | -134217728000, 117964800, 1;
%e -36 | -1790957481984, -153542016, 1;
%o (PARI) d(n) = 2*n+n%2;
%o T(n, k) = polcoef(polclass(-d(n)), k);
%o tabf(nn) = for(n=1, nn, for(k=0, poldegree(polclass(-d(n))), print1(T(n, k), ", ")); print)
%Y Cf. A014600, A014601, A032354, A305475 (constant).
%K sign,tabf,look
%O 1,3
%A _Seiichi Manyama_, Jun 02 2018
|
