A023418 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

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