OFFSET
0,4
EXAMPLE
a(9) = 12.
* * * * * * * * *
/ \ / \ / \ / \ / \ / \ / \ / \ / \
*---*---*---*---*---*---*---*---*---*
.
* * * *---* * * *
/ \ / \ / \ / \ / \ / \ / \ / \
*---*---*---*---*---*---*---*---*
.
* * *---*---* * *
/ \ / \ / \ / \ / \ / \ / \
*---*---*---*---*---*---*---*
.
* *---* * *---* *
/ \ / \ / \ / \ / \ / \ / \
*---*---*---*---*---*---*---*
.
*---* * * * *---*
/ \ / \ / \ / \ / \ / \ / \
*---*---*---*---*---*---*---*
.
* *---*---*---* *
/ \ / \ / \ / \ / \ / \
*---*---*---*---*---*---*
.
*---* *---* *---*
/ \ / \ / \ / \ / \ / \
*---*---*---*---*---*---*
.
*---*---*---*---*
/ \ / \ / \ / \ / \
*---*---*---*---*---*
.
* *
/ \ / \
* *---*---* *
/ \ / \ / \ / \ / \
*---*---*---*---*---*
.
* *
/ \ / \
*---* * *---*
/ \ / \ / \ / \ / \
*---*---*---*---*---*
.
* *
/ \ / \
*---*---*---*
/ \ / \ / \ / \
*---*---*---*---*
.
*
/ \
*---*
/ \ / \
*---*---*
/ \ / \ / \
*---*---*---*
.
MAPLE
Motzk := proc(x, y, twoar)
option remember;
if x =0 then
if y <> 0 or twoar <>0 then
return 0;
else
return 1;
end if;
elif y < 0 or y > x or twoar <x then
return 0 ;
elif y = 0 then
if modp(x, 2) = 0 then
return procname(x-1, y+1, twoar-2*y-1) ;
else
return 0 ;
end if;
elif modp(y, 2) = modp(x, 2) then
return procname(x-1, y+1, twoar-2*y-1)
+procname(x-1, y, twoar-2*y)
+procname(x-1, y-1, twoar-2*y+1) ;
else
return procname(x-1, y, twoar-2*y) ;
end if ;
end proc:
A316585 := proc(twoar)
local a, x, y ;
a:= 0 ;
for x from 0 to twoar do
for y from 0 to x do
a := a+Motzk(x, y, twoar) ;
end do:
end do:
a ;
end proc:
seq(A316585(n), n=0..50) ; # R. J. Mathar, Aug 23 2018
MATHEMATICA
Motzk[x_, y_, twoar_] := Motzk[x, y, twoar] = Which[
x == 0, If[y != 0 || twoar != 0, 0, 1],
y < 0 || y > x || twoar < x, 0,
y == 0 , If[Mod[x, 2] == 0, Motzk[x - 1, y + 1, twoar - 2y - 1], 0],
Mod[y, 2] == Mod[x, 2], Motzk[x - 1, y + 1, twoar - 2y - 1] + Motzk[x - 1, y, twoar - 2y] + Motzk[x - 1, y - 1, twoar - 2y + 1],
True, Motzk[x - 1, y, twoar - 2y]];
A316585[twoar_] := Module[{a, x, y}, a = 0; For[x = 0, x <= twoar , x++, For[y = 0, y <= x, y++, a = a + Motzk[x, y, twoar]]]; a];
CROSSREFS
KEYWORD
nonn
AUTHOR
Seiichi Manyama, Jul 07 2018
EXTENSIONS
a(36)-a(50) from R. J. Mathar, Aug 23 2018
STATUS
approved