login
A023418
Denominator of n*(n-3)*(3*n^2 - 6*n + 2)/(3*(n-1)*(n-2)).
1
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
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
KEYWORD
nonn
STATUS
approved