OFFSET
1,2
MAPLE
for j from 1 to 300 do
y:=(2*j)^2:evdiv:=0:oddiv:=0:
for k in divisors(y) do
if(k mod 2=0)then evdiv:=evdiv+1:else oddiv:=oddiv+1:fi:
od:
if(type(y/evdiv, integer) and type(y/oddiv, integer))then
print(j);
fi;
od:
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Nathaniel Johnston, Nov 17 2010
STATUS
approved