OFFSET
0,2
MAPLE
f:=(i, j)->denom(bernoulli(2*i)*bernoulli(2*j)):lon:=5:i:=[seq(op([seq(k, k=0..2*s-1), seq(2*s-2-k, k=0..2*s-2)]), s=1..lon)]:j:=[0, seq(op([seq(k, k=0..2*s), seq(2*s-1-k, k=0..2*s-1)]), s=1..lon)]:seq(f(i[n], j[n]), n=1..min(nops(i), nops(j))); (C. Ronaldo)
CROSSREFS
KEYWORD
AUTHOR
N. J. A. Sloane, May 24 2002
STATUS
approved