OFFSET
0,3
LINKS
EXAMPLE
See the linked illustration for the terms a(1) = 1, a(2) = 3, a(3) = 8, a(4) = 14, a(5) = 36 and a(6) = 48.
MAPLE
S372217:=proc(n);
local s, x, u, v;
s:=0;
if n=1 then return 1 fi;
for x to n do
if gcd(x, n)=1 then
for u from x to n do
for v from 0 to n do
if gcd(u, v)=1 and gcd(u-x, n-v)=1 then
if u<n then s:=s+1;
elif v>=x then s:=s+1;
fi;
fi;
od;
od;
fi;
od;
return s;
end proc;
A372217:=proc(n)
local i, a;
a:=0;
for i from 0 to n do
a:=a+S372217(i);
od;
return a;
end proc;
seq(A372217(n), n=0..44);
CROSSREFS
KEYWORD
nonn
AUTHOR
Felix Huber, Apr 28 2024
STATUS
approved