0
![Programming Puzzles & Code Golf](//cdn.sstatic.net/Sites/codegolf/img/apple-touch-icon.png)
65. Fortran (GFortran), 371 bytes, A000152
function A000152(n)
integer :: n, i, a, sum, index, A000152
integer, dimension(n+1) :: gf
gf(1) = 1
do i=2,n+1
gf(i) = 0
end do
do a=1,16
do i=n+1,2,-1
sum = 0
index = 1
do while (index * index < i)
sum = sum + 2 * gf(i - index * ...