|
| |
| |
|
|
|
1, -2, -1, 0, -1, 1, -1, 0, 0, 1, -1, 0, -1, 1, 1, 0, -1, 0, -1, 0, 1, 1, -1, 0, 0, 1, 0, 0, -1, -1, -1, 0, 1, 1, 1, 0, -1, 1, 1, 0, -1, -1, -1, 0, 0, 1, -1, 0, 0, 0, 1, 0, -1, 0, 1, 0, 1, 1, -1, 0, -1, 1, 0, 0, 1, -1, -1, 0, 1, -1, -1, 0, -1, 1, 0, 0, 1, -1, -1, 0, 0, 1, -1, 0, 1, 1, 1, 0, -1, 0, 1, 0
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,2
|
|
|
COMMENTS
|
Except for the second term, a(n) is equal to the mu(n) A008683. (verified for the 53 first terms).
|
|
|
LINKS
|
Table of n, a(n) for n=1..92.
|
|
|
MAPLE
|
Contribution from R. J. Mathar, Oct 28 2010: (Start)
A178534 := proc(n, k) option remember; if k= 1 then combinat[fibonacci](n+1) ; elif k > n then 0 ; else add(procname(n-i, k-1), i=1..k-1)-add(procname(n-i, k), i=1..k-1) ; end if; end proc:
A178535 := proc(n, l) option remember; a := 0 ; if n = l then a := 1 ; end if; for k from l to n-1 do a := a-A178534(n, k)*procname(k, l) ; end do: a/A178534(n, n) ; end proc:
A178536 := proc(n) A178535(n, 1) ; end proc;
seq(A178536(n), n=1..80) ; (End)
|
|
|
CROSSREFS
|
Cf. A178535, A008683.
Sequence in context: A145152 A124327 A082596 * A048484 A016366 A016427
Adjacent sequences: A178533 A178534 A178535 * A178537 A178538 A178539
|
|
|
KEYWORD
|
sign
|
|
|
AUTHOR
|
Mats Granvik, May 29 2010
|
|
|
EXTENSIONS
|
More terms from R. J. Mathar, Oct 28 2010
|
|
|
STATUS
|
approved
|
| |
|
|
