|
Search: id:A132342
|
|
|
| A132342 |
|
a(n)=(a(n-1)*a(n-4))-(a(n-2)*a(n-3)), with a(1)=a(2)=a(3)=a(4)=1 |
|
+0
1
|
|
| 1, 1, 1, 1, 0, -1, -1, -1, -1, 0, -1, 1, -1, 1, 0, 1, -1, -1, 1, 0, 1, -1, -1, 1, 0, 1, -1, -1, 1, 0, 1, -1, -1, 1, 0, 1, -1, -1, 1, 0, 1, -1, -1, 1, 0, 1, -1, -1, 1, 0, 1, -1, -1, 1, 0, 1, -1, -1, 1, 0, 1, -1, -1, 1, 0, 1, -1, -1, 1, 0, 1, -1, -1, 1, 0, 1, -1, -1, 1, 0, 1, -1, -1, 1, 0, 1, -1, -1, 1, 0, 1, -1, -1, 1, 0, 1, -1, -1, 1, 0, 1, -1, -1, 1, 0
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
Becomes cyclic with period 4: {0, 1, -1, -1, 1}. - Stefan Steinerberger (stefan.steinerberger(AT)gmail.com), Nov 17 2007
|
|
MATHEMATICA
|
a[1] = a[2] = a[3] = a[4] = 1; a[n_] := a[n] = a[n - 1]*a[n - 4] - a[n - 2]*a[n - 3]; Array[a, 105] - Robert G. Wilson v (rgwv(AT)rgwv.com), Nov 09 2007
a = {1, 1, 1, 1}; Do[AppendTo[a, a[[ -1]]*a[[ -4]] - a[[ -2]]*a[[ -3]]], {90}]; a - Stefan Steinerberger (stefan.steinerberger(AT)gmail.com), Nov 17 2007
|
|
CROSSREFS
|
Sequence in context: A135839 A120529 A099443 this_sequence A106467 A106468 A030317
Adjacent sequences: A132339 A132340 A132341 this_sequence A132343 A132344 A132345
|
|
KEYWORD
|
sign,easy
|
|
AUTHOR
|
Ben Branman (137ben(AT)comcast.net), Nov 08 2007
|
|
EXTENSIONS
|
More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), Nov 09 2007
|
|
|
Search completed in 0.002 seconds
|
