%I #9 Sep 08 2022 08:44:47
%S 0,52,235,111,1498,2920,1719,4235,13156,6516,28015,19481,17610,70096,
%T 91273,19485,147592,183940,75537,138149,333730,133224,474925,280163,
%U 218916,765100,886327,170235,1171366
%N Numerator of n*(n-3)*(3*n^2-6*n+2)/(3*(n-1)*(n-2)).
%H G. C. Greubel, <a href="/A023417/b023417.txt">Table of n, a(n) for n = 3..1000</a>
%t 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 *)
%o (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
%o (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
%K nonn
%O 3,2
%A _N. J. A. Sloane_