Skip to main content
2 of 3
edited body
Sparr
  • 6.1k
  • 27
  • 37

Mathematica, 35 characters

f[n_]:=Sum[SquaresR[2,k],{k,0,n^2}] 

Lifted from https://oeis.org/A000328

Sparr
  • 6.1k
  • 27
  • 37