-- -*- M2-comint -*- {* hash: 1576237112 *}

i1 : R = QQ[a..d];

i2 : I = monomialCurveIdeal(R, {1,3,4});

o2 : Ideal of R

i3 : h = hilbertPolynomial I

o3 = - 3*P  + 4*P
          0      1

o3 : ProjectiveHilbertPolynomial

i4 : hilbertPolynomial (R/I)

o4 = - 3*P  + 4*P
          0      1

o4 : ProjectiveHilbertPolynomial

i5 : hilbertPolynomial(I, Projective=>false)

o5 = 4i + 1

o5 : QQ[i]

i6 : apply(10, k-> h(k))

o6 = {1, 5, 9, 13, 17, 21, 25, 29, 33, 37}

o6 : List

i7 : apply(10, k-> hilbertFunction(k,I))

o7 = {1, 4, 9, 13, 17, 21, 25, 29, 33, 37}

o7 : List

i8 :