editing
approved
editing
approved
Contribution from _From _R. J. Mathar_, Oct 15 2010: (Start)
approved
editing
proposed
approved
editing
proposed
nmax = 56; a2 = {1, 2, 2}; Do[ a2 = Join[a2, {1 + Mod[n-1, 2]}], {n, 3, nmax^2}, {i, 1, a2[[n]]}]; a[0] = 0; a[n_] := Det[ Partition[ Take[a2, n^2], n]]; Table[a[n], {n, 0, nmax}] (* Jean-François Alcover, Jun 18 2013 *)
approved
editing
proposed
approved
editing
proposed
nmax = 56; a2 = {1, 2, 2}; Do[ a2 = Join[a2, {1 + Mod[n-1, 2]}], {n, 3, nmax^2}, {i, 1, a2[[n]]}]; a[0] = 0; a[n_] := Det[ Partition[ Take[a2, n^2], n]]; Table[a[n], {n, 0, nmax}] (* Jean-François Alcover, Jun 18 2013 *)
approved
editing
_Jonathan Vos Post (jvospost3(AT)gmail.com), _, May 25 2006
Contribution from _R. J. Mathar (mathar(AT)strw.leidenuniv.nl), _, Oct 15 2010: (Start)
More terms from _R. J. Mathar (mathar(AT)strw.leidenuniv.nl), _, Oct 15 2010