OFFSET
3,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 3..1000
MATHEMATICA
Numerator[Table[n*(n - 3)*(3*n^2 - 6*n + 2)/(3*(n - 1)*(n - 2)), {n, 3, 50}]] (* G. C. Greubel, Jan 01 2018 *)
PROG
(PARI) for(n=3, 30, print1(numerator(n*(n - 3)*(3*n^2 - 6*n + 2)/(3*(n - 1)*(n - 2))), ", ")) \\ G. C. Greubel, Jan 01 2018
(Magma) [Numerator(n*(n - 3)*(3*n^2 - 6*n + 2)/(3*(n - 1)*(n - 2))): n in [3..30]]; // G. C. Greubel, Jan 01 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved