powered by
lozenge(m)
n=2m+1
magic.4np2
lozenge(4) all(sapply(1:10,function(n){is.magic(lozenge(n))}))
Run the code above in your browser using DataLab