OFFSET
3,2
PROG
(PARI) a(n)={my(A=matrix(n, n, i, j, 1), m=2, f=0); while(m, my(qr=divrem(f, n)); A[qr[1]+1, qr[2]+1]=0; f=fibonacci(m); if(f>n^2, m=0, f--; m++)); matpermanent(A)} \\ Herman Jamke (hermanjamke(AT)fastmail.fm), May 14 2007
CROSSREFS
KEYWORD
nonn
AUTHOR
Simone Severini, Sep 25 2005
EXTENSIONS
More terms from Herman Jamke (hermanjamke(AT)fastmail.fm), May 14 2007
STATUS
approved