OFFSET
1,8
LINKS
R. J. Mathar, Table of n, a(n) for n = 1..394
FORMULA
MAPLE
A026924 := proc(n)
local a, p1, p2, p3, p4 ;
a := 0 ;
for p1 from 0 to n do
for p2 from 0 to (n-p1)/2 do
for p3 from op(1+modp(n-p1-2*p2, 4), [0, 3, 2, 1]) to (n-p1-2*p2)/3 by 4 do
p4 := (n-p1-2*p2-3*p3)/4 ;
if type(p4, 'integer') and p4 >=1 and type(p1+p2+p3+p4, 'odd') then
a := a+1 ;
end if:
end do:
end do:
end do:
a;
end proc: # R. J. Mathar, Aug 22 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved