A023418 Denominator of n*(n-3)*(3*n^2 - 6*n + 2)/(3*(n-1)*(n-2)).

1, 9, 18, 5, 45, 63, 28, 54, 135, 55, 198, 117, 91, 315, 360, 68, 459, 513, 190, 315, 693, 253, 828, 450, 325, 1053, 1134, 203, 1305, 1395, 496, 792, 1683, 595, 1890, 999, 703, 2223, 2340, 410, 2583, 2709

Offset

3,2

Links

G. C. Greubel, Table of n, a(n) for n = 3..1000

Maple

A023418 := proc(n)
    n*(n-3)*(3*n^2-6*n+2)/(3*(n-1)*(n-2)) ;
    denom(%) ;
end proc: # R. J. Mathar, May 01 2015

Mathematica

Denominator[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(denominator(n*(n - 3)*(3*n^2 - 6*n + 2)/(3*(n - 1)*(n - 2))), ", ")) \\ G. C. Greubel, Jan 01 2018
(Magma) [Denominator(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

Sequence in context: A061748 A159510 A191675 * A302232 A069528 A109050

Adjacent sequences: A023415 A023416 A023417 * A023419 A023420 A023421

Keyword

nonn

Author

N. J. A. Sloane

Status

approved