login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A105110 Direct matrix (non-recursive) content of -n to n+1 symmetry matrices. 0

%I #4 Mar 12 2014 16:36:46

%S 0,0,2,0,6,6,0,12,12,156,0,20,20,420,820,0,30,30,930,1830,29730,0,42,

%T 42,1806,3570,79422,229362,0,56,56,3192,6328,185080,539448,10903928,0,

%U 72,72,5256,10440,388872,1140552,29139336,111259080,0,90,90,8190,16290

%N Direct matrix (non-recursive) content of -n to n+1 symmetry matrices.

%C Triangle table: {0} {0, 2} {0, 6, 6} {0, 12, 12, 156} {0, 20, 20, 420, 820} {0, 30, 30, 930, 1830, 29730} {0, 42, 42, 1806, 3570, 79422, 229362}

%F f(w)=Abs[Det[Table[Table[If [n > m, -q, If[ n == m, 0, q + 1]], {n, 0, w}], {m, 0, w}]]] a(n)=f(w) while q>=w

%t f[w_] := Abs[Det[Table[Table[If [ n > m, -q, If[ n == m, 0, q + 1]], {n, 0, w}], {m, 0, w}]]] (* triangular table*) a = Table[Table[f[w], {w, 0, q}], {q, 0, 20}] (* output array*) b = Flatten[a]

%K nonn,uned,tabf,obsc

%O 0,3

%A _Roger L. Bagula_, Apr 07 2005

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 29 02:23 EDT 2024. Contains 371264 sequences. (Running on oeis4.)