login

Revision History for A119493

(Bold, blue-underlined text is an addition; faded, red-underlined text is a deletion.)

Showing entries 1-10 | older changes
Determinant of n X n matrix of first n^2 terms of Kolakoski sequence (A000002).
(history; published version)
#15 by Jon E. Schoenfield at Sun Aug 09 15:29:48 EDT 2015
STATUS

editing

approved

#14 by Jon E. Schoenfield at Sun Aug 09 15:29:46 EDT 2015
MAPLE

Contribution from _From _R. J. Mathar_, Oct 15 2010: (Start)

STATUS

approved

editing

#13 by Bruno Berselli at Thu Nov 13 05:39:29 EST 2014
STATUS

proposed

approved

#12 by Jean-François Alcover at Thu Nov 13 05:34:32 EST 2014
STATUS

editing

proposed

#11 by Jean-François Alcover at Thu Nov 13 05:34:14 EST 2014
MATHEMATICA

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 *)

STATUS

approved

editing

Discussion
Thu Nov 13
05:34
Jean-François Alcover: Removed useless index in Mma code
#10 by Bruno Berselli at Tue Jun 18 05:20:31 EDT 2013
STATUS

proposed

approved

#9 by Jean-François Alcover at Tue Jun 18 05:12:53 EDT 2013
STATUS

editing

proposed

#8 by Jean-François Alcover at Tue Jun 18 05:12:46 EDT 2013
MATHEMATICA

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 *)

STATUS

approved

editing

#7 by Russ Cox at Fri Mar 30 18:40:37 EDT 2012
AUTHOR

_Jonathan Vos Post (jvospost3(AT)gmail.com), _, May 25 2006

Discussion
Fri Mar 30
18:40
OEIS Server: https://oeis.org/edit/global/228
#6 by Russ Cox at Fri Mar 30 17:39:12 EDT 2012
MAPLE

Contribution from _R. J. Mathar (mathar(AT)strw.leidenuniv.nl), _, Oct 15 2010: (Start)

EXTENSIONS

More terms from _R. J. Mathar (mathar(AT)strw.leidenuniv.nl), _, Oct 15 2010

Discussion
Fri Mar 30
17:39
OEIS Server: https://oeis.org/edit/global/190