%I #13 Mar 27 2024 11:21:45

%S 0,2,20,114,434,1296,3268,7282,14762,27778,49210,82944,134078,209154,

%T 316406,466034,670488,944784,1306830,1777778,2382392,3149442,4112108,

%U 5308416,6781684,8580994,10761680,13385842,16522870,20250000,24652880

%N Nearest integer to n^6/36.

%H <a href="/index/Rec#order_10">Index entries for linear recurrences with constant coefficients</a>, signature (5,-9,6,0,0,0,-6,9,-5,1).

%F G.f.: -2*x^2*(x^6+5*x^5+16*x^4+16*x^3+16*x^2+5*x+1)/((x-1)^7*(x+1)*(x^2+x+1)). [_Colin Barker_, Sep 18 2012]

%t ni[n_]:=Module[{c=n^6/36},If[Ceiling[c]-c<c-Floor[c],Ceiling[c], Floor[ c]]]; Array[ni,40] (* _Harvey P. Dale_, Oct 14 2012 *)

%K nonn,easy

%O 1,2

%A _N. J. A. Sloane_, May 15 2001