|
Search: id:A123189
|
|
|
| A123189 |
|
a(1)=1; a(2)=1; a(3)=6; a(n)=3a(n-1)+3a(n-2)-4a(n-3) for n >=4. |
|
+0
1
|
|
| 1, 1, 6, 17, 65, 222, 793, 2785, 9846, 34721, 122561, 432462, 1526185, 5385697, 19005798, 67069745, 236683841, 835237566, 2947485241, 10401433057, 36705804630, 129531772097, 457106997953, 1613093091630, 5692473180361
(list; graph; listen)
|
|
|
OFFSET
|
1,3
|
|
|
MAPLE
|
a[1]:=1: a[2]:=1: a[3]:=6: for n from 4 to 25 do a[n]:=3*a[n-1]+3*a[n-2]-4*a[n-3] od: seq(a[n], n=1..25);
|
|
MATHEMATICA
|
M = {{1, -2, 1}, {-2, 2, 0}, {1, 1, 0}} v[1] = {1, 0, 0} v[n_] := v[n] = M.v[n - 1]; a1 = Table[v[n][[1]], {n, 1, 50}]
|
|
CROSSREFS
|
Sequence in context: A109311 A151350 A006758 this_sequence A047156 A154494 A130278
Adjacent sequences: A123186 A123187 A123188 this_sequence A123190 A123191 A123192
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Roger Bagula (rlbagulatftn(AT)yahoo.com), Oct 03 2006
|
|
EXTENSIONS
|
Edited by N. J. A. Sloane (njas(AT)research.att.com), Oct 08 2006
|
|
|
Search completed in 0.002 seconds
|
