|
| |
|
|
A051793
|
|
a(n)=sum((-1)^i*a(i),i=n-4..n-1), a(1)=1,a(2)=1,a(3)=1,a(4)=1.
|
|
0
|
|
|
|
1, 1, 1, 1, 0, 1, 1, 1, 1, 0, -1, 1, 1, 1, 2, -1, -3, 1, 1, 2, 5, -3, -7, 1, 0, 5, 13, -7, -15, 0, -5, 13, 33, -15, -30, -5, -23, 33, 81, -30, -55, -23, -79, 81, 192, -55, -87, -79, -239, 192, 439, -87, -95, -239, -670, 439, 965, -95, 49, -670, -1779, 965, 2025, 49, 768
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,15
|
|
|
LINKS
|
Table of n, a(n) for n=1..65.
|
|
|
FORMULA
|
a(0)=1, a(1)=1, a(2)=1, a(3)=1, a(4)=0, a(5)=1, a(6)=1, a(7)=1,
a(n)=-a(n-2)-a(n-4)+a(n-6)+a(n-8). - Harvey P. Dale, Sep 14 2012
|
|
|
MATHEMATICA
|
RecurrenceTable[{a[1]==a[2]==a[3]==a[4]==1, a[n]==Sum[(-1)^i a[i], {i, n-4, n-1}]}, a, {n, 70}] (* or *) LinearRecurrence[{0, -1, 0, -1, 0, 1, 0, 1}, {1, 1, 1, 1, 0, 1, 1, 1}, 70] (* Harvey P. Dale, Sep 14 2012 *)
|
|
|
CROSSREFS
|
Sequence in context: A206437 A007740 A117811 * A065371 A186007 A212623
Adjacent sequences: A051790 A051791 A051792 * A051794 A051795 A051796
|
|
|
KEYWORD
|
easy,nice,sign
|
|
|
AUTHOR
|
Klaus Strassburger (strass(AT)ddfi.uni-duesseldorf.de), Dec 10 1999
|
|
|
STATUS
|
approved
|
| |
|
|
