%I #31 Aug 16 2024 23:11:27
%S 0,0,0,1,4,9,20,36,64,100,156,225,324,441,600,784,1024,1296,1640,2025,
%T 2500,3025,3660,4356,5184,6084,7140,8281,9604,11025,12656,14400,16384,
%U 18496,20880,23409,26244,29241,32580,36100,40000,44100,48620,53361
%N Quarter-squared applied twice.
%H Harvey P. Dale, <a href="/A059403/b059403.txt">Table of n, a(n) for n = 0..1000</a> (first 501 terms from Harry J. Smith)
%H <a href="/index/Rec#order_10">Index entries for linear recurrences with constant coefficients</a>, signature (2, 1, -4, 2, 0, -2, 4, -1, -2, 1).
%F a(n) = floor(floor(n^2/4)^2/4) = A002620(A002620(n)).
%F a(4n) = 4n^4; a(4n+1) = n^2*(2n+1)^2;
%F a(4n+2) = 2n(n+1)(2n(n+1)+1); a(4n+3) = (n+1)^2*(2n+1)^2.
%F a(2n) = A060494(2n); a(2n-1) = A060494(2n-1)-A011861(n).
%F G.f.: x^3(1+2x+2x^3+x^4)/((1-x)^5*(1+x)^3*(1+x^2)). [_R. J. Mathar_, Sep 09 2008]
%e a(9)=100 since the ninth quarter-square is 20 and the twentieth quarter-square is 100.
%t Floor[Floor[Range[0,50]^2/4]^2/4] (* or *) LinearRecurrence[{2,1,-4,2,0,-2,4,-1,-2,1},{0,0,0,1,4,9,20,36,64,100},50] (* _Harvey P. Dale_, Dec 13 2014 *)
%o (PARI) { default(realprecision, 10); for (n = 0, 500, write("b059403.txt", n, " ", floor(floor(n^2/4)^2/4)); ) } \\ _Harry J. Smith_, Jun 26 2009
%Y Cf. A008233 for an alternative approach.
%K easy,nonn
%O 0,5
%A _Henry Bottomley_, Mar 21 2001